充值活动已开启,快来参与吧 关闭充值活动
当前位置: 高中信息技术 /
  • 1. 小李编写了一个VB 程序,功能如下:在文本框 Text1 中依次输入各个区间的起点和终点(数据均为小于100的正整数,都用逗号分隔并以逗号结尾),单击“查找”按钮 Command1后,在Label2上显示最短区间长度。例如,三个区间为(1,10),(15,23),(26,29),输入格式及程序运行界面如图所示。

    1. (1) 要使窗体Form1标题显示“最短区间长度”,则需修改该窗体的(单选,填字母:A .Font/ B .Text/ C .Caption)属性。
    2. (2) 实现上述功能的VB程序如下,请在划线处填入合适的代码。

      Private Sub Command1_Click()

          Dim s As String, ch As String

          Dim i As Integer, k As Integer

          Dim L As Integer, R As Integer

          Dim temp As Integer, min As Integer

          s = Text1.Text

          i = 1: k = 0: temp = 0: min = 100

          Do While i <= Len(s)

              ch = Mid(s, i, 1)

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

                  temp =

              Else

                  k = k + 1

                  If    Then

                      L = temp

                  Else

                      R = temp

                      If R - L + 1 < min Then min = R - L + 1

                  End If

                  temp = 0

              End If

              i = i + 1

          Loop

          Label2.Caption = "最短区间长度是" + Str(min)

      End Sub

    3. (3) 运行程序,若文本框Text1中输入内容的结束符缺失(即输入内容为1,10,15,23,26,29),单击“查找”按钮,标签Label2中显示的内容是 。