窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：Option Base 0Dim a( ) As Integer, m As IntegerPrivate Sub Command1_Click( )  m=InputBox("请输入一个正整数")  ReDim a(m)End SubPrivate Sub Command2_Click( )  m=InputBox("请输入一个正整数")  ReDim a(m)End Sub运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组 a 中元素的个数是（    ）。

试卷相关题目

• 1执行下列语句strInput=InputBox ("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击“确定”按钮，则变量 strInput 的内容是（    ）。

  A."请输入字符串"

  B."字符串对话框"

  C."字符串"

  D.空字符串

  开始考试点击查看答案
• 2设a=4，b=5，c=6，执行语句 Print a<b And b<c 后，窗体上显示的是（    ）。

  A.True

  B.False

  C.出错信息

  D.0

  开始考试点击查看答案
• 3设窗体上有一个列表框控件 List1，含有若干列表项。以下能表示当前被选中的列表项内容的是（    ）。

  A.List1.List

  B.List1.ListIndex

  C.List1.Text

  D.List1.Index

  开始考试点击查看答案
• 4以下叙述中错误的是（    ）。

  A.在通用过程中，多个形式参数之间可以用逗号作为分隔符

  B.在 Print方法中，多个输出项之间可以用逗号作为分隔符

  C.在 Dim语句中，所定义的多个变量可以用逗号作为分隔符

  D.当一行中有多个语句时，可以用逗号作为分隔符

  开始考试点击查看答案
• 5以下不能输出“Program”的语句是（    ）。

  A.Print Mid("VBProgram", 3, 7)

  B.Print Right("VBProgram", 7)

  C.Print Mid("VBProgram", 3)

  D.Print Left("VBProgram", 7)

  开始考试点击查看答案
• 6在窗体上画一个命令按钮和一个标签，其名称分别为 Command1 和 Labcl1，然后编写如下事件过程：Private Sub Command1_Click( )  Counter=0  For i=1 To 4    For j=6 To 1 Step -2      Counter=Counter+1    Next j  Next i  Label1.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，标签中显示的内容是（    ）。

  A.11

  B.12

  C.16

  D.20

  开始考试点击查看答案
• 7在窗体上画一个名为 Command1 的命令按钮，然后编写以下程序：Private Sub Command1_Click( )  Dim M(10) As Integer  For k=1 To 10  M(k)=12-k  Next k  x=8  Print M(2+M(x))End Sub运行程序，单击命令按钮，在窗体上显示的是（    ）。

  A.6

  B.5

  C.7

  D.8

  开始考试点击查看答案
• 8以下关于过程及过程参数的描述中，错误的是（    ）。

  A.调用过程时可以用控件名称作为实际参数

  B.用数组作为过程的参数时，使用的是“传地址”方式

  C.只有函数过程能够将过程中处理的信息传回到调用的程序中

  D.窗体（Form）可以作为过程的参数

  开始考试点击查看答案
• 9在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Command1_Click( )  X=5: Y=3  Call proc(X, Y)  Label1.Caption=X  Label2.Caption=YEnd SubPrivate Sub proc(a As Integer, ByVal b As Integer)  X=a*a  Y=b+bEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是（    ）。

  A.25 和3

  B.5 和3

  C.25 和 6

  D.5 和 6

  开始考试点击查看答案
• 10在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click( )  Dim i As Integer, n As Integer  For i=0 To 50    i=i+3    n=n+1    If i>10 Then Exit For  Next  Text1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是（    ）。

  A.2

  B.3

  C.4

  D.5

  开始考试点击查看答案