4. 下列程序的功能是计算N=2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。 Private Sub Command34_Click() t=0 m=0 sum=0 Do t=t+m sum=sum+t m=______ Loop While m<41 MsgBox"sum="& sum End Sub 空白处应该填写的语句是
31. 窗体中有命令按钮run34,对应的事件代码如下: Private Sub run34_Enter( ) Dim nun As Integer, a As Integer, b As Integer, i As Integer For i = 1 To 10 Bum = InputBox("请输入数据:", "输入") If Int(num/2) = num/2 Then a=a+1 Else b=b+1 End If Next i MsgBox("运行结果:a="&Str(a)&",b="&Str(b)) End Sub 运行以上事件过程,所完成的功能是______。
33. 下面程序: Private Sub Form_Click() Dim x,y,z As Integer x=5 y=7 z=0 Call Pl(x,y,z) Print Str(z) End Sub Sub P1(ByVal a As Integer,ByVal b As Integer,c As Integer) c=a+b End Sub 运行后的输出结果为______。
36. 下面编写了一个打开指定窗体的子过程OpenForms。代码如下: Sub OpenForms(strFormName As String) If strFormName=""then MsgBox"打开窗体名称不能为空!", VbCritical,"警告" Exit Sub End If DoCmd.OpenForm strFormName End Sub 如果此时需要调用该子过程打开名为“学生管理”的窗体,只需在主调过程合适的位置增添语句: ______OpenForms("学生管理") 空白处应该填写的关键字是______。