在VB中，函数Left()的功能是从字串左端开始截取部分字串，那么表达式Left ("morning" , 3)的结果为

A．ning

B．mor

C．ing

D．morn

素数只能被 1 和它本身整除，不能被其他自然数整除。编写 VB 程序实现如下功能：单击“产生奇数并判断”按钮 Command1，随机产生一个三位正奇数显示在文本框 Text1 中，并在文本框 Text2 中显示其是否为素数的判断结果。例如，当随机产生的三位正奇数为 953 时，程序运行界面如图 a 所示。

(1)在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____(填写相应编号)添加文本框 Text1。
(2)实现上述功能的 VB 程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim n As Integer, i As Integer
Dim flag As Boolean ‘用于标记是否为素数
Randomize
n =____________________ ‘n 为三位正奇数
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

编写“断句生成器”程序，实现如下功能：在文本框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

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定位w，单击“分组”按钮，在标签Labe12上输出最少的分组数。程序运行界面如图所示。

(1)要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在Form_Load事件过程中添加语句__________(单选，填字母：

A．Forml="纪念品分组"/

B．Forml.Name="纪念品分组"/

C．Forml.Caption="纪念品分组"/

D．Forml.Text="纪念品分组")。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
①___________________________________
②__________________________________
③__________________________________


(3)若在文本框Text1中输A“50，30，100，70，80，40，50，20，"，文本框Tcxt2中输“110”，单击“分组”按钮，标签Labe12中显示的内容是______________

以下函数运算中结果不是5的是（　 　）

A．Int(-5.0)

B．Abs(-5)

C．Sqr(25)

D．Len("20201")