更多"在窗体上有一个命令按钮Command1,编写如下程序: Privat"的相关试题:
[单项选择]在窗体上有一个命令按钮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 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 Command 1_Click( )
Dim x As Integer,y As Integer
x=12:y=32
Call Proe(X,Y)
Debug.Print x;y
End Sub
Public Sub Proc(n As Integer,ByVal m As Integer)
n=n Mod 10
m=in Mod 10
End Sub
打开窗体运行后,单击命令按钮,立即窗口上输出的结果是
A. 2 32
B. 12 3
C. 2 2
D. 12 32
[单项选择]在窗体上有一个命令按钮,然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox("enter the first integer") b=InputBox("enter the second integer") Print b + a End Sub 程序运行后,单击命令按钮,先后在两个输入框中分别输入“2”和“6”,则输出结果为
A. 2
B. 62
C. 8
D. 26
[填空题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程:
Private Sub Command1_Click( )
a=InputBox("请输入一个整数")
Text1.Text=a
If a > 0 Then
If a Mod 3 = 0 Then
MsgBox "True"
Else
MsgBox "error"
End If
End If
End Sub
程序运行后,单击命令按钮,在输入对话框里输入12,则弹出的提示内容是______。
[单项选择]在窗体上有一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim a(5)As String
FOR i=1 To 5
a(i)=Chr(Asc("A")+(i-1))
Next
For Each b In a
Print b;
Next
End Sub
程序运行后,单击命令按钮,输出结果是
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息