（21）窗体上有 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，再单击

题目

（21）窗体上有 Command1、Command2 两个命令按钮。现编写以下程序：

Option Base 0

Dim a( ) As Integer, m As Integer

Private Sub Command1_Click( )

m=InputBox("请输入一个正整数")

ReDim a(m)

End Sub

Private Sub Command2_Click( )

m=InputBox("请输入一个正整数")

ReDim a(m)

End Sub

运行程序时，单击 Command1 后输入整数 10，再单击 Command2 后输入整数 5，则数组a 中元素的个数是

（ ）。

A）5

B）6

C）10

D）11

相似考题

1.某表单上有两个命令按钮Command1和Command2。要求：(1)若单击Command1命令按钮，程序将当前表的记录指针上移一位，并刷新表单中所有的值；其中，若指针已处于文件的首记录，则将其自身(Command1命令按钮)设置为不能被激活状态。(2)若单击Command2命令按钮，程序将当前表的记录指针下移一位，并刷新表单中所有的值；其中，若指针已处于文件的末记录，则将其自身(Command2命令按钮)设置为不能被激活状态。

2.窗体上有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，则数组a中元索的个数是A．5B．6C．10D．11

3.在窗体上画—个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click_() For n=1 To 20 If n Mod 3＜＞0 Then m=m+n\3 Next n print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是 ______。A．15B．18C．21D．24

4.创建一个窗体，在该窗体中建立两个按钮，分别命名为Command1和Command2。下列程序代码用于实现以下功能：单击命令按钮Command1后，按钮Command1变为不可用，而Cmmnand2设置为可用。请填空。Private Sub Command1_ Click()Command1.______ = FalseCommand1.______ = TrueEnd Sub

更多“(21)窗体上有 Command1、Command2 两个命令按钮。现编写以下程序: Option Base 0 Dim a( ) As Inte ”相关问题

  • 第1题：

    在窗体上画三个命令按钮，其名称分别为Command1、Command2和Command3，然后编写如下事件过程： Private Sub Command1 Click() Command2.Enabled = False Command3.Visible = False End Sub程序运行后，单击命令按钮Command1，则执行的操作是______。

    A．命令按钮Command2和Command3禁用

    B．命令按钮Command2和Command3隐藏

    C．命令按钮Command2隐藏，Command3禁用

    D．命令按钮Command2禁用，Command3隐藏


    正确答案：D

  • 第2题：

    在窗体上画一个名为Command1的命令按钮，编写如下程序：

    程序运行后，单击命令按钮，输出的结果是_________。


    正确答案：
    4
    【解析】本题考查了数组的嵌套使用。程序首先通过一个For循环给数组M的各个数组元素赋值，然后通过数组下标嵌套本身。注意：这样的嵌套时，要保证数组下标不出界，否则程序将出错。

  • 第3题：

    在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n 3 Next n Form1.Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。

    A．15

    B．18

    C．21

    D．24


    C

  • 第4题：

    在窗体上画一个命令按钮，名称为Command1。然后编写如下程序： Private Sub Command1_Click() Dim i As Integer,a As Integer Do While i＜20 Do While True If i Mod 10=0 Then Exit Do Else i=i-1 End If Loop i=i+11 a=a+i Loop Printa End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。

    A．21

    B．32

    C．33

    D．11


    正确答案：B
    解析：本题内层循环的循环条件始终为True，因此内层循环体内的ExitDo语句为终止循环的语句。首先，判断外层循环DoWhile后面表达式“i20”的值为True，接着执行内层循环的If语句，表达式“iMod10=0”的值为True，执行ExitDo语句，跳出内层循环，执行下面的语句，此时i和a的值分别为11：回到外层循环，判断条件“i20”，仍为True，执行内层循环语句，此时If条件不满足，执行Else语句，i的值为10，继续内层循环，If语句条件满足，执行ExitDo语句，跳出内层循环，执行下面的语句后，i和a的值分别为21和32。再判断外层循环的条件，不再满足，结束循环。输出变量a的值为32。

  • 第5题：

    在窗体上添加一个命令按钮Command1，然后编写如下事件过程： Private Sub Command1_Click（) For n = 1 To 20 If n Mod 3 ＜＞ 0 Then m = m + n 3 Next n Print n End Sub 程序运行后，如果单击命令按钮，则窗体上显示的内容是（）。

    A．15

    B．18

    C．21

    D．24


    C

相关内容