题库 题库

【单选题】

在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述中错误的是。
  • A.该过程的作用是弹出一个菜单

  • B.单击鼠标右键时弹出菜单

  • C.Menu0是在菜单编辑器中定义的弹出菜单的名称

  • D.参数X、Y指明鼠标当前位置的坐标

参考答案

查看答案

相关试题

单选题 在深度为7的满二叉树中,叶子结点的个数为。 查看答案
单选题 设a=4,b=3,c=2,d=1,下列表达式的值是。
a>b+1 Or c< Mod b And>
查看答案
单选题 在窗体上画1个文本框,其名称为Text1,然后编写如下过程:
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode+2)
End Sub
程序运行后,把焦点移到文本框中,此时如果敲击“A”键,则输出结果为。
查看答案
单选题 在窗体上画1个命令按钮,其名称为Command1,然后编写如下程序:
Private Sub Command1_Click()
Dim a(10)As Integer
Dim x As Integer
For i=1 To 10
a(i)=8+i
Next
x=2
Print a(f(x)+x)
End Sub
Function f(x As Integer)
x=x+3
f=x
End Function
程序运行后,单击命令按钮,输出结果为。
查看答案
单选题 设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a(3,3)As Integer
For i=1 To 3
For j=1 To 3
a(i,j)=i*j+i
Next j
Next i
Sum=0
For i=1 To 3
Sum=Sum+a(i,4-i)
Next i
Print Sum
End Sub
运行程序,单击命令按钮,输出结果是。
查看答案
单选题 假定有如下的命令按钮(名称为Command1)事件过程:
Private Sub Command1_Click()
x=InputBox("输入:","输入整数")
MsgBox"输入的数据是:”,,”输入数据:"+x
End Sub
程序运行后,单击命令按钮,如果从键盘上输入整数10,则以下叙述中错误的是。
查看答案
单选题 设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是。 查看答案
单选题 在窗体上画1个命令按钮,名称为Command1,然后编写如下程序:
Dim Flag As Boolean
Private Sub Command1_Click()
Dim intNum As Integer
intNum=InputBox("请输入:")
If Flag Then
Print f(intNum)
End If
End Sub
Function f(X As Integer)As Integer
If X<10 Then
Y=X
Else
Y=X+10
End If
f=Y
End Function
Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)
Flag=True
End Sub
运行程序,首先单击窗体,然后单击命令按钮,在输入对话框中输入5,则程序的输出结果为。
查看答案
单选题 窗体上有名称分别为Text1、Text2的2个文本框,有一个由3个单选按钮构成的控件数组Option1,如图1所示。程序运行后,如果单击某个单选按钮,则执行Text1中的数值与该单选按钮所对应的运算(乘以1、10或100),并将结果显示在Text2中,如图2所示。为了实现上述功能,在程序中的问号(?)处应填入的内容是。
 
Private Sub Option1_Click(Index As Integer)
If Text1.Text<>""Then
Select Case ?
Case 0
Text2.Text=Val(Text1.Text)
Case 1
Text2.Text=Val(Text1.Text)*10
Case 2
Text2.Text=Val(Text1.Text)*100
End Select
End If
End Sub
查看答案
单选题 “商品”与“顾客”两个实体集之间的联系一般是。 查看答案
单选题 以下叙述中,错误的是。 查看答案
单选题 以下可以作为Visual Basic变量名的是。 查看答案
单选题 下列叙述中正确的是。 查看答案
单选题 以下能从字符串"VisualBasic"中直接取出子字符串"Basic"的函数是。 查看答案
单选题 在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
a=0
For i=1 To 2
For j=1 To 4
If j Mod 2<>0 Then
a=a-1
End If
a=a+1
Next j
Next i
Print a
End Sub
程序运行后,单击命令按钮,输出结果是。
查看答案
单选题 两个或两个以上模块之间关联的紧密程度称为。 查看答案
单选题 在菜单编辑器中建立1个名称为Menu0的菜单项,将其“可见”属性设置为False,并建立其若干子菜单,然后编写如下过程:
Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)
If Button=1 Then
PopupMenu Menu0
End If
End Sub
则以下叙述中错误的是。
查看答案
单选题 以下关于文件的叙述中,错误的是。 查看答案
单选题 设有命令按钮Command1的单击事件过程,代码如下:
Private Sub Command1_Click()
Dim a(30)As Integer
For i=1 To 30
a(i)=Int(Rnd*100)
Next
For Each arrItem In a
If arrItem Mod 7=0 Then Print arrItem;
If arrItem>90 Then Exit For
Next
End Sub
对于该事件过程,以下叙述中错误的是。
查看答案
单选题 下列叙述中正确的是。 查看答案