单项选择题
窗体中有命令按钮Command1,事件过程如下。
Public Function f(x As Integer)As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Command1_Click()
Dim y As Integer
Static x As Integer
x=10
y=5
y=f(x)
DebugPrint x;y
End Sub
运行程序,单击命令按钮,则立即窗口中显示的内容是( )。
A) 10 5
B) 10 40
C) 20 5
D) 20 40
点击查看答案&解析
<上一题
目录
下一题>
热门
试题
单项选择题
窗体中有命令按钮run34,对应的事件代码如下。 Private Sub run34_Enter() Dim num As Integer,a As Integer,b As Integer,i As Integer For i=1 To 10 num=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 运行以上事件过程,所完成的功能是( )。
A) 对输入的10个数据求累加和
B) 对输入的10个数据求各自的余数,然后再进行累加
C) 对输入的10个数据分别统计奇数和偶数的个数
D) 对输入的10个数据分别统计整数和非整数的个数
点击查看答案&解析
单项选择题
下面编写了一个打开指定窗体的子过程OpenForms。代码如下。 Sub OpenForms(strFormName As String) If strFormName= then MsgBox 打开窗体名称不能为空! ,VbCritical, 警告 Exit Sub End If DoCmd.OpenForm strFormName End Sub 如果此时需要调用该子过程打开名为“学生管理”的窗体,只需在主调过程合适的位置增添语句: OpenForms( 学生管理 ) 空白处应该填写的关键字是( )。
A) Open
B) OpenForm
C) Call
D) Function
点击查看答案&解析
相关试题
如下程序段定义了学生成绩的记录类型,由学...
定义无符号整数类为UInt,下面可以作为类UI...