设计算法：香蕉促销：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 程序，实现功能如下：在文本框 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程序功能：输入正整数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)

将以下程序段补充完整。
问题：计算旅客的行李费，收费标准为：20千克以下（包括20千克）不收费，超过20千克的部分每千克收20元。X表示行李重量，Y表示行李费。
程序段：
Dim X As Single
Dim Y As Single
X=InputBox("输入行李重量")
If ①_________Then
    Y=0
Else
    Y= ②_______
End If
Print "行李费= "; ③___________

素数只能被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