编写“字符串生成”程序,实现如下功能:在文本框Text1中(字符位置)输入多个正整数(以“,”为分隔符和结束符),单击“生成”按钮Command1,程序以这些整数为位置信息,依次从文本框Text2中(字典内容)提取字符并连接成字符串,最后将字符串显示在标签Label1中(生成内容)。程序运行界面如图所示。
(1)
要使程序运行时,窗体Form1标题显示“字符串生成”,可在Form_Load事件过程中添加语句(单选,填字母:A .Form 1="字符串生成"/ B .Form 1.Text="字符串生成"/C .Form
1.Caption="字符串生成").
(2)
实现上述功能的VB程序如下,请在划线处填入合适的代码。
Private Sub Command 1_Click()
Dim s As String,t As String,c As String
Dim i As Integer,p As Integer
s="":t=""
For i=1 To Len(Text 1.Text)
c=Mid(Text 1.Text,i,1)
If
c="," Then
p=Val(t)
s=s+Mid(Text2.Text,p,1)
t=""
Else
t= ①
End
If
Next i
Label1.Caption= ②
End Sub
①②
(3)
若文本框Text1中输入内容的结束符缺失(即输入内容为1,18,9,9),单击“生成”按钮后,标签Label1中显示的内容是。
答案: 【1】C
【1】t+c(或t&c)【2】s
【1】pas