试题

试题 试卷

logo

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

浙江省温州十五校联合体2019-2020学年高二上学期信息技术期中联考试卷

编写“提取数字”程序,实现如下功能:在文本框Text1中输入文本信息,点击“提取”按钮Command1,将文本信息中的数字以“,”间隔输出到文本框Text2中。程序运行界面如图所示。

(1)、观察界面,程序中未使用到的控件是(填字母:A . /B . / C . / D .   )
(2)、根据题意,请将划线处代码补充完整。

Private Sub Command1_Click()

  Dim zf As String, tmp As String

  Dim s As String, i As Integer, ch As String

 

  tmp = ""

  s = ""

  For i = 1 To Len(zf)

    ch = Mid(zf, i, 1)

    If ch >= "0" And ch <= "9" Then

     

    ElseIf tmp <> "" Then

      s = s + tmp + ","

      tmp = ""

    End If

  Next i

 

  Text2.Text = s

End Sub

(3)、当输入的文本信息如图所示,若删除加框代码,则文本框Text2中显示的内容为
举一反三
返回首页

试题篮