更多"在窗体上画一个按钮,然后再复制5个,形成名称为Command1的6个控"的相关试题:
[单项选择]在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。
Option Base 1
Private Sub fun(a( )As Integer,n As Integer)
ReDim Preserve a(6)
a(6)=a(1)*a(3)*a(5)
n=UBound(
[单项选择]在窗体上画一个按钮,然后编写如下的事件代码。在按钮上单击,输出为( )。 Private Sub fun( ) Static a As Integer a=a+2 Print a; End Sub Private Sub Command1_Click( ) Dim m As Integer For m=1 To 3 Call fun Next m End Sub
A. 2 2 2
B. 0 0 0
C. 2 4 8
D. 2 4 6
[单项选择]在窗体上画一个命令按钮,然后编写如下程序
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=O
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 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 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. 20
B. 261
C. 15
D. 25
[单项选择]在窗体上画一个命令按钮,然后编写下列程序:
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