- 二一组卷

题型：综合题题类：常考题难易度：普通

浙江省温州市苍南县巨人中学2018-2019学年高二下学期信息技术第三次月考试卷

编写“字符串生成”程序，实现如下功能：在文本框Text1中（字符位置)输入多个正整数 (以“，”为分割符和结束符），单击“生成”按钮Command1，程序以这些整数为位置信息，依次从文本框Text2中（字典内容）提取字符并连接成字符串，最后将字符串显示在标签Label1中（生成内容）。

程序运行界面如下图所示。

（1）、要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程中添加语句 (单选，填字母:A .Form1 = "字符串生成" / B .Forml.Text="字符串生成"/ C . Form1.Caption="字符串生成"）。

（2）、实现上述功能的 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 = 1 To Len(Text1.Text)

c = Mid(Text1.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

相关试卷