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分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00