阅读程序：Private Sub Form_Click()a=0For j=1 To 15a=a+j Mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是（    ）。

试卷相关题目

• 1在窗体上画两个文本框（名称分别为Textl和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x<50x=(x+2) * (x+3)n=n+1LoopTextl.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为（    ）。

  A.1和0

  B.2和72

  C.3和50

  D.4和168

  开始考试点击查看答案
• 2假定有以下程序段For i=1 To 3For j=5 To 1 Step -1Print i*jNext jNext i则语句Print i * j的执行次数是（    ）。

  A.15

  B.16

  C.17

  D.18

  开始考试点击查看答案
• 3在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim（Str（c））For i=1 To 4Print __________NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为（    ）。

  A.Right(c1,i)

  B.Left(c1,i)

  C.Mid(c1,i,1)

  D.Mid(c1,i,i)

  开始考试点击查看答案
• 4在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是（    ）。

  A.Private Sub Text1_Change()Label1.Caption = Str(Len(Text1.Text))End Sub

  B.Private Sub Textl_Click()Label1.Caption = str(Len(Text1.Text))End Sub

  C.Private Sub Textl_Change()Label1.Caption = Text1.TextEnd Sub

  D.Private Sub Label1_Change()Label1.Caption = Str(Len(Text1.Text))End Sub

  开始考试点击查看答案
• 5下列叙述中正确的是（    ）。

  A.MsgBox语句的返回值是一个整数

  B.执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作

  C.MsgBox语句的第一个参数不能省略

  D.如果省略MsgBox语句的第三个参数（Title），则信息框的标题为空

  开始考试点击查看答案
• 6以下说法中正确的是（    ）。

  A.当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程

  B.因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程

  C.若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同

  D.在KeyPress事件过程中，KeyAscii参数可以省略

  开始考试点击查看答案
• 7语句Dim a(-3 To 4,3 To 6)As Integer定义的数组的元素个数是（    ）。

  A.18

  B.28

  C.21

  D.32

  开始考试点击查看答案
• 8在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa=Array(1,2,3,4)j=1For i=4 To 1 Step -1s=s+a(i)*jj=j*10Next iPrint sEnd Sub程序运行后，单击命令按钮，其输出结果是（    ）。

  A.4321

  B.1234

  C.34

  D.12

  开始考试点击查看答案
• 9假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是（    ）。

  A.数组中每个命令按钮的名称（Name属性）均为Command1

  B.若未做修改，数组中每个命令按钮的大小都一样

  C.数组中各个命令按钮使用同一个Click事件过程

  D.数组中每个命令按钮的Index属性值都相同

  开始考试点击查看答案
• 10在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1 (4) As Integer, A2 (4) As IntegerFor k=0 To 2A1 (k+1) = InputBox("请输入一个整数")A2 (3-k) = A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为（    ）。

  A.0

  B.1

  C.2

  D.3

  开始考试点击查看答案