试题

试题 试卷

logo

题型:综合题 题类:常考题 难易度:困难

浙江省嘉兴市第一中学2017-2018学年高二下学期信息技术期中考试试卷

目前部分手机的短信具有“提取详情”的功能,即针对一条短信,可以提取出短信中一些关 键的信息。现编写 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中提取后的数字信息为
举一反三
返回首页

试题篮