更多"在窗体上画一个命令按钮(其Name属性为Command1),然后编写如"的相关试题:
[单项选择]在窗体上画一个命令按钮(其NAME属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
Dim a
s = 0
a = Array(1,2,3,4);j = 1
For i = 4 To 1 Step -1
s = s + a(i) * j
j = j * 10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是( )。
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) Dim a(4, 4) For i = 1 To 4 For j = 1 To 4 a(i, j) = (i-1) * 3 + j Next j Next i For i = 3 To 4 For j = 3 To 4 Print a(j, i); Next j Next i End Sub 程序运行后,单击命令按钮,其输出结果为 ______。
A. 6 9 7 10
B. 7 10 8 11
C. 8 11 9 12
D. 9 12 10 13
[单项选择]在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click( ) Dim a s=0:j =1 a = Array(1,2,3,4) For i=4 To 1 Step -1 s =s +a(i) *j j=j * 10 Next Print s End Sub 运行上面的程序并单击命令按钮,其输出结果是
A. 4221
B. 1234
C. 34
D. 12
[单项选择]在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:
Option Base 1
Private Sub Command1_Click( )
Dim a(4,4)
For i=1 To 4
For i=1 To 4
a(i,j)=(i-1)*3 + i
Next j
Next i
For i=3 To 4
For j=3 To 4
Print a(j,i);
Next j
Next i
End Sub
程序运行后,单击命令按钮,在窗体上显示的内容为
A. 6 9 7 10
B. 7 10 8 11
C. 8 11 9 12
D. 9 12 10 13
[单项选择]在窗体上画一个命令按钮,名称为Command1,然后编写如下代码:
Option Base 0
Private Sub Commandl_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,然后编写下列代码:
Option Base 0
Private Sub Command1 Click( )
Dim A1(4)As Integer,A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中依次输入2、4、6,则输出结果为( )。
A. 0
B. 1
C. 2
D. 3
[单项选择]在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序,单击命令按钮,其输出结果是______。
A. 4321
B. 12
C. 34
D. 1234