更多"单击窗体上的命令按钮Command1, 【10】
Priva"的相关试题:
[单项选择]在窗体上画一个命令按钮,名称为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
B. x=12 y=12
C. x=12 y=12
D. x= 12 y=12
[单项选择]在窗体上画一个名称为Command1的命令按钮。单击命令按钮时执行如下事件过程:
Private Sub Command1_Click( )
a$="software and hardware"
b$=Right(a$,8)
c$=Mid(a$,1,8)
MsgBox a$,,b$,c$,1
End Sub
则在弹出的信息框标题栏中显示的标题是( )
A. software and hardware
B. hardware
C. software
D. 1
[单项选择]在窗体上有一个命令按钮Command1,编写如下程序:
Private Sub Command1_Click( )
Print pp1(3, 7)
End Sub
Public Function pp1(x As Single, n As Integer) As Single
If n = 0 Then
pp1 = 1
Else
If n Mod 2=1 Then
pp1=x*x+n
Else
pp1=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )。
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上有一个命令按钮Command1,编写下列程序:
Private Sub Command1_Click( )
Print ppl(3,7)
End Sub
Public Function ppl(X As Single,n As Integer)As Single
If n=0Then
ppl=1
Else
If n M0d 2=1 Then
ppl=x*x+n
EIse
ppl=x*x-n
End If
End If
End Function
程序运行后,单击该命令按钮,屏幕上显示的是( )
A. 2
B. 1
C. 0
D. 16
[单项选择]在窗体上画一个命令按钮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
[填空题]在窗体上画一个命令按钮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 arr(4)
arr(4)=x
End If
Me.Print(arr(4)-arr(3))
End Sub
程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为 【10】 。
[填空题]在窗体上有一个命令按钮Command1,编写事件代码如下:
Private Sub Command1_Click( )
Dim a(10),p(3)As Integer
k=5
For i=1 To 10
a(i)=i*i
Next i
For i=1 To 3
P(i)a(i*1)
Next i
For i=1 To 3
K=k+p(i)*2
Next i
MsgBox k
End sub
打开窗体运行后,单击命令按钮,消息框中输出的结果是______。
[单项选择]在窗体上中一个命令按钮Command1,编写如下事件代码:
Private Sub Command1_Click( )
S="ABBACDDCBA"
For i=6 To 2 Step-2
x=Mid(s,i,i)
y=Left(s,i)
z=Right(s,i)
z=x&y&z
Next i
MsgBox z
End Sub
运行窗体后,单击命令按钮,则消息框输出的结果是( )。
A. AABAAB
B. ABBABA
C. BABBAB
D. BBABBA
[填空题]在窗体上画一个命令按钮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 arr(4)
an(4)=x
End If
Me.Print(an(4)-arr(3))
End Sub
程序运行后,单击命令按钮,在输入对话框中输入12,输出结果为 【10】 。