更多"在窗体上画一个命令按钮,然后编写如下事件过程: Private Su"的相关试题:
[填空题]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
a=Val(1nputBox(“请输入一个整数”))
b=Val(1nputBox(“请输入一个整数”))
Print a+b
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入12和34,输出结果为 【10】
[单项选择]在窗体上画一个命令按钮,然后编写如下代码:
Private Sub Command1_Click( )
a&=InputBox("请输入第一个数")
b&=InputBox("请输入第二个数")
Print b&+a&
End Sub
程序运行后,单击命令按钮,在两个输入对话框中先后输入12345和54321,程序的输出结果是
A. 66666
B. 54321 12345
C. 1234554321
D. 出错
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_ Click ( )
x = InputBox("Enter the First integer")
y = InputBox("Enter the Second integer")
Print y +x
End Sub
程序运行后,单击命令按钮,先后在两个输入对话框中分别输入456和123,则输出结果是 ______。
A. 579
B. 123
C. 456
D. 123456
[单项选择]在窗体上画一个命令按钮,然后编写如下事件过程: Private Sub Command1_Click( ) x=0 Do Until x=-1 a=InputDox("请输入a的值") a=Val(A) b=InputBox("请输入b的值") b=Val(B) x=InputBox("请输入x的值") x=Val(x) a=a+b+x Loop Print a End sub 程序运行后,单击命令按钮,依次在输入对话框中输入10、8、9、2、11、-1,则输出结果为 ______。
A. 15
B. 14
C. 13
D. 12
[填空题]在窗体上画一个命令按钮Command1,然后编写如下程序:
Private Sub Command1_Click( )
Dim arr( )As Integer
ReDim arr(3)
For i=0 To 3
arr(i)=i
Next i
x=InputBox("请输入一个数字:")
If Val(x)>4 Then
ReDim art(4)
air(4)=x
End If
Me.Print(arr(4)-art(3))
End Sub
程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为 【10】 。
[单项选择]在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程:
Private Sub Commandl_Click( )
Dim a( )
a=Array(“机床”,”车床”,”钻床”,”轴承”)
Print a(2)
End Sub
程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A. 机床
B. 车床
C. 钻床
D. 轴承
[单项选择]在窗体上画一个命令按钮(名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click( )
A=4 : b=5 : c=6
Print a=b+c
End Sub
程序运行后,单击命令按钮,其结果为______。
A. a=11
B. a=b+c
C. False
D. 出错
[单项选择]在窗体上画一个命令按钮(其名称为Command1),然后编写如下事件过程:
Private Sub Command1_Click( )
Dim a(5,5)As Integer
Dim i As Integer,j As Integer
For i=1 To 3
For i=1 To 3
a(i,j)=(i-1)*3+j
Print a(i,j)
Next j
Print
Next i
End Sub
程序运行后,单击命令按钮,在窗体上的输出结果是______。
A. 1 4 7
B. 1 2 3
C. 1 2 3 4 5 6 7 8 9
D. 没有输出
[单项选择]在窗体上画一个命令按钮,并编写如下事件过程:
Private Sub Command1_Click( )
For i=5 To 1 Step-0.8
Print Int(i);
Next i
End Sub
运行程序,单击命令按钮,窗体上显示的内容为
A. 5 4 3 2 1 1
B. 5 4 3 2 1
C. 4 3 2 1 1
D. 4 4 3 2 1 1
[填空题]在窗体上画一个命令按钮,然后编写如下程序:
Dim x As Integer
Sub inc(a As Integer)
x=x+a
End Sub
Private Sub Command1_Click( )
inc 2
inc 3
inc 4
Msgbox x;
End Sub
程序执行后,单击Command1命令按钮,消息框显示结果是 【14】 。
[单项选择]在窗体上画一个命令按钮,然后编写如下程序:
Sub S1(ByVal x As Integer,ByVal y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Private Sub Command1_Click( )
Dim a As Integer,b As Integer
a=10
b=30
S1 a,b
Print"a="; a; "b="; b
End Sub
程序运行后,单击命令按钮,输出结果是______。
A. a=30 b=10
B. a=30 b=30
C. a=10 b=30
D. a=10 b=10