（1）有如下程度段：
X=5
Y=-20
If  Not x>0 Then x=y-3  Else y=x+3
该程序段运行后，y的值为：___ 。
（2）有如下VB程序段：
a = 3: b = 4: c = 5
If a >= b And a >= c Then
y = a
ElseIf b >= c Then
y = b
Else
y = c
End If
该程序段运行之后，整数型变量y的值:_____。
（3）火车托运行李，根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费；若超过50千克，超过部分则按每千克0.5元收费。输入托运行李的重量，计算并输出托运行李的费用。下面程序若用于实现上述目标，则划线处的语句应更改为_________________________。
Sub command1_click( )
Dim x as double
X=val(text1.text)
If x<=50  then
Text2.text= str(0.35*x)
Else
Text2.text= str(0.5*x)
Endif
End sub
（4）求n阶乘（n!=1*2*3*4*n）,划线处的语句应为.
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim f As Long
n = Val(Text1.Text)
f = 1
i = 1
Do While i <= n
__________________________
i = i + 1
Loop
Text2.Text = Str(f)
End Sub

人们常使用计算机程序解决一些实际问题。下面程序可以找出能被2、3、5除，余数为1的最小的4个正整数。（注：VB中不区分大小写）请分析程序回答问题。
Private Sub Command1_Click（   1  ）
Dim CountN%, n%
CountN=0
N=1
Do
N=n+1
If n Mod 2=1 And n Mod 3=1 And n Mod 5=1 Then
Print n
CountN=CountN+1
End If
Loop___2___①___3___
End Sub
【小题1】利用计算机编程解决问题的过程中，需要使用一种程序设计语言来实现算法，这个过程叫做(　　)

A．设计程序

B．测试程序

C．运行程序

D．编写程序

【小题2】VB中保存工程文件的文件扩展名为(　　)

A．.mdb

B．.frm

C．.vbp

D．.fla

【小题3】程序中的If语句一般在流程图中用(    )表示

A．平行四边形

B．菱形

C．矩形

D．正方形

【小题4】变量CountN的数据类型定义为（ ）

A．Integer

B．Single

C．Double

D．String

【小题5】变量CountN的作用是（ ）

A．求和

B．求平均值

C．求最大值

D．计数

【小题6】所用到的表示循环的标志性语句是（）

A．Dim……End If

B．Do…Loop

C．Dim……Loop

D．Do……End If

【小题7】在这个循环中，CountN=CountN+1语句被执行（）

A．1次

B．2次

C．3次

D．4次

【小题8】①处的语句应该是（）

A．Until CountN =2	B．Until CountN =4
C．Until Countn =2	D．Until Countn =4

【小题9】这段程序的输出结果是(　　)

A．31

B．33

C．35

D．37

【小题10】VB语言中，下列合法的变量名是（ ）

A．12ab

B．ab12

C．*abcd

D．c\c

【小题11】下列控件中可用于接收用户输入文本，又可用于显示文本的是（ ）

A．Label控件

B．TextBox控件

C．CommandButton控件

D．Timer控件

【小题12】VB中，下列哪一函数作用是将数值转化成字符串（ ）

A．Val(  )

B．Asc(  )

C．Abs(  )

D．Str(  )

【小题13】下列（ ）算法就是一种直接或者间接地调用自身的算法

A．穷举算法

B．排序算法

C．递归算法

D．解析算法

【小题14】程序中Command1控件响应的事件是（ ）

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题15】在VB中，“20”+“ 19”的运算结果是（ ）

A．“39”

B．False

C．“20+19”

D．“2019”

为了丰富学生业余生活，学校举办校园歌手大赛，邀请了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．混合结构

有如下VB程序段：
Private Sub Command1_Click()
Dim n As Integer, r As Integer, s As String
Dim t As Integer, k As Integer, v As Integer
n = 35: t = 0: k = 0
s = ""
Do While n > 0
r = n Mod 2
n = n \ 2
t = t + r
k = k + 1
s = Str(r) + s
Loop
s = Mid("0000000", 1, 7 - k) + s
v = t Mod 2
Text1.Text = s + Str(v)
End Sub
执行该程序段后，文本框Text1中显示的内容是

A．1 0 0 0 1 1 1

B．0 1 0 0 0 1 1 1

C．1 1 0 0 0 1 1

D．1 1 0 0 0 1 0 1

有如下 Visual Basic 程序段： 
S = 0
For i = 1 To 5

s = s + i  

Next i
If i <= 5 Then
Text1.Text = Str(s)
Else
Text1.Text = Str(s + i)
End If
该程序段运行后，在文本框Text1中显示的是

A．5

B．6

C．15

D．21

小王编写了一个统计多选题分数的VB程序。得分规则是：多选题共有6个候选项（A、B、C、D、E、F），全部答对得2分，部分答对得1分，未作答或有错误答案0分。设计一个能够评分的程序，要求如下：在文本框Text1中输入标准答案，在文本框Text2中输入学生答案（输入时必须按字母从小到大顺序输入）。点击评分按钮Command1后，将得分显示在标签Label4中。程序界面如题图所示：
（1）要使程序运行后，窗体Form1的标题栏中显示“评分”，正确的做法是______（单选，填字母）

A．将窗体的Text属性改为“评分”

B．在Form_Load()事件中输入代码 Form1.Caption="评分"

C．在Form1_Load()事件中输入代码

Form．Name="评分"
（2）实现上述功能的程序如下，请在划线处填入合适的代码：
Private Sub Command1_Click()
Dim cans As String ,ans As String ,ch As String ,c As Integer
Dim f(1 To 6) As Boolean
cans = Text1.Text
ans = ①____________
c = 0
For i = 1 To 6
f(64+i)=False
Next i
For i = 1 To Len(cans)
ch = Mid(cans, i, 1)
f(Asc(ch) - 64) = True
Next i
For i = 1 To ②___________     
ch = Mid(ans, i, 1)
If f(Asc(ch) - 64) = False Then
c = 0: Exit For
Else
c  = c + 1
End If
Next i
If c = 0 Then
Label4.Caption = "0分"
ElseIf c = Len(cans) Then    
Label4.Caption = "2分"
Else
Label4.Caption = "1分"
End If
End Sub
（3）若去除加框处代码，且将文本框Text2的内容改为“BCD”，标签Label4显示的内容是________。

设计算法，求个位不小于十位的两位数的和，请将如下VB代码填写完整。
Dim n as integer
n = 10
（1）__________
do while n <= 99
if （2）__________  then
s = s+n
end if
n = n + 1
loop
print  s

以下VB代码运行结果为    。
Dim s as long
Dim k as integer
Dim j as integer
s=0
for k = 1 to 3
for j = 1 to k
s=s+1
next
next
print s

A．9

B．6

C．5

D．10

将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

（1）代码“Private Sub Command1_Click()”中的 Click 是_________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

有如下 VB 程序段：
n = Val(Text1.Text)
For i = 3 To 1 Step -1

If n Mod 2 = 1 Then

n = n\ 2
Else
n = 2 * n + 3
End If
Next i
Label1.Caption = Str(n)
运行该程序，在文本框 Text1 中输入 13，下列说法正确的是（   ）

A．执行程序结束后，标签 Label1 显示 7	B．语句“n=n\2”第一次被执行时，等式右边 n=6
C．程序结束后 i 值为 1	D．语句“n=2*n+3”总共执行 2 次