某算法流程图如第5题图所示，最后输出s的值是（    ）

A．0.25

B．1

C．2

D．8

（加试题）某VB程序功能：输入正整数n,单击命令按钮Command1后，则会衍生出一串有规律的数字，形式为“1 2 3…n-1 n n-1…3 2 1 ”。例如n=6时，显示的数字串为“1 2 3 4 5 6 5 4 3 2 1 ”。
Private Sub Command1_Click()
Dim a As intger, i As intger, s As String
n = Val(Text1.Text)
s = ""
For i = 1 To 2 * n - 1
If i > n Then ①   Else  ②   
Next i
text2.Text = s
End Sub
为实现以上功能，①②处分别填写(    )

A．①s=Str(2*n-i)    ②s=Str(i)	B．①s=s+Str(2*n-i)  ②s=s+Str(i)
C．①s=s+Str(2*n-1)  ②s=s+Str(2*n)	D．①s= Str(2*n-1)   ②s= Str(2*n)

（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

若输入28，运行结果是    。
Dim x as long
x=inputbox(“输入x的值”)
if  x mod 3=0  then
x=x/3
else
x=x mod 3
end if
print  x

A．2

B．2.25

C．9

D．以上答案都错

设计算法：香蕉促销：3千克以下（不包括3千克），每千克3.5元，3-6千克（不包括6千克），每千克3元，6千克以上，每千克2.6元。请补全以下代码。
Dim  w  as  double
Dim  p  as  double
W = inputbox(“请输入购买的重量：千克”)
If   （1）__________  then
If （2）__________ then
P =3 *w
Else
P =2.6 *w
End if
Else
P=3.5*w
End if
Print  p

设计算法，求个位不小于十位的两位数的和，请将如下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

Dim x as long
Dim y as double
________

小明设计了一个 VB 程序，实现功能如下：在文本框 Text1 中输入一个学生成绩，单击“判定成绩等级” 按钮，在 Label3 中输出该成绩的等级。运行界面如图所示：

(1)若将 Text1 的名称改为“Txt”，则应修改文本框的属性：________________ 。
(2)为实现上述功能，请在下划线处填入合适的代码。
Private Sub Command1_Click() Dim x As Integer
x ＝ ①________
If x >＝ 90 Then
Label3.Caption ＝ "A" ElseIf x >＝ 80 Then
Label3.Caption ＝ "B" ElseIf x >＝ 60 Then
Label3.Caption ＝ "C" ElseIf x >＝ 55 Then
Label3.Caption ＝ "D"
②____________
Label3.Caption ＝ "E" End If
End Sub

完成以下 VB 程序代码
（1）有如下 VB 程序段，
a = 167
b = a\100
c = b mod 10
该程序段运行后，变量 c 的值为_____ 。
（2）有如下 VB 程序段，
a=2:b=7:c=4
If a<b Then t=a:a=b:b=t
End If
If b<c Then c = c-b
End If
该程序段运行后，整型变量 a 的值是_____，b 的值是_____，c 的值是_____。

国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：

实现上述功能的VB程序如下，但加框处代码有错，请改正。
Private Sub Command1_Click()
　Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer
　Dim jy As Integer
　s＝Text1.Text
　t＝0：sum＝0
　For i＝1 To Len(s)
s1＝Mid(s，i，1)
If s1>＝”0” And s1<＝”9” Then
　′①
　If t<10 Then
sum＝sum＋Val(s1)*(11－t)
　ElseIf t＝10 Then
　　　　′②
　 End If
End If
　Next i
　sum＝11－sum Mod 11
　If  Then′③
Text2.Text＝”该校验码中数字不是10位数！”
　Else
　If　jy＝“X”　and sum＝10 Then
Text2.Text＝”校验通过”
　ElseIf　val(jy)＝sum then
Text2.Text＝”校验通过”
　Else
Text2.Text＝”校验不通过”
　End If
End If
End Sub
划线处代码为①___________________________________________________
②_______________________________________________________________
③_______________________________________________________________