单项选择题

下面的程序运行时，为了在窗体上输出“VB6.0”，应在窗体上执行的操作是( )。
Private Sub Form_MouseDown(BuRon As Integer,shift As Integer,x As Single,Y As Single)
　If Button And 3=3 then
　　Print"VB 6.0"
　End If
End Sub

A．只能按下右键
B．只能按下左键
C．应同时按下左、右键
D．按下左、右键之一
<上一题 目录 下一题>
热门 试题

单项选择题
以下能够正确计算n!的程序是( )。
A．Private Sub Command1_Click()
　　n=5:x=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＜n
　　Print x
　End Sub
B．Private Sub Command1_Click()
　　n=5:x=1:i=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＜n
　　Print x
　End Sub
C．Private Sub Command1_Click()
　　n=5:x=1:i=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＜=n
　　print x
　End Sub
D．Private Sub Command1_Click()
　　n=5:x=1:i=1
　　Do
　　　x=x*i
　　　i=i+1
　　Loop While i＞n
　print x
End Sub
单项选择题
在窗体上画一个命令按钮，名称为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1。在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。能够正确实现上述功能的代码是( )。
A．Private Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
Print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Funcfion
B．Privae Sub Command1_Click()
x=InputBox("请输入整数")
a=F1(Val(x))
print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
F1=0
Else
F1=1
End If
End Function
C．Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Va(x))
Print a
End Sub
Function F1(byRef b As Integer)
If b Mod 2=0 Then
F1=1
Else
F1=0
End If
End Funcfion
D．Private Sub Command1_Click()
x=InputBox("请输入整数")
F1(Val(x))
Print a
End Sub
Function F1(ByrRef b As Integer)
If b Mod 2=0 Then
Return 0
Else
Return 1
End If
End Function
相关试题