当前位置: 高中信息技术 / 综合题
  • 1. (2019高二上·温州期中) 编写“提取数字”程序,实现如下功能:在文本框Text1中输入文本信息,点击“提取”按钮Command1,将文本信息中的数字以“,”间隔输出到文本框Text2中。程序运行界面如图所示。

    1. (1) 观察界面,程序中未使用到的控件是(填字母:A . /B . / C . / D .   )
    2. (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. (3) 当输入的文本信息如图所示,若删除加框代码,则文本框Text2中显示的内容为

微信扫码预览、分享更方便