31、【
单选题
】 在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：
Private Sub Command1_Click( )
a = 75
If a>60 Then
k = 1
Elself a>70 Then
k = 2
Elself a>80 Then
k = 3
Elself a>90 Then
k = 4
EndIf
MsgBox k
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果是
[2分]
、
1
、
2
、
3
、
4
答案：
32、【
单选题
】 设有如下窗体单击事件过程：
Private Sub Form_Click( )
a = 1
For i = 1 To 3
Select Case i
Case 1,3
a= a+1
Case 2,4
a= a+2
End Select
Next i
MsgBox a
End Sub
打开窗体运行后，单击窗体，则消息框的输出的结果是
[2分]
、
3
、
4
、
5
、
6
答案：
33、【
单选题
】 设有如下程序：
Private Sub Command1_Click( )
Dim sum As Double, x As Double
Sum = 0
n = 0
For i = 1 To 5
x=n/i
n=n+1
sum=sum+x
Next I
End Sub
该程序通过For循环来计算一个表达式的值，这个表达式是
[2分]
、
1+1/2+2/3+3/4+4/5
、
1+1/2+1/3+1/4+1/5
、
1/2+2/3+3/4+4/5
、
1/2+1/3+1/4+1/5
答案：
34、【
单选题
】 下列Case语句中错误的是
[2分]
、
Case 0 To 10
、
Case Is>10
、
Case Is>10 And Is<50
、
Case 3,5 Is>10
答案：
35、【
单选题
】 如下程序段定义了学生成绩的记录类型，由学号、姓名和三门课程成绩（百分制）组成。
Type Stud
no As Integer
name As String
score (1 to 3) As Single
End Type
若对某个学生的各个数据项进行赋值，下列程序段中正确的是
[2分]
、
Dim S As Stud
Stud.no=1001
Stud.name="舒宜"
Stud.score=78,88,96
、
Dim S As Stud
S.no=1001
S.name="舒宜"
S.score=78,88,96
、
Dim S As Stud
Stud.no=1001
Stud.name="舒宜"
Stud.score(1)=78
Stud.score(2)=88
Stud.score(3)=96
、
Dim S As Stud
S.no=1001
S.name="舒宜"
S.score(1)=78
S.score(1)=88
S.score(1)=96
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00