更多"在窗体中添加一个命令按钮,并编写如下程序:Private Sub Co"的相关试题:
[单项选择]在窗体中添加一个命令按钮,并编写如下程序: Private Sub Command1_CliCk( ) X=1∶Y=2∶Z=3 X=Y∶Y=Z∶Z=X Print Z End Sub 程序执行后,输出的结果是______。
A. 3
B. 0
C. 2
D. 1
[单项选择]在窗体中添加一个命令按钮,并编写如下程序: Private Sub Command1_Click( ) a%=2/3 b%=32/9 Print a%;b% End Sub运行以上程序,输出结果为______。
A. 1 4
B. 0 3
C. 1 3
D. 0 4
[单项选择]在窗体画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( ) Dim a(5) As String
For i = 1 To 5
a(i) = Chr( Asc("A") + (i -1)) Next i
For Each b In a
Print b; Next
End Sub
程序运行后,单击命令按钮,输出结果是______。
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
[单项选择]在窗体添加一个命令按钮(名为Command1)和一个文本框(名为Text1),并在命令按钮中编写如下事件代码:
Private Sub Commandl Click( )
m=2.17
n=Len(Str$(m)+Space)
Me!Textl=n
End Sub
打开窗体运行后,单击命令按钮,在文本框中显示【 】。
A. 5
B. 8
C. 9
D. 10
[单项选择]在窗体上画一个命令按钮,然后编写如下程序
Private Sub Command4 Click( )
Dim a As Integer,b As Integer
a=1
b=2
Print N(a,b)
End Sub
Function N(x As Integer,y As Integer)As Integer
N=IIf(x>y,x,y)
End Function
程序运行后,单击命令按钮,输出结果为( )。
A. l
B. 2
C. 5
D. 8
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Commandl Click( ) Dim a( ) a=Array(1,3,5,7) s=0 For i=1 To 3 S=S*10+a(i) Next i Print s End Sub 程序运行后,输出结果为( )。
A. 135
B. 357
C. 531
D. 753
[单项选择]在窗体上画一个命令按钮,然后编写如下代码: Private Sub Command1 Click( ) a&=InputBox("请输入第一个数") b&=InputBox("请输入第二个数") Print b&+a& End Sub 程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是
A. 66666
B. 5432112345
C. 1234554321
D. 出错
[单项选择]在窗体上画一个命令按钮,然后编写下列程序: Private Sub Command1 click( ) Dim a As Single,b As Single a=6:b=2 RC a,b Print a,b End Sub Sub RC(x As Single,y As Single) i=x x=i/y y=i Mod y End Sub
A. 4 3
B. 1 1
C. 3 0
D. 2 6
[单项选择]在窗体上画一个命令按钮,然后编写如下程序: Private Sub Commandl_Click( ) Dim a AS Integer,b As Integer a=15 b=2 t N(a,b) End Sub Function N(x As Integer,y As Integer) As Integer N=IIf(x)y,x,y) End Function 程序运行后,单击命令按钮,输出结果为
A. 1
B. 2
C. 15
D. 8