题库 高中信息
题干
编写“断句生成器”程序，实现如下功能：在文本框Text1中输入未断句的文言文内容，在文本框Text2中输入多个正整数（以“，”为分割符和结束符），单击“生成”按钮 Command1,程序以这些整数为位置信息，表示在文言文相应的位置后进行断句（即在该位置后加入“/”），最后将最终断句的结果显示在文本框Text3中。程序部分编辑界面如图，但运行界面如图所示。
【小题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
【小题1】（1）程序运行时，窗体标题显示“断句生成器”，可在Form_Load事件过程中添加 (单选， 填字母
| A．Form1.Caption="断句生成器"/ | B．Form.Caption="断句生成器"/ | C．Fx.Caption="断句生成器"/ | D．工程1.Caption="断句生成器"）语句 |
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
答案(点此获取答案解析）
