（加试题）小明编写了一个VB程序，功能如下：在文本框Text1中输入一段英文，并在文本框Text2中输入英文段落中的某个单词（或字符串），单击“最大间距”按钮（Command1）后，在文本框Text3中显示该单词在文中某两次出现的最大间距，若只出现一次或不出现则显示值为0。程序运行界面如下图所示：

实现上述功能的VB程序如下：
Private Sub Command1_Click()  
Dim a(1 To 1000) As String   '数组a存储文中出现该指定单词(或字符串)的各个位置
Dim s As String, c As String ,ch As String
Dim n As Integer, max As Integer, i As Integer
s = Text1.Text 
c = Text2.Text
n = 0: Max = 0
For i = 1 To Len(s) - Len(c) + 1
ch = ①
If ch = c Then
n = n + 1
a(n) = i
If n >= 2 Then
If a(n) - a(n - 1) - Len(c) > Max Then Max = a(n) - a(n - 1) - Len(c)
End If
End If
Next i
Text3.Text =  ② 　
End Sub
以上程序段运行时，为了实现上述功能，划线处①和②应填入的代码分别为： 
（1）_______________________________; （2）_______________________________

（加试题）某VB程序使用了递归函数，代码如下：
Private Sub Command1_Click()
Text1.Text = f(3)
End Sub
Function f(x As Integer) As String
If x = 1 Then  f = 1  Else  f = f(x - 1) + 2
End Function
运行程序并点击按钮Command1后，文本框Text1中显示的内容是（ ）

A．1

B．3

C．5

D．7

（加试题）某一条形码是由13位数字组成的编码，其末位是校验码。条形码校验的方法如下：
①除校验码之外，求其余12位编码中的奇数、偶数的数字之和；
②将偶数的数字之和乘以3，加上奇数的数字之和；
③取第②步得到结果的个位数字，用10减去该数字，将得到的结果存入变量m；
④若m的值为10，则将m的值修改为0，否则不变；
⑤若m和校验码相等则输出“校验码正确！”，否则输出“校验码错误！”。
现编写一个VB程序，实现如下功能:在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
Dim s As String, x As Integer
Dim n As Integer , js As Integer, os As Integer, m As Integer
Js=0: Os=0    
s = Text1.Text
 n = Log(s)     改正:_______________①
If n <> 13 Then
Label1.Caption = "条形码位数错误!"[:学#科#网Z#X#X#K]
Else
For i = 1 To 12
x = Val(Mid(s, i + 1, 1))     改正:______________② 
If x Mod 2 <> 0 Then
js = js + x
Else
os = os + x
End If
Next i
m = os * 3 + js
m = 10 - m Mod 10
If m = 10  Then m = 0
If m=Val(Mid(s,n,1)) Then
Label1.Caption = "校验码正确!"
Else
Label1.Caption = "校验码错误!"
End If
End If
End Sub

程序设计题
问题：求 s="1" x2-2x3+3x4-4x5+…-98x99+99x100 的值。
算法描述如想图所示，请将下列程序补充完整。

Private  Sub Form _ Click ( )
Dim k As Integer
Dim s As Integer
s=0
For k="l" To__   ①   ___
If k Mod______②  ___0 Then
S=s+k*(k+l)
Else
s=____③___
End If
Next k
Print  “s=”;s
End Sub

小陈申请了一个网银账号，登录网银账号时，要输入密码，一般情况下，如果密码输入的错误次数超过3次，那么当日网银账号将被锁定，次日自动解锁。下图是登陆网银的流程图，小陈不小心输入密码错误了2次，第3次才正确，那么她的操作流程应该是：（ ）

A．①②③①②③①②③④⑤

B．①②③①②③④⑤

C．①②③④⑤

D．①②③④⑤⑥

某VB程序功能如下：输入正整数n，单击命令按钮Command1后，则会生成一串有规律的数字序列，形式为“n  n-1  n-2 … 3  2  1  2  3 … n-2  n-1  n”。例如n=8时，生成的数字序列如图所示。代码如下：

Private Sub Command1_Click()
Dim n As Integer, i As Integer, s As String
n = Val(Text1.Text)
s = ""
For i =" 1" To 2 * n - 1
If i <=" n" Then  ① Else  ②  
Next i
Label1.Caption = s
End Sub
为实现以上功能，划线①②处应分别填写

A．①s =" s" & Str(n - i + 1)   ②s =" s" & Str(i - n + 1)

B．①s =" Str(n" - i + 1) ②s =" Str(i" - n + 1)

C．①s =" s" & Str(i - n + 1)   ②s =" s" & Str(n - i + 1)

D．①s =" Str(i" - n + 1) ②s =" Str(n" - i + 1)

有如下VB程序段
m=a(1)
For t=2  to  15  step 2
If  a(t) > m  then  m=a(t)
Next t
该程序段执行后，变量t的值是（   ）

A．14

B．15

C．16

D．17

有如下程序段：
x=0：y=0
For i=1 to 16
If i mod 3=0 Then
x=x+1
Else
y=y+1
End if
Next i
程序运行后，输出x,y的值分别为

A．10,6

B．11,5

C．5,11

D．6,10

某电信部门规定：拨打市话时，如果通话时间不超过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）在程序调试程序过程中，___________（填：“编译错误”或“逻辑错误”或“执行错误”）是计算机检查不出来的

以下程序段运行时出现如图所示的错误提示:
 For i=1 To 100
If Rnd>0.5 Then
n=n+1
Else
m=m+1
Next i
分析该程序段,该代码中缺少了(  )

A．For

B．End If

C．Next

D．If