contraction
retraction
expansion
shrinkage
第1题:
假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单项的名称为a1,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是
A.Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Button=1 And Button=2 Then PopupMenu a1 End If End Sub
B.Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) PopupMenu a1 End Sub
C.Private Sub Form_MousoDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Button=1 Then PopupMenu a1 End If End Sub
D.Private Sub Form_MouseDown(Button As Integer,_ Shift As Integer,X As Single,Y As Single) If Buaon=2 Then PopupMenu a1 End If End Sub
第2题:
有下列SQLSELECT语句:
SELECT*FORM. 成绩表 WHERE 物理 BETWEEN 80 AND 90
下列与该语句等价的是( )。
A.SELECT*FORM. 成绩表 WHERE物理<=90AND 物理>=80
B.SELECT*FORM. 成绩表 WHERE物理<90AND 物理>80
C.SELECT*FORM. 成绩表 WHERE物理>=90AND 物理<=80
D.SELECT*FORM. 成绩表 WHERE物理>90 AND 物理<80
第3题:
执行下列程序后,鼠标单击窗体,输出结果为 。
Private Sub Form_Click()
Print "Click";
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print "Donw"
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift _
As Integer, X As Single, Y As Single)
Print " Up"
End Sub( )。
A.DownUpClick
B.ClickDownUp
C.DownClickUp
D.UpDownClick
第4题:
有如下SQL SELECT语句 SELECT*FORM工资表WHERE基本工资<=2000 AND基本工资>=1500下列与该语句等价的
A.SELECT * FORM. 工资表 WHERE 基本工资 BETWEEN 1500 AND 2000
B.SELECT * FORM. 工资表 WHERE 基本工资 BETWEEN 2000 AND 1500
C.SELECT * FORM. 工资表 WHERE 基本工资 FROM 1500 INTO 2000
D.SELECT * FORM. 工资表 WHERE 基本工资 FROM 2000 INT0 1500
第5题:
下面程序是由鼠标事件在窗体上画图,如果按下鼠标可以画图,双击窗体则可以清除所画图形。补充完整下面的程序。首先在窗体层定义如下变量:
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
第6题:
有如下SQL SELECT语句
SELECT * FORM. 工资表 WHERE 基本工资<=2000 AND 基本工资>=1500
下列与该语句等价的是
A.SELECT * FORM. 工资表 WHERE 基本工资 BETWEEN 1500 AND 2000
B.SELECT * FORM. 工资表 WHERE 基本工资 BETWEEN 2000 AND 1500
C.SELECT * FORM. 工资表 WHERE 基本工资 FROM 1500 INTO 2000
D.SELECT * FORM. 工资表 WHERE 基本工资 FROM 2000 INTO 1500
第7题:
A.blank
B.restrictive
C.special
D.qualified
第8题:
检索选修课程"C2”的学生中成绩最高的学生的学号,正确的SELECT语句是______。
A.SELECT S# FORM. SC WHERE C#="C2"AND GRADE>=(SELECT GRADE FORM. SC WHERE C#="C2")
B.SELECT S# FORM. SC WHERE C#="C2"AND GRADE IN(SELECT GRADE FORM. SC) WHERE C#="C2"
C.SELECT S# FORM. SC WHERE C#="C2"AND GRADE NOT IN(SELECT GRADE FORM. SC WHERE C#="C2")
D.SELECT S# FORM. SC WHERE C#="C2"AND GRADE>=ALL(SELECT GRADE FORM. SC WHERE C#="C2")
第9题:
设已经在菜单编辑器中设计了窗体的快捷菜单,其顶级菜单为Bt,取消其“可见”属性,运行时,在以下事件过程中,可以使快捷菜单相应鼠标右键菜单的是
A.Private Sub Form_MouseDown(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button=2 Then PopupMenu Bt, 2 End Sub
B.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt End Suh
C.Private Sub Form. MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt,0 End Sub
D.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt End Sub
第10题:
编写如下代码:
Dim Flag As Boolean
Private Sub Form. MouseDown (Button As Integer,
Shift As Integer, X As Single, Y As Single)
Flag = True
End Sub
Private Sub Form. MouseMove (Button As Integer,
Shift As Integer, X As Single, Y As Single)
Flag = False
End Sub
Private Sub Form_ MouseUp (Button As Integer,
Shift As Integer, X As Single, Y As Single)
If Flag = False Then
Print "DDDD"
End If
End Sub
程序运行后,如果想在窗体上输出DDDD,则应执行的操作为______。