窗体的事件过程如下:
Private Sub Form MouseDown(Button As Integer ,Shift As integer,X As Single,Y As Single)If Shift = 6 And Button = 2 Then MsgBox "Hello World."End lfEnd Sub程序运行后，要在窗体消息框中显示"Hello World."，在窗体上应执行的操作是(同时按下 Ctr、Alt 键和鼠标右键)。
鼠标事件MouseDown中的Button参数用于判断鼠标操作的是左中右哪个键，可以分别用符号常量acLeftButton(左键1)、acRightButon(右键2)和acMiddleButton(中键4)来比较，本题中的if语句中条件语句Button=2，如果条件成立，那么应该按下鼠标右键；Shift参数用于判断鼠标操作的同时，键盘控制键的操作，可以分别用符号常量acAltMask (Shift键1)、acAItMask(ctrl键2)和acAItMask(AIt键4)来比较，本题中的if语句中条件语句Shift=6，如果条件成立，那么应该按下acAltMask(ctrl键2)和acAItMask(Alt键4)
第2题假设有选课成绩表score(学号，课程号，成绩等)，查询所选课程在两门以上(含两门)并且所选的课程成绩都在90分以上(含90分)的学号列表，正确的是
SELECT score.学号FROM score WHERE score.学号 Not In(select 学号 from score where 成绩 = 2SELECT语句的一般格式为：
SELECT[ALL | DISTINCT | TOP n]*|[,AS]FROM[,]...[WHERE][GROUP BY[HAVING]][ORDER BY[ASC | DESC]]; 第3题假设数据库中有学生信息表 stud(sno，sname，ssex)其中 ssex 字段已建索引，要输出最后一名男同学的信息，程序空白处应填写的语句是
Private Sub Form Load()Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordsetrs.ActiveConnection ="Provider=Microsoft.Jet.OLEDB.4.0;"&"Data Source= e:\考试中心教程\教学管理.mdb;"rs.CursorType = adOpenKeysetrsrs.LockType = adLockOptimisticrs.Index="ssex"rs.Open "stud",,,,adCmdTableDirect__________Debug.Print rs("sno "), rs("sname "), rs("ssex ")rs.CloseSet rs = NothingEnd SubDAO的Seek成员函数是在表类型记录集中基于表索引进行搜索记录，Find成员函数是在动态集类型或快照类型记录集中进行搜索记录。因为本题中性别ssex字段已建索引，因此采用Seek成员函数。AdSeekfirstEQ查找等于关键值的第一个关键字，AdseekLastEQ查找等于关键值的最后一个关键字。
第4题窗体中有文本框Text1、Text2和Text3。运行程序时，输入整数m和n(n>0)，单击按钮Command1计算下列表达式的值：SUM=m−(m+1)/2+(m+2)/3−(m+3)/4+...+(−1)n + 1(m+n−1)/nSUM=m-(m+1)/2+(m+2)/3-(m+3)/4+...+(-1)^{n+1}(m+n-1)/nSUM=m−(m+1)/2+(m+2)/3−(m+3)/4+...+(−1)n+1(m+n−1)/n 在Text3给出结果，事件代码如下：
Private Sub Command1_Click()Dim sum As Doublem = Val(me!Text1)n = Val(me!Text2)sum = 0For k = 1 to nsum = sum +【】/ kNext kMe!text3 = sumEnd Sub程序【】处应填写的语句是：llf(kMod2 = 0 , -(m + k - 1) , (m + k - 1))
窗体中有文本框Text1、Text2和Text3。运行程序时，输入整数m和n(n>0)，单击按钮Command1计算下列表达式的值：SUM=m+(m−1)/2+(m+2)/3+(m−3)/4+...+(m+(−1)n + 1(n−1))/nSUM=m+(m-1)/2+(m+2)/3+(m-3)/4+...+(m+(-1)^{n+1}(n-1))/nSUM=m+(m−1)/2+(m+2)/3+(m−3)/4+...+(m+(−1)n+1(n−1))/n 在Text3给出结果，事件代码如下：
Private Sub Command1_Click()Dim sum As Doublem = Val(me!Text1)n = Val(me!Text2)sum = 0For k = 1 to nsum = sum + (【】)/ kNext kMe!text3 = sumEnd Sub程序【】处应填写的语句是：m + llf(kMod2 = 0 , -k + 1 , k - 1)
窗体中有文本框Text1、Text2和Text3。运行程序时，输入整数m和n(n>0)，单击按钮Command1计算下列表达式的值：Sum=m−(m+1)+(m+2)−(m+3)+...+(−1)n + 1(m+n−1)Sum=m-(m+1)+(m+2)-(m+3)+...+(-1)^{n+1}(m+n-1)Sum=m−(m+1)+(m+2)−(m+3)+...+(−1)n+1(m+n−1) Text3给出结果。事件代码如下：
Private Sub Command1_Click()m = val(me!text1)n = val(me!text2)sum = 0For k = 1 to nsum = sum + 【】Next kMe!text3 = sumEnd程序【】处应填写的语句是：llf(kMod2 = 0 , -(m + k - 1) , ( m + k - 1))
窗体中有文本框Text1、Text2和Text3。运行程序时，输入整数m和n(n>0)，单击"计算"按钮Command1计算下列表达式的值：Sum=m−2(m+1)+3(m+2)−4(m+3)+...+(−1)n + 1n(m+n−1)Sum=m-2(m+1)+3(m+2)-4(m+3)+...+(-1)^{n+1} n(m+n-1)Sum=m−2(m+1)+3(m+2)−4(m+3)+...+(−1)n+1n(m+n−1) Text3给出结果。事件代码如下:
第5题窗体中有文本框Text1。运行程序，输入大于0的整数m，单击按钮Command1，程序显示由星号组成的高度和上底均为m的等腰梯形。事件代码如下：
Private Sub Command1_Click()m= Val(Me!Text1)result = ""For k = 1 To mFor n = 1 To【】if n m在窗体中有文本框Text1和Text2。运行程序时，在Text1中输入整数m(m>0)，单击Command1"运行“按钮，程序能够求出m的全部除1和自身之外的因子，例如，例如，20的因子有2,4,5,10，输出结果为"2,4,5,10,"；16的因子为2,4,8，输出结果为"2,4,8,”。事件代码如下：
Private Sub Command1 Click()m = Val(Me!Text1)resule = ""k = 2Doif m Mod k = 0 Then result = result & k & ","k = k + 1 Loop While【】Me!Text2 = resultEnd Sub程序【 】处应填写的语句是：k < m
区别：Loop While和Loop Until Do While当判断条件为真时，执行循环体，而Do Until是当判断为假时，执行循环体。
第9题窗体中有文本框Text1和标签Label1，运行程序，输入大于0的整数m，单击按钮Command1，程序判断m是否为素数，若是素数，则Label1显示"m 是素数"，否则显示”m 是合数"。事件代码如下：
Private Sub Command1_Click()m = Val(Me!Text1)result = m & "是素数"k = 2Do While k nm = m - nLoopDo While m