31、【
填空题
】 [原创]下面的程序执行时在Text1文本框中输入一个数，鼠标点击按钮后，在Text2文本框中显示相应的数。
Private Sub Command1_Click( )
Dim k as integer
k=Val(Text1.text)
Text2.text=Str(k mod 5\2)
End Sub
当在Text1文本框中输入9，则在Text2文本框中显示的值是：
。
[每空1分]
答案：["1"]
32、【
填空题
】 下列VB程序运行时在文本框Text1中输入85，单击命令按钮Command1后，文本框Text2中输出X的值，那么程序划线入应填入语句：
，Text2中显示的是
。
Private Sub Command1_Click( )
Dim s as Integer
Dim x as String
s=Val(Text1.text)
If s>=90 then
X=”A”
ElseIf s>=60 then
X=”B”
Else
X=”C”
End if
End Sub
[每空2分]
答案：["Text2.text=X","B"]
33、【
填空题
】 编写计算1/2+2/3+3/4+4/5的程序如下：[把选择题改编成程序填空题]
Private Sub Command1_Click( )
Dim i,n as integer
Dim sum, x as Double
Sum=0
①
For i=1 to 5
②
n=n+1
sum=sum+x
Next i
Text1.text=Str(sum)
End Sub
请在程序画线处填上合适的语句
[每空2分]
答案：["n=0","X=n/i"]
34、【
填空题
】 [原创]为了求得两个正整数的所有公约数，可以设计如图所示窗体，只要用户单击破“计算”按钮，求得的所有公约数就会在列表框List1中显示出来。其中，单击“计算”按钮将执行如下程序段：
Private sub command1_click( )
Dim a,b As integer
Dim temp As integer
Dim i As integer
a=Val(Text1.text)
b=Val(Text2.text)
If a>b then
temp=a:a=b:b=temp
End if
For i=1 to a
If ________________then list1.additem i
Next i
End sub
（1）此程序主要采用了
算法。
（2）请在划线处填入合适的代码
。
[每空2分]
答案：["枚举","a mod i=0 and b mod i=0"]
35、【
填空题
】 寻找最大数。在文本框Text1中输入一串数字，输出由这些数字组合而成的最大数。算法的基本思路是：先将输入的数按位拆开，再把数从大到小排序后重新组合。如输入123，重新组合后输出的最大数是321。实现该功能的程序如下，在程序①和②划线处填入适当的语句或表达式，把程序补充完整。
Private Sub Command_Click( )
Dim a(1 to 10) as Integer
Dim n as ①
Dim i,lena,j as integer
n=Text1.text
lena=Len(n)
For i=1 to lena ‘按位取出各位数字
a(i)=Val(Mid(n,1,i)) ②
Next i
For i=1 to lena-1
For j=lena to i+1 Step -1
If ③ then
t=a(j):a(j)=a(j-1):a(j-1)=t
End If
Next j
Next i
For i=1 to lena
Text2.text=text2.text+str(a(i))
Next i
End Sub
（1）程序①中划线处应填入
。
（2）程序②中划线处语句有错，应改为：
。
（3）程序③中划线处应填入
。
[每空2分]
线下考试期中/期末考试、集中培训考试
招聘考试在线笔试、大型校招、社招
认证考试岗位认证、职业资格认证、技能考核认证
考试测验学生测验、员工考核、培训考试
新员工培训搭建新员工入职培训体系
岗位培训岗位学习地图、人才培养
知识店铺搭建专属知识店铺、实现知识变现
刷题练习题库刷题、每日一练、打卡练习
知识竞赛党建活动、安全生产活动、协会竟赛
期末考试在线考试考核提高考试管理效率
网课教育直播打卡学习等功能让网课教育更灵活
企业年会组织企业年会闯关答题赢红包活动
学校高校大规模在线考试解决方案
制造行业员工培训体系解决方案
零售行业岗位人才培养解决方案
金融行业专业技能培训解决方案
第20题—1
客服热线:400-886-8169 | 周一至周日 8:00-22:00