题目

目前部分手机的短信具有“提取详情”的功能，即针对一条短信，可以提取出短信中一些关键的信息。现编写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,

查看本题答案和解析