更多"在窗件上画一个命令按钮,其名称为Command1,然后编写如下事件过程"的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为Command1。 Private Sub Command1 Click( ) Dim x As Integer,y As Integer x=10:y:0 Do x=x+2:y=y+x Print "x=", x; "y=",y If y>20 Then Exit Do Loop Until x=18 End Sub 程序运行后,如果单击命令按钮,则在窗体上显示的内容是 ______。
A. x=12y=12 x = 14 y = 16 x=16 y=18
B. x=12 y=12 x= 16 y =28 x= 18 y=24
C. x=12 y=12 x= 14 y=44
D. x= 12 y=12 x= 14 y=26
[单项选择]在窗件上画一个名称为Command1的命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) Move 500, 500 End Sub 程序运行后,单击命令按钮,执行的操作为______。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
[单项选择]在窗件上画一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_ Click( ) Move 500, 500End Sub程序运行后,单击命令按钮,执行的操作为______。
A. 命令按钮移动到距窗体左边界、上边界各500的位置
B. 窗体移动到距屏幕左边界、上边界各500的位置
C. 命令按钮向左、上方向各移动500
D. 窗体向左、上方向各移动500
[单项选择]在窗体上画一个命令按钮Command1,然后编写如下代码: Private Sub Command1_Click( ) Dim Arr1(10) As Integer, Arr2(10)As Integer n=3 For i = 1 To 5 Arr1 (i)=i Arr2(n)=2 * n+i Next i Print Arr2(n); Art1 (n)End Sub运行程序后,单击命令按钮,输出结果是( )。
A. 11 3
B. 3 11
C. 13 3
D. 3 13
[单项选择]在窗体上画一个命令按钮,然后编写下列程序:
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. 如果选项组结合到某个字段,则只有组框架本身结合到该字段,而不是组框架的复选框、选项按钮或切换按钮
B. 选项组可以设置为表达式或非结合选项组,也可以在自定义对话框中使用非结合选项组来接受用户的输入,但不能根 据输入的内容来执行相应的操作
C. 选项组是由一个组框、一个复选框、选项按钮或切换按钮和关闭按钮组成的
D. 以上说法均错
[单项选择]在窗体上画一个命令按钮,然后编写如下代码: 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 Command1_Click( )
For i=1 To 4
x=4
For j=1 To 3
X=3
For k=1 To 2
x=x+6
Next
Next
Next
Print x
End Sub 程序运行后,单击命令按钮,输出的结果是
A. 7
B. 15
C. 157
D. 538
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_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( ) 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. 出错信息
[单项选择]在窗体上画一个命令按钮,然后写出如下事件过程:
Private Sub Command1 _ Click( )
S=1
Do
S=(S + 1) ^(S + 2)
Number=Number+1
Loop Until S>=6
Print Number,S
End Sub
程序运行后,输出的结果是( )。
A. 2 3
B. 3 18
C. 1 8
D. 10 20