代数式   在VB表达式中表示为（    ）。

A．（a+b）^2/ab

B．（a+b）^2/(ab)

C．（a+b）^2/(a*b)

D．（a+b）/(a*b)

下列逻辑表达式的值为“False”的是（ ）。

A．3 + 5 > 10

B．4 + 12 <> 15

C．4 / 2 = 2

D．5 < 2 * 3

若变量a、b的值分别为3、6，则表达式b+a/b-a的值是（    ）。

A．-3

B．3

C．3.5

D．-1

使用 VB 编写一个数字逆序功能的程序，在文本框 Text1 中输入若干整数，相互之间用逗号隔开，单击“开始逆序”按钮，在文本框 Text2 中输出逆序后的数字序列。程序运行界面如图所示，请改正划线处的错误语句使程序能正确运行。

Private sub Command1_click()
Dim s1 As String, s2 As String, t As String, ch As String
Dim i As Integer
s1 = Text1.Text
i = Len(s1)
t = "": s2 = "" Do While i > 0
ch = Mid(s1, i, 1)
If ch >= "0" And ch <= "9" Then
t = ch + t
Else
s2 = s2 + t +，  改正________
t = "" End If
i = i + 1 改正________
Loop
s2 = s2 + t
Text2.Text = s2
End sub

某 VB 程序段如下：
Private Sub Command1_Click( )
Dim x As Integer
x = Val(Text1.Text)
x = x \ 2 + 1
Text1.Text = Str(x)
End Sub
程序运行时，在文本框 Text1 输入 13 时，连续两次单击命令按钮 Command1 后，文本框 Text1中显示的内容是（  ）

A．6

B．7

C．4

D．5

有如下 VB 程序段：
s = "123456789"
g = ""
For i = 1 To 3
n = Len(s)
x = Int(Rnd() * n) + 1
g = g + Mid(s, x, 1)
s = Mid(s, 1, x - 1) + Mid(s, x + 1, n - x)
Next i
在程序执行时，若变量 x 的值依次为 3,3,6，则最终变量 g 的值为（ ）

A．"336"

B．"346"

C．"348"

D．15

编写“断句生成器”程序，实现如下功能：在文本框Text1中输入未断句的文言文内容，在文本框Text2中输入多个正整数（以“，”为分割符和结束符），单击“生成”按钮 Command1,程序以这些整数为位置信息，表示在文言文相应的位置后进行断句（即在该位置后加入“/”），最后将最终断句的结果显示在文本框Text3中。程序部分编辑界面如图，但运行界面如图所示。
 

【小题1】（1）程序运行时，窗体标题显示“断句生成器”，可在Form_Load事件过程中添加 (单选， 填字母

A．Form1.Caption="断句生成器"/

B．Form.Caption="断句生成器"/

C．Fx.Caption="断句生成器"/

D．工程1.Caption="断句生成器"）语句

【小题2】（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click（）
Dim s As String, t As String, c As String
Dim i As Integer, p As Integer, p0 As Integer
s =" "  : t =" "    : p0 = 0
For i = 1 To Len (Text2.Text)
c = ①    
If c = "，" Then
p = Val(t)
s = s + Mid(Text1.Text, p0 + 1, p – p0) + "/ "
t = ""
_   _②___
Else
t = t + c
End If
Next i
Text3. Text = ③    
End Sub

有如下VB程序段：
Dim i As Integer, sum As Integer
Dim a(1 To 8) As Integer
sum = 1
a(8) = 49: a(7) = 28
For i = 6 To 1 Step -1
a(i) = a(i + 2) - a(i + 1)
If a(i) Mod 3 = 0 Then sum = sum + a(i)
Next i
text1.Text = Str(sum)
该段程序运行后，文本框Text1中显示的内容是（   ）

A．21

B．43

C．42

D．1

下列各项中， VB 表达式不正确的是（   ）

A．9x+1

B．x9+1

C．x+y

D．x/y

产生[10,37]之间的随机整数的 Visual Basic 表达式是 (    )

A．Int(Rnd()*27)+10	B．Int(Rnd()*28)+10
C．Int(Rnd()*27)+11	D．Int(Rnd()*28)+11