28、【
单选题
】 若变量i的初值为8,则下列循环语句中循环体的执行次数为
Do While i<=17
i=i+2
Loop
[2分]
、
3次
、
4次
、
5次
、
6次
答案：
29、【
单选题
】 InputBox函数的返回值类型是
[2分]
、
数值
、
字符串
、
变体
、
视输入的数据而定
答案：
30、【
单选题
】 下列能够交换变量X和Y值的程序段是
[2分]
、
Y=X:X=Y
、
Z=X:Y=Z:X=Y
、
Z=X:X=Y:Y=Z
、
Z=X:W=Y:Y=Z:X=Y
答案：
31、【
单选题
】 窗体中有命令按钮Commandl,事件过程如下：
Public Function f（x As Integer） As Integer
Dim y As Integer
x=20
y=2
f=x*y
End Function
Private Sub Commandl_Click（）
Dim y As Integer
Static x As Integer
x=10
y=5
y=f（x）
Debug .Print x;y
End Sub
运行程序，单击命令按钮，则立即窗口中显示的内容是
[2分]
、
10 5
、
10 40
、
20 5
、
20 40
答案：
32、【
单选题
】 窗体中有命令按钮Commandl和文本框Text1,事件过程如下：
Function result（ByVal x As Integer）As Boolean
If ×Mod 2=0 Then
result=True
Else
result=False
End If
End Function
Private Sub Commandl_Click（）
x=Val（InputBox（“请输入一个整数”））
If______ Then
Text1=Str（x）&“是偶数.”
Else
Text1=Str（x）&“是奇数.”
End If
End Sub
运行程序，单击命令按钮，输入19,在Text1中会显示“19是奇数”.那么在程序的空白处应填写
[2分]
、
result（x）=“偶数”
、
result（x）
、
resuIt（x）=“奇数”
、
NOT result（x）
答案：
33、【
单选题
】 窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下：
Private Sub Commandl_Click（ ）
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1 .Value=Str（x）
End Sub
运行以上事件过程，文本框中的输出是
[2分]
、
6
、
12
、
18
、
21
答案：
34、【
单选题
】 窗体中有命令按钮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
运行以上事件过程，所完成的功能是
[2分]
、
对输入的10个数据求累加和
、
对输入的10个数据求各自的余数，然后再进行累加
、
对输入的10个数据分别统计奇数和偶数的个数
、
对输入的10个数据分别统计整数和非整数的个数
答案：
35、【
单选题
】 运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是
Private Sub Form _click（）
Dim sum AsInteger,m As Integer
sum=0
Do
m=InputBox（“输入m”）
sum=sum+m
Loop Until m=0
MsgBox sum
End Sub
[2分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
客服热线:400-886-8169 | 周一至周日 8:00-22:00