7. 在窗体中添加一个名称为Command1的命令按钮,然后编写如下事件代码: Private Sub Command1_Click() MsgBox f(24,18) End Sub Public Function f(m As Integer, n As Integer)As Integer Do While m<>n Do While m>n m=m-n Loop Do While m<n n=n-m Loop Loop f=m End Function 窗体打开运行后,单击命令按钮,则消息框的输出结果是______。
12. 在窗体上有一个命令按钮Command1,编写事件代码如下: Private Sub Command1_Click() Dim d1 As Date Dim d2 As Date d1=#12/25/2009# d2=#1/5/2010# MsgBox DateDiff("ww",d1,d2) End Sub 打开窗体运行后,单击命令按钮,立即窗口上输出的结果是______
B.SELECT TOP 2*FROM 商品 WHERE 部门号="40" GROUP BY 单价 DESC
C.SELECT TOP 2*FROM 商品 WHERE 部门号="40" ORDER BY 单价
D.SELECT TOP 2*FROM 商品 WHERE 部门号="40" ORDER BY 单价 DESC
A B C D
D
[解析] 要查找出“40”号部门单价最高的前两条记录,首先需要查找出部门号是40的所有记录,再用“ORDER BY 单价 DESC”对单价按降序排列,然后再利用“TOP 2”显示前两条记录,为实现此目的所使用的SQL语句为:SELECT TOP 2*FROM 商品 WHERE 部门号="40" ORDER BY 单价 DESC。故选项D正确。
34. 窗体上有一个名为text1的文本框和一个名为command1的命令按钮,事件过程如下: Private Sub command1_click() Dim i As Integer,n As Integer For j=0 to 50 i=i+3 n=n+1 If i>10 Then Exit For Next j text1=str(n) End Sub 程序运行时单击命令按钮,文本框中显示的值是______。