16729b36eb1811ae4641f73698b43d27-1

Private Sub Command1_Click()

f0 = 1 : f1=1:k=1

Do While k <= 5

f = f0 + f1

 f0 = f1

 f1 = f

k = k + 1

Loop

MsgBox "f=" & f

End Sub

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

窗体打开运行后，单击命令按钮，则消息框的输出结果是

Private Sub Command1_Click()

Dim d1 As Date

Dim d2 As Date

d1 = #12/25/2014#

d2 = #1/5/2015#

MsgBox DateDiff("ww",d1,d2)

End Sub

打开窗体运行后，单击命令按钮，消息框中输出的结果是

      *

    ***

   *****

  *******

 *********

对应的单击Command1的事件代码如下。

Private Sub Command1_Click()

m = Val(Me!Text1)

result = ""

For k=1 To m

For n=1 To k+m-1

If【 】Then

result = result & " "

Else

result = result & "*"

End If

Next n

Result = result + Chr(13)

Next k

MsgBox result,"运行结果"

End Sub

程序【 】处应填写的内容是

Sub GetRecNum()

Dim rs As Object

Set rs =【 】

MsgBox rs.RecordCount

End Sub

为保证程序输出记录集(窗体记录源)的记录数，【】中应填入的内容是