题目内容

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

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

查看答案

搜索结果不匹配？点我反馈

更多问题

在窗体上添加一个命令按钮，编写如下代码：Option Base 1Private Sub Command1_ClickDim a(10) As Integer,p(3)As Integerk=5For i=1 To 10a(i)=iNext iFor i=1 To 3p(i)=a(ii)Next iFor i=1 To 3k=k+p(i)2Next iPrint kEnd Sub程序运行后，单击命令按钮，输出结果是

A. 35
B. 28
C. 33
D. 37

在窗体上添加一个命令按钮，编写如下代码：Option Base 1Private Sub Command1_Click()Dim aA=Array(1,2,3,4)J=1For i=4 To1 Step -1S=s+a(i)jJ=j10Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是

A. 4321
B. 12
C. 34
D. 1234

在窗体上添加一个命令按钮，编写如下代码：Private Sub Command1_ClickDim Arr1(10) as Integer ,Arr2(10) As IntegerN=3For i=1 to 5Arr1(i)=iArr2(n)=2*n+iNext iPrint Arr2(n), Arr1(n)End Sub程序运行后，单击命令按钮，输出结果是

A. 11 3
B. 3 11
C. 13 3
D. 3 13

在窗体中添加两个文本框Text1和Text2,一个命令按钮Command1,编写如下事件过程:Private Sub Command1_Click()x = 0Do While x < 10x = (x - 2) * (x + 3)n = n + 1LoopText1.Text = Str(n) : Text2.Text = Str(x)End Sub程序运行后,单击命令按钮,在两个文本框中显示的值分别为

A. 1 和 0
B. 3 和 50
C. 2 和 24
D. 4 和 68