26、【
单选题
】 在过程定义中有语句:
Private Sub GetData (ByVal data As Integer)
其中“ByVal”的含义是( )。
[2分]
、
传值调用
、
传址调用
、
形式参数
、
实际参数
答案:
27、【
单选题
】 在窗体中有一个命令按钮(名称为run34),对应的事件代码如下:
Private Sub run34_Click( )
sum=0
For i=10 To 1 Step -2
sum=sum+i
Next i
MsgBox sum
End Sub
运行以上事件,程序的输出结果是( )。
[2分]
、
10
、
30
、
55
、
其他结果
答案:
28、【
单选题
】 在窗体中有一个名称为run35的命令按钮,单击该按钮从键盘接收学生成绩,如果输入的成绩不在0到100分之间,则要求重新输入;如果输入的成绩正确,则进入后续程序处理。run35命令按钮的Click的事件代码如下:
Private Sub run35_Click( )
Dim flag As Boolcan
result=0
flag=True
Do While flag
result=Val(InputBox("请输入学生成绩:", "输入"))
If result>=0 And result <=100 Then
___________
Else
MsgBox "成绩输入错误,请重新输入"
End If
Loop
Rem 成绩输入正确后的程序代码略
End Sub
程序中有一空白处,需要填入一条语句使程序完成其功能。下列选项中错误的语句是( )。
[2分]
37、【
填空题
】 已知数列的递推公式如下:
f(n)=1 当n=0,1时
f(n)=f(n-1)+f(n-2) 当n>1时
则按照递推公式可以得到数列:1, 1, 2, 3, 5, 8, 13, 21, 34, 55, ……。现要求从键盘输入n值,输出对应项的值。例如当输入n为8时,应该输出34。程序如下,请补充完整。
Private Sub runl1_Click( )
f0=1
f1=1
num=Val(InputBox("请输入一个大于2的整数: "))
For n=2 To
f2=
f0=f1
f1=f2
Next n
MsgBox f2
End Sub
[每空2分]
答案:["num","f0+f1"]
38、【
填空题
】 现有用户登录界面如下:
窗体中名为username的文本框用于输入用户名,名为pass的文本框用于输入用户的密码。用户输入用户名和密码后,单击“登录”名为login的按钮,系统查找名为“密码表”的数据表,如果密码表中有指定的用户名且密码正确,则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”:如果用户名或密码输入错误,则给出相应的提示信息。
密码表中的字段均为文本类型,数据如下图。
单击“登录”按钮后相关的事件代码如下,请补充完整。
Private Sub login_Click( )
Dim str As String
Dim rs As New ADODB.Recordset
Dim fd As ADODB.Field
Set cn=CurrentProject.Connection
logname=Trim(Me!uscrname)
pass=Trim(Mc!pass)
If Len(Nz(logname))=0 Then
MsgBox "请输入用户名"
ElseIf Len(Nz(pass))=0 Then
MsgBox "请输入密码"
Else
str="select*from 密码表 where 用户名=' " & logname &
" ' and 密码=' " & pass & " ' "
rs.Open str, cn, adOpenDynamic, adLockOptimistic, adCmdText
If
Then
MsgBox "没有这个用户名或密码输入错误,请重新输入"
Me.username=""
Mc.pass=""
Else
Set
=rs.Fields("权限")
If fd="管理员" Then
DoCmd.Close
DoCmd.OpenForm "管理员窗体"
MsgBox "欢迎您,管理员"
Else
DoCmd.Close
DoCmd.OpenForm "用户窗体"
MsgBox "欢迎使用会员管理系统"
End If
End If
End If
End Sub
[每空2分]