题目

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关 键的信息。现编写 VB.程序实现如下功能：在文本框 Text1 中输入短信内容，点击“提取”按钮， 将短信中的数字以“，”间隔输出到文本框 Text2 中。程序运行界面如图1所示。 （1） 在设计程序界面时，图2中控件（填数字）未在程序窗体中使用。 （2） 请根据题意将下列程序补充完整 Private Sub Command1_Click() Dim msg As String, c As String, tmp As String, s As String, flag As Boolean msg = Text1.Text msg = msg + "/" '标记字符串结束符 tmp = "" s = "" flag = True For i = 1 To Len(msg)     c = Mid(msg, i, 1)         If ① Then flag = False         tmp = tmp + c         ElseIf flag = False Then s = s + tmp + ","         tmp = ""         ②     End If   Next i   Text2.Text = s End Sub （3） 若程序未加“msg = msg + "/"”语句，则示例图1中提取后的数字信息为 。 答案： 【1】4 【1】c >= "0" And c <= "9"【2】flag = True 【1】5，55，

查看本题答案和解析