单项选择题

在窗体上画一个命令按钮，名称为Command1，然后编写如下代码：
Option Base 0
Private Sub Command1_Click()
Dim A(4) As Integer, B(4) As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中分别输入2、4、6，输出结果为

A．0
B．2
C．3
D．4

<上一题目录下一题>

热门试题

单项选择题

假定有如下的命令按钮(名称为Command1)事件过程： Private Sub Command1_Click() x=InputBox( 输入: , 输入整数 ) MsgBox 输入的数据是: , , 输入数据: +x End Sub 程序运行后，单击命令按钮，如果从键盘上输入整数10，则下列叙述中错误的是

A．x的值是数值10
B．输入对话框的标题是"输入整数"
C．信息框的标题是"输入数据:10"
D．信息框中显示的是"输入的数据是:"

单项选择题

某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签，计时器的属性设置为Enabled=True，Interval=0，并编程如下(希望在程序运行时，可以每2秒在标签上显示一次系统当前时间)： Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么应做的修改是

A．通过属性窗口把计时器的Interval属性设置为2000
B．通过属性窗口把计时器的Enabled属性设置为False
C．把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D．把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time

相关试题