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