在 VB 中，下列程序段执行后，变量 s 的值是
s=1
For k="1" To 3
s=s+1
Next k

A．1

B．3

C．4

D．6

下列判断x≤1的VB表达式中，正确的是（ ）。

A．x<1 and x=1

B．not x>1

C．x <=1

D．x<1 or x=1

在计算平均重量x时，结果中产生了8位小数，若要对x保留一位小数，并对第二位小数四舍五入，则下列表达式中正确的是（ ）。

A．Int（x + 0.5）

B．Int（x * 100 + 0.5）/ 100

C．Int（x * 10）/___1___

D．Int（x * 10 + 0.5）/ 10

一个六位数n，它的高二位与低二位恰好相同，同时又能被97整除，如109610、196619等。编写VB程序，统计所有符合条件的六位数的个数。
Dim n As Long    '六位数
Dim g2 As Integer '高二位
Dim d2 As Integer '低二位
Dim t As Integer '计数
t = 0
n = 100000
Do
g2= ______①______
d2= ______②______

Loop Until n>=1000000
Print t
‘备注：loop until 指的是循环到若条件成立则退出循环

上面这段程序描述的是已知圆半径r，计算面积s。当运行时，输入半径1，输出的面积与实际结果出现了偏差，程序和运行结果如下所示。
导致出现此问题的语句编号是 ，应该改成    。

有一组数：1、2、4、7、……，其第1个数是1，第2个数比第1个数大1，第3个数比第2个数大2，第4个数比第3个数大3，以此类推。求其前20项的和。
以下VB程序实现上述功能，请把程序中的①、②出填写完整。
Dim i As Integer, p As Integer, s As Integer
i = 1
p = 1
s = 0
Do While ______①______
s =" s" + p
i =" i" + 1
______②______
Loop
Print s

将数学表达式写成VB表达式，正确的是____________。

编写VB程序，实现如下功能:在文本框Textl和Text2中分别输入一个整数，单击命令按钮Command1,在列表框List1中显示结果，运行效果如甲图所示。结果包含两列数据，第1列为两数之间的摄氏温度值（间隔1度、升序），第2列为对应的华氏温度值。

（1）要使命令按钮Command1上显示的文本改为“转换”，可在其属性窗口（乙图) 中将Caption属性的属性值修改为“___________”。
（2）为实现上述功能，请在划线处填入合适代码或选项。
Private Sub Command1_Click()
Dim t1 As Integer, t2 As Integer
Dim i As Integer, t As Integer
Dim f As Single
List1.Clear
t1 = Val(Text1.Text)
t2 = Val(Text2.Text)
If ① Then  '(选填字母,从下列A、B、C、D四个选项中选取一项）
t =" t1:" t1 =" t2:" t2 = t
End If
i = t1
Do While ② '(选填字母,从下列A、B、C、D四个选项中选取一项）
f =" i" * 9 / 5 + 32    '摄氏温度转换为华氏温度
List1.AddItem Str(i) + " " + Str(f)
③ '（填程序代码）
Loop
End Sub
划线①、②处的选项:

A．i <= t2

B．f <= t2

C．t1 > t2

D．i < f

下列哪一个表达式能产生一个属于区间[100,999]内的整数（ ）

A．Int（Rnd*1000）+100	B．Int（Rnd*900）+100
C．Rnd+998	D．Rnd*1000

执行以下流程图，当输入n的值为2，m的值为3时，则变量p的值为_______。