在窗体上画一个命令按钮,其名称为Command1,然后编写下列代码: Option Base l Private Sub Command1 Click( ) Dim a 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
第1题:
在窗件上画一个命令按钮,其名称为Command1,然后编写如下事件过程: Private Sub Command1_Click() a=12345 Print Format S(a, "000. 00") End Sub 程序运行后,单击命令按钮,窗体上显示的是______。
A.123.45
B.12345.00
C.12345
D.00123.45
第2题:
( 23 )在窗体上画一个命令按钮,其名称为 command1, 然后编写如下代码:
Option Base 1
Private Sub Command1_Click()
Dim a
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
第3题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
Option Base 1
Private Sub Command1_Click()
Dim a
a= Array(1,2,3,4,5)
For i=1 To UBound(a)
a(i)= a(i)+i-1
Next
Print a(3)
End Sub
程序运行后,单击命令按钮,则在窗体上显示的内容是( )。
A.4
B.5
C.6
D.7
第4题:
在窗体上画一个命令按钮,名称为Command1,然后编写如下事件过程; Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京", "上海", "天津", "重庆") Print city(1) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是______。
A.空白
B.错误提示
C.北京
D.上海
第5题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Private Sub Commandl_Click( )
Static X As Integer
Static Y As Integer
Cls
Y=1
Y=Y+5
X=5+X
Print X, Y
End Sub
程序运行时,3次单击命令按钮Command1后,窗体上显示的结果为【 】。
第6题:
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() a S="VisualBasic" Print String(3, a$) End Sub 程序运行后,单击命令按钮,在窗体上显示的内容是______。
A.VVV
B.Vis
C.sic
D.11
第7题:
在窗体上画一个命令按钮,名称为Command1,然后编写如下代码: Option Base() 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
第8题:
在窗体上画一个命令按钮,名称为 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
第9题:
在窗体上画一个命令按钮(其Nmne属性为Command1),然后编写如下代码: Option Base l Private Sub Command1_Click( ) Dim a s=0 a=Array(1,2,2,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
第10题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Option Base 0 Private Sub Command1_Click() Dim city As Variant city=Array("北京","上海","天津","重庆") Print city(1) End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是______。
A.空白
B.错误提示
C.北京
D.上海