您所在的当前位置： 计算机等级考试题库   >  
BASIC题库  
  >  [单项选择题] 在菜单编辑器中建立一个名称为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． Menu0在菜单编辑器中定义弹出菜单的名称 B． 该过程的作用是弹出一个菜单 C． 单击鼠标右键时弹出菜单 D． 参数X、Y指明鼠标当前位置的坐标
问题：
发布时间：2022-07-01

[单项选择题] 在菜单编辑器中建立一个名称为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． Menu0在菜单编辑器中定义弹出菜单的名称
B． 该过程的作用是弹出一个菜单
C． 单击鼠标右键时弹出菜单
D． 参数X、Y指明鼠标当前位置的坐标

参考答案：
题目声明 提问用户：y7***btJ
可能感兴趣的题目：

1

[单项选择题] 执行STORE″111″TO A之后，再执行″222″+″&A″的结果是( )


A．222&A
B．333
C．222111
D．出错信息

2

[单项选择题] 有如下程序：
void main()
int x=3，y=0，z=0;
if(x=y+z) printf("****")；
else printf("####")；

下列说法中正确的是( )。


A．有语法错误不能通过编译
B．输出****
C．可以通过编译，但是不能通过链接，因而不能运行
D．输出####

3

[单项选择题] 使用命令DECLARE MM(2，3)定义的数组，包含的数组元素(下标变量)的个数为( )


A．2个
B．3个
C．5个
D．6个

4

[填空题] 执行下列语句后，输出结果是______。
s$="ABCDEFG"
Print lnStr(S$, "efg")
Print LCase$(s $)

5

[填空题] InputBox函数输入数据时，可以单击“确定”按钮或______表示确认。

6

[填空题] 在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下事件过程：
Private Sub Command1_Click()
　　Dim inData As String
　　Text1.Text=""
Open"d:myfile.txt"Fo (8) As#1
Do While (9)
　　　　Input #1,inData
　　　　Text1.Text=Text1.Text+inData
　　Loop
　　Close #1
End Sub
程序的功能是，打开D盘根目录下的文本文件myfile.txt，读取它的全部内容并显示在文本框中。请填空。

7

[填空题] 下列程序计算Sn的值。Sn=a+aa+aaa+…+aaa…a，其中最后一项为n个。
例如：a=5，n=4时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。
Private Sub Command1_Click()
Dim a As Integer，n As Integer，Cout As Integer
Dim Sn As Long，Tn As Long
　 　Cout=1
　　 Sn=0
　　Tn=0
　　a=InputBox("请输入a的值:")
　　 (10)
　　Do
　　　Tn=Tn*10+a
　　　Sn=Sn+Tn
　　　Cout=Cout+1
　　 (11)
　　Debug.Print a,n,Sn
End Sub

8

[单项选择题] 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Comandl_Click()
Dim arrayl(10, 10)As Integer
Dim i As Integer, j As Integer
For i=1 To 3
For j=2 To 4
arrayl(i, j)=i+j
Next j
Next i
Text1. Text=arrayl(2, 3)+arrayl(3, 4)
End Sub
程序运行后，单击命令按钮，在文本框中显示的值是______。


A．15
B．14
C．13
D．12

9

[填空题] 类Test定义如下：
class Test public static void main(string args[])

String s1="abc"；
String s2=new String(s1)；
if(s1==s2)
System.out.println("s1==s2"；
if(s1.equals(s2))
System.out.println("s1.equals(s2)")；
那么程序的执行结果为： 【15】

10

[填空题] 下面程序是由鼠标事件在窗体上画图，如果按下鼠标将可以画图，双击窗体可以清除所画图形。补充完整下面的程序。
首先在窗体层定义如下变量：
Dim PaintStart As Boolean
编写如下事件过程：
Private Sub Form_Load ( )
DrawWidth = 2
ForeColor = vbGreen
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
PaintStart = True
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
If PaintStart Then
PSet (X, Y)
End If
End Sub
Private Sub Form_MouseUp (Button As Integer, Shift As Integer, _
X As Single, Y As Single)
______
End Sub
Private Sub Form_DblClick( )
Cls
End Sub