（加试题）单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字1~n依次作为队伍编号，把编号按U型走向分成均等两边(若n为奇数，则在末尾增加编号0，使总数为偶数)，即可得到第一轮的比赛顺序，例如,5个队伍的比赛编排情况如图a所示；第二轮开始，固定编号1，其余编号均按逆时针方向移动一个位置，即为该轮比赛顺序；以后各轮比赛顺序以此类推，与编号0对阵的表示本轮轮空。

第一轮 1-0 2-5 3-4

第二轮 1-5 0-4 2-3

第三轮 1-4 5-3 0-2

第四轮 1-3 4-2 5-0

第五轮 1-2 3-0 4-5

 
小赵为此编写了VB程序，功能如下：在文本框Text1中输入参赛队伍数N，单击“编排”按钮command1，在列表框list1中输出每轮比赛顺序。程序运行效果如图所示。

实现上述功能的VB代码如下，
Private Sub Command1_Click()
Dim team(1 To 20) As String
Dim n As Integer, c As Integer, result As String
Dim i As Integer, j As Integer, temp As String
n = __________
For i = 1 To n
team(i) = Str(i)
Next i
c = n + n Mod 2
If c <> n Then team(c) = Str(0)
For i = 1 To n
result = ""
For j = 1 To c \ 2
result = result & team(j) & "-" & __________ & ";"
Next j
List1.AddItem "第" & Str(i) & "轮：" & result
temp = team(c)
For j = c To 2 Step -1
team(j) = _________
Next j
team(2) = temp
Next i
End Sub

小婷编写了一个VB程序，实现如下功能，在文本框text1中输入一个4位整数zs，单击解密按钮后，在list1列表框中显示当前zs值降序开始的10位相邻整数“解密前”和“解密后”的信息，运行界面如第图所示。
解密规则：将整数中各个位中的每一位值乘以5，然后除以8所得余数即为该位的值，然后将所得数的首末位进行交换。如数字9357，解密后的值为 3715。

（1）观察程序代码，可知“解密”按钮的对象名是     。
（单选，填字母：

A．Command1

B．List1

C．Decryp_Click( )

D．Decryp

E．解密）

（2）实现上述功能，请在划线处填入合适的代码。
Private Sub Decryp_Click( )
Dim zs As Long, g As Integer, s As Integer, b As Integer, q As Integer
Dim jmh As String, m As Integer
zs = Val(Text1.Text)
For m = zs To ①   
q = (m \ 1000) * 5 Mod 8
b = ((m \ 100) Mod 10) * 5 Mod 8
s = ((m \ 10) Mod 10) * 5 Mod 8
g = (m Mod 10) * 5 Mod 8
jmh =  ②  
List1.AddItem Str(m) + "  " + jmh
Next m
End Sub
（3）由上述算法可知，四位数“6124”对应的解密数值是 。

某电信部门规定：拨打市话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.2元，如果通话时间超过3分钟，则超过部分以每分钟0.1元收取通话费（通话时间为整数）。下面是计算通话费用的流程图和程序，请分析并回答问题。
 
（1）用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的___________步骤
（2）上图中的流程图中菱形表示的是________________
（3）在下列选项中，不属于VB的对象的是（_____）   
A.窗体的背景颜色 B.命令按钮   C.文本框 D.标签
（4）根据题意，完善流程图作图，填写空白处①______________________
（5）下图是计算通话费用程序窗体界面布局示意图。

Command1_Clik事件过程如下。请填写程序空白处。
Private Sub Command1_Click()
Dim ________as __________
x = Val(Text1.Text)
____________________ Then
’条件语句 
_________________________
’显出时间不超过3分钟的电话费
Else
Text2.Text = Str(0.2 + 0.1 * (x - 3)) ’显出通话时间超过3分钟时的电话费
End If
End Sub
（6）这段程序属于__________结构程序设计。
（7）要使一个命令按钮显示文字“确定”，正确的设置是把该命令按钮的（_________）。
A.属性Font设置为“确定” B.属性.ForeColor设置为“确定”
C.属性Caption设置为“确定” D.属性BorderStyle设置为“确定”
（8）“’条件语句”它对程序的运行（____________）
A.起一定作用 B.有时候起作用
C.不起任何作用，但是必须的 D.不起任何作用，但能增加程序的可阅读性
（9）在调试程序的时候，经常要设置断点，设置断点的快捷键是______________
（10）在程序调试程序过程中，___________（填：“编译错误”或“逻辑错误”或“执行错误”）是计算机检查不出来的

(加试题)有如下VB程序段：
Private Sub Command1_Click()
Dim i As Integer, s As Integer
s = 0
For i = 1 To 5 Step 3
s = s + fun(i)
Next i
Text1.Text = Str(s)
End Sub
Function fun(n As Integer) As Integer
If n = 1 Then
fun = 2
Else
fun = fun(n - 1) + n
End If
End Function
执行完该程序后，S的值为( )

A．7

B．11

C．13

D．25

下列VB 程序用于求2个正整数(均小于10000)的最大公约数:
Private Sub Command1_Click()
Dim x As Integer,y As Integer,z As Integer
x=Val(Text1.Text) ‘第1 个正整数
y=Val(Text2.Text) ‘第2 个正整数
‘调用函数gcd
Text3.Text=Str(z)
End Sub
Function gcd(a As Integer,b As Integer) As Integer
Do While a <> b
If a>b Then a=a-b Else b=b-a
Loop
gcd=b
End Function
方框中的正确语句是(  )

A．z=gcd

B．z=gcd(a,b)

C．z=gcd(x,y)

D．z=gcd x,y

程序运行界面如图所示。

要求在文本框Text1中输入字符串，单击“统计”按钮Command1后，在标签Label2中显示所输入字符串长度。需要编写的VB事件处理过程的名称为(  )

A．Command1_Click	B．Text1_Click
C．Form_Click	D．Label2_Click

下列文件中属于工程文件的是（ ）

A．五子棋.frm

B．五子棋.exe

C．五子棋.vbp

D．五子棋.caption

在VB窗体中有一个对象，该对象的属性窗口如图所示，下列说法不正确的是(   )

A．Interval为属性名

B．1680为属性值

C．该对象的名称为Timer1

D．根据“Timer1 Timer”可判断窗体名为Timer

在Visual Basic中，语句Label1.Caption = "欢迎使用本系统!" 中的"Label1"是(    )

A．属性值

B．属性名

C．对象名

D．类名

"计算计件工资"的 Visual Basic 程序运行界面如图所示，单击"计算"命令按钮 Command1，触发的事件处理过程名是（   ）

A．Command1_Click

B．Text1_Click

C．Form_Click

D．Label3_Click