小杨同学编写了一个VB程序用于学校里7选3选课情况统计。该程序主要功能有：1．点击“生成选课组合”按钮 Commandl，生成35种选课组合；2．点击“统计选课情况”按钮 Command2，统计出各种组合的选课人数；运行界面如下图。实现上述功能的VB程序如下，请回答下列问题：

（1）分析程序代码，如图里“选课组合”序号为30的组合名称为：___________________。
（2）请在划线处填入合适的代码。请回答下列问题：
Dim zh(1 To 16) As String, zrs As Integer
Dim xk(1 To1000) As String'存放同学的选课科目组合，已知学生人数少于1000人
Dim zh2(1 To 35) As String'存放35种选课科目组合
Dim rstj(1 To 35) As Integer'存放各种选课组合选课人数
Private Sub Form_ Load()
‘本过程从数据库中读取学生的选课情况数据，存放在数组xk中，学生的总人数存放在变量zrs。’代码略
End Sub
Private Sub Command l_ Click( )
Dim i As Integer,j As Integer, m As Integer, n As Integer, k As Integer
Dim km(1 To 7)As String
Listl.Clear
List1. AddIton“序号”+“” +“组合名称”
km(1)= “物”:km(2)= “化”:km(3)= “生”km(4)= “政”
km(5)= “史”km(6)= “地”:km(7)= “技”
m= 1
For i= 1 To 5
For k= i+1 To 6

zh(m)=km(i)+ km(k)

m= m+ 1

Next k
Next i
j= 3:n= 1:y= j
For i= 1 To m

For k= y To 7

zh2(n)=___________________________________
If n< = 9 Then
Listl. AddItem n &""&" "& zh2(n)
Else
Listl. AddItem n &"  "& zh2(n)
End If
n= n+ 1

Next k

y= y+ 1

If y=8 Then

j= ___________________________  :y= j

    End If
Next i
End sub
Private Sub Command2_ Click( )
Dim i As Integer

List2. Clear

List2. Additon"组合名称"+""+"选课人数”

For i= 1 To 35

rstj(i)=_____________________________

List2 AddItem zh2(i)+" "+ Str (rstj (i))
Next i
End Sub
Function tj (zhmc As String) As Integer'统计某种选课组合的选课人数
Dim i As Integer, rs As Integer
rs= 0
For i= I To zrs

If zhmc = xk(i) Then

rs= rs+ 1

End If

Next i
tj= rs
End Function

编写“幸运数字”程序，功能如下：在文本框Text1中输入出生日期，单击“算一算”按钮Command1，将日期中所有的数字按位相加，若结果为两位数则继续按位相加，直到结果为一位数，如出生日期为2003/08/11，数字按位相加2+0+0+3+0+8+1+1＝15，15按位相加1+5＝6。运行界面如图所示。

（1）程序窗体中共有_________类对象。
（2）请在划线处填入合适的代码。 
Private Sub Command1_Click()
Dim luck As Integer
Dim sr, c As String
luck = 0
sr = Text1.Text
If Len(sr) = 10 Then ’输入的格式长度符合条件
For i = 1 To Len(sr)
c = __________
If c >= "0" And c <= "9" Then
luck = luck + Val(c)
End If
Next i
Do While luck > 9
luck = luck Mod 10 +__________
Loop
Label2.Caption =“你的幸运数字是：”+str(luck)
Else
Label2.Caption = "输入有误，请重输！"
End If
End Sub
（3）若在文本框Text1中输入“2004/08/18”，Label2中显示的内容为__________。

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了5位音乐老师作为评委打分，打分的上限是10分。统计选手得分时，去掉一个最高分，再去掉一个最低分，取评委打分的平均值作为选手的最终得分。程序运行结果界面如图所示。

请分析任务，完成下列题目。
程序代码如下：
Private Sub Command1_Click()
Dim s, As single
Dim Max , Min ,I As Integer
Dim a(5) As Integer
Max = 0
Min =    ①      
s = 0   
For i = 1 To 5
a(i) = InputBox("请输入第" & i & "个分数")
s = s + a(i)
If     ②   Then Max = a(i)  
If  Min > a(i) Then Min = a(i)   
Next i
s = ③  
Text1.Text = Max
Text2.Text = Min
Text3.Text = s
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Command3_Click()
End
End Sub
请分析任务，完成下列题目。
【小题1】在界面设计阶段，下列能清空文本框中内容的属性是

A．name

B．text

C．font

D．value

【小题2】在界面设计阶段，当双击窗体上的“计算”命令时，所打开的窗口是

A．代码窗口

B．属性窗口

C．工具箱窗口

D．工程资源管理器窗口

【小题3】下列控件在本程序窗体中用到的是

A．列表框

B．单选按钮

C．标签

D．组合框

【小题4】为精确计算选手的最终得分，程序中变量s的数据类型应定义为

A．整型

B．单精度型

C．字符型

D．布尔型

【小题5】在Visual Basic 6.0中，下列是窗体文件默认扩展名的是

A．vbp

B．frm

C．bas

D．exe

【小题6】程序中①所在位置表达式正确的是

A．0

B．1

C．5

D．10

【小题7】程序中②所在位置表达式正确的是

A．Max < a(i)

B．Max >a(i)

C．Max =a(i)

D．Max <> a(i)

【小题8】程序中③所在位置表达式正确的是

A．s/3

B．(s+Max+ Min)/5

C．(s - Max - Min) / 3

D．(s - Max - Min) / 5

【小题9】在设计程序界面时，要把Command1命令按钮上显示的文字“计算”字体设成“微软雅黑”，下列Command1控件的属性应设置的是

A．Caption

B．Font

C．Default

D．name

【小题10】变量s所表示的含义是

A．最低分

B．最高分

C．评委打分

D．最终得分

【小题11】当一个选分的得分分别为9，8，9，7，8的时候，下列最终得分计算正确的是

A．8

B．8.33

C．7.66

D．7

【小题12】程序中Command1控件响应的事件是

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题13】程序中数组a(5)包含的元素个数是

A．1

B．5

C．6

D．10

【小题14】程序“For i = 1 To 5 ……Next i”中“s = s + a(i) ”被执行的次数是

A．1

B．4

C．5

D．6

【小题15】下图程序结构属于

A．顺序结构

B．分支结构

C．循环结构

D．混合结构

分析完善程序。
假设银行的年存储利率为3%，如果现在存储10000元钱，问多少年后连本带利超过12000元。设定：连本带利=本金*（1+利率）^∧年数
假设n年后连本带息超过12000，根据题意得出数学关系式：10000*（1+3%）^∧n>12000，求最小的n。
（参考程序）
Dim s as single
Dim r as single
Dim n as integer
s=10000
r=0.03
n=0
Do while 
n=n+1
s=s*(1+r)
Loop
Print n;”年后”:”连本带利超过”；s
根据上述回答下列问题
（1）本题采用的算法是___________（填写：解析法/穷举法/排序法/递归法）
（2）写出参考程序中空白处表达式__________________________________ 。

素数只能被1和它本身整除，不能被其他自然数整除。编写VB程序实现如下功能：单击“产生奇数并判断”按钮Command1，随机产生一个三位正奇数显示在文本框Text1中，并在文本框Text2中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为953时，程序运行界面左图所示。

 

 

 (1)在设计程序界面时，应使用上方右图所示“控件工具箱”中的______(填写相应编号)添加文本框Text1。
(2)实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ’用于标记是否为素数
Randomize
n = Int(①_____________)*2+1
Text1.Text = Str(n)
flag = True ’标记为素数
i = 3
Do While i <= n - 1 And flag = True
If  n Mod i = 0  Then
flag = False
End If 
i = i + 2
Loop
If ②______________ Then
Text2.Text = Str(n) + “是素数”
Else
Text2.Text = Str(n) + “不是素数”
End If
End Sub
(3)以下选项中，与加框处表达式“n Mod i = 0”等价的是___________(单选，填字母）。

A．  n \ i = Int(n / i)

B．n \ i = n/ i

C．n Mod i = n \ i