11.編“字符串生成”程序,實現(xiàn)如下功能:在文本框Text1中(字符位置)輸入多個正整數(shù) (以“,”為分割符和結束符),單擊“生成”按鈕Command1,程序以這些整數(shù)為位置信息,依次從文本框Text2中(字典內(nèi)容)提取字符并連接成字符串,最后將字符串顯示在標簽Label1中(生成內(nèi)容)。程序運行界面如圖所示。
(1)要使程序運行時,窗體Form1標題顯示“字符串生成”,可在Form_Load事件過程中添加語句
(選填字母:A.Form1=“字符串生成“/B.Forml.Text=“字符串生成“/C.Form1.Caption=“字符串生成“)。
(2)實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適的代碼。
Private Sub Command1_Click ( )
Dim s As String,t As String,c As String
Dim i As Integer,p As Integer
s=““:t=““
For i=1To Len(Text1.Text)
c=Mid(Text1.Text,i,1)
If c=“,“Then
p=①
s=s+Mid(Text2.Text,p,1)
t=““
Else
t=②
End If
Next i
Label1.Caption=s
End Sub
(3)若文本框Text1中輸入內(nèi)容的結束符缺失(即輸入內(nèi)容為21,4,7,10),單擊“生成”按鈕后,標簽Label1中顯示的內(nèi)容是
。