niusouti.com
窗体上有Commandl、Command2两个命令按钮。现编写以下程序：OptionBase 0Dim a()As Integer，m As IntegerPrivate Sub Commandl_Click()m=InputBox(”请输入一个正整数”)ReDim a(m)End SubPrivate Sub Command2_Click()in=InputBox(”请输入一个正整数”)ReDim a(m)End Sub运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，
题目
窗体上有Commandl、Command2两个命令按钮。现编写以下程序：
OptionBase 0
Dim a()As Integer，m As Integer
Private Sub Commandl_Click()
m=InputBox(”请输入一个正整数”)
ReDim a(m)
End Sub
Private Sub Command2_Click()
in=InputBox(”请输入一个正整数”)
ReDim a(m)
End Sub
运行程序时，单击Commandl后输入整数10，再单击Command2后输入整数5，则数组a中元索的个数是
A．5
B．6
C．10
D．11
相似考题
参考答案和解析
解析：数组a(m)中，m表示的是数组中元素的个数，各元素的下标值为O-m。在给出的程序中，为m赋了两次值，但第二次的值会覆盖第一次的值，所以答案选B。
更多“窗体上有Commandl、Command2两个命令按钮。现编写以下程序:OptionBase 0Dim a()As Integer,m As In ”相关问题
-
第1题：
在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：
Private Sub Commandl Click()
Dim P As Integer
p=m(1)+m(2)+m(3)
Print P
End Sub
Private Function m(n As Integer)As Integer
Static s As Integer
For k=1 To n
s=s+l
Next
m=s
End Function
运行程序，单击命令按钮Commandl后的输出结果为
正确答案：10
10 -
第2题：
在窗体上添加一个命令按钮，名称为Commandl，然后编写如下事件过程： Option Base 0Private Sub Commandl_Click（） Dim cityAs VariantCity=．Array（"北京"， "上海"，"天津”， "重庆"）Print city（1）End Sub程序执行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.空白
B.错误提示
C.北京
D.上海
正确答案：D
暂无解析，请参考用户分享笔记 -
第3题：
在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序：
窗体打开运行后，单击命令按钮，则消息框的输出结果为__________。
正确答案：
2500【解析】本题考查循环的知识。这个问题比较简单，实际上就是求l到100之间的奇数和，最终结果为2500。 -
第4题：
窗体上添加有3个命令按钮，分别命名为Commandl、Command2和Command3，编写Commandl的单击事件过程，完成的功能为：当单击按钮Commandl时，按钮Command2可用，按钮Command3不可见。以下正确的是（ ）。
A.
B.
C.
D.
正确答案：C
本题考查控件的可见和可用属性的知识。在VBA中，要想使某个控件可用，则使其Enabled属性为True要想使某个控件可见，则使其Visible属性为True.所以本题正耐答案为C。
-
第5题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程． Option Base 0 Private Sub Command1_Click Dim city As Variant city=Array(“北京”，“上海”，“天津”，“重庆”) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．空白
B．错误提示
C．北京
D．上海
正确答案：D
解析：本题主要考查数组的初始赋值。由于有“OptionBase0”，所以以Array函数赋值的数组下标下界为0。所以city(1)指Array赋给city的第二个元素，即“上海”，故本题选D。