当前位置: 高中信息技术 / 综合题
  • 1. (2017高二上·台州月考) 编写“数字序列”程序,实现如下功能:在文本框Text1中输入[100,500]范围内的整数,单击“生成”按钮Command1,在列表框List1中显示9个该序列的数字。数字序列的生成规则为:该项的数字+该数百位上的数字+该数十位上的数字+该数个位上的数字=下一项的数字,例如:365+3+6+5=379。小明编写了VB程序,运行的界面如图所示,程序代码如下:

    1. (1) 代码“Private Sub Command1_Click()”中的Command1_Click()是_________。(单选,填字母)
      A . 对象名 B . 事件 C . 事件处理过程 D . 方法
    2. (2) 为实现上述功能,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim n As Integer, i As Integer

      Dim a As Integer

      Dim b As Integer

      Dim c As Integer

      List1.Clear

      n = Val(Text1.Text)

      If n >= 100 And n <= 500 Then

                   For i = 1 To 9

                 A.位置一

                     a = n \ 100

                     b = (n - 100 * a) \ 10

                     c = n Mod 10

                      

                   B.位置二

                   Next i

                  C.位置三

      Else

                      List1.AddItem "输入数值有误"

      End If

               D.位置四

      End Sub

    3. (3) 上述代码段中缺少了List1.AddItem Str(i) + "." + Str(n),此句代码应该加在(填字母)位置。
    4. (4) 若输入的数字为123,则第三项的值为

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