37. 在窗体中添加一个名称为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 窗体打开运行后,单击命令按钮,则消息框的输出结果是。
38. 在窗体上有一个命令按钮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 打开窗体运行后,单击命令按钮,消息框中输m的结果是。