2字符串处理信息技术选考

1．在一段英语短文(存储在字符串变量s中)，已经某单词的结束位置t和单词的长度n，用VB表达式Mid(s，t－n＋1，n)表示该单词。

2．判断字符ch是大写字母的条件表达式是ch >＝”A” And ch <＝”Z”。

3．判断一个字符ch是小写字母的表达式是ch >＝”a” And ch <＝”z”。

4．判断一个字符ch是数字的表达式是ch >＝”0” And ch <＝”0”。

5．判断一个字符ch是字母的表达式是ch >＝”A” And ch <＝”Z” Or ch >＝”a” And ch <＝”z”。

6．大写字母ch，转换为小写字母语句Chr(Asc(ch)＋32)。

7．小写字母ch，转换为大写字母语句Chr(Asc(ch)－32)。

8．生产一个随机大写字母ch的语句Chr(Asc(“A”)＋Int(Rnd*26))。

9．生产一个随机小写字母ch的语句Chr(Asc(“a”)＋Int(Rnd*26))。

10．大写字母ch在字母表中位置Asc(ch)－Asc(“A”)＋1。

11．小写字母ch在字母表中位置Asc(ch)－Asc(“a”)＋1。

12．观察下表中字母在字母表中位置与其ASCII码值的关系1．(2019·6月浙江选考)小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据(评委对作品的评分数据出3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为[60，99]。

如“275”表示2号作品得分75)。

单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品(选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机抽取)：程序运行界面如图所示。

(1)“计分”按钮的对象名为________。

(2)程序部分代码如下，请在划线处填入合适代码。

Private Sub jf_Click()Dim s As String, d As String, i As IntegerDim f As Single, f2 As Single, f3 As Singles ＝Text1.Texti ＝1Do While____①____d ＝Mid(s, i, 3)If Mid(d, 1, 1) ＝“1” Thenf1 ＝f1 ＋Val(Mid(d, 2, 2))ElseIf Mid(d, 1, 1) ＝“2” Thenf2 ＝f2 ＋Val(Mid(d, 2, 2))Elsef3 ＝f3 ＋Val(Mid(d, 2, 2))End If②____LoopLabel1.Caption －“作品1平均分为：”＋Str(f1 / 5) ＋“作品2平均分为！”＋Str(f2 / 5) ＋“作品3平均分为：”＋Str(f3 / 5)′以下省略“处理并列最高平均分，并在Label2中输出选取的参赛作品”的代码End Sub(3)运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：380/295/283/170/180/385/372/285/190/180/390/384/272/170/276，单击“计分”按钮，则Label1中显示的结果____________ (选填：会/不会)发生改变。

答案(1)jf(2)①i <＝Len(s)或i< Len(s)或i<＝57及以上或i<58及以上或其他可行答案②i＝i＋4(3)不会2．(2019·4月浙江选考)小王设计“模拟撤销”程序，需要用一个“历史记录”，“历史记录”是在对字符串s进行插入或删除时，将每步操作信息依次存储得到的，操作信息由操作符(“＋”表示插入，“－”表示删除)、操作位置和操作字符串(只包含英文字母)构成，例如，“＋23abc”表示在字符串s第23个位插入了“abc”，“模拟撤销”过程按照“历史记录”的逆序进行，将字符串s的内容恢复到初始状态。

对字符串“Book”的操作与撤销过程，如图a所示。

小王编写的“模拟撤销”VB程序如下，文本框Text1中的内容是撤销前字符串，文本框Text2中的内容是历史记录，单击“撤销”按钮Command1后，在标签Label1中显示撤销过程，程序运行界面如图b所示。

(1)实现上述功能的VB程序如下，在程序中出现的对象没有Caption属性的是________。

(选填，填字母：bel1/mand1/C.Text1和Text2)(2)请在划线处填入合适代码。

Private Sub Command1_Click()Dim s As String, t As String, ch As StringDim c As String, num As String, ss As StringDim n As Integer, i As Integers ＝Text1.Text: t ＝Text2.Textc ＝“”：num ＝“”：ss ＝sFor i ＝Len(t) To 1 Step －1____①______If ch >＝“a” And ch <＝“z” Or ch >＝“A” And ch ＝“Z” Thenc ＝ch ＋cElseIf ch >＝“0” And ch <＝“9” Thennum ＝ch ＋numElsen ＝Val(num)If ch ＝“－” Thens ＝Mid(s, 1, n －1) ＋____②____Elses ＝Mid(s, 1, n －1) ＋Mid(s, n ＋Len(c), Len(s) －n －Len(c) ＋1)End Ifss ＝ss ＋“→”＋sc ＝“”：num ＝“”End IfNext iLabel1.Caption ＝ssEnd Sub(3)运行该程序，若文本框Text1中的内容是“April”，文本框Text2中的内容是“－3p＋3ri－6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是“________”。

答案(1)C(2)①ch ＝Mid(t，i，1)②c ＋Mid(s, n, Len(s)－n＋1) (3)”Apple”3．(2018·11月浙江选考)在平面坐标系中，给定一组有序的点。

从原点出发，依次用线段连接这些点，构成一条折线。

要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值(数据都用逗号分隔并以逗号结尾)，单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。

例如，三个点的坐标(5，10)、(8，12)、(6，17)输入格式如图所示。

(1)Cmd对象属于________类。

(单选，填字母：A.Form/B．Label/ C．TextBox/D．CommandButton)(2)实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Cmd_Click( )Dim i As Integer，j As Integer，k As IntegerDim x1 As Single，y1 As Single，x2 As Single，y2 As SingleDim d As Single，Totald As Single，v As Single，s As Strings＝____①____x1＝0：y1＝0′出发点为坐标原点k＝1：j＝1：Totald＝0For i＝1 To Len(s)If Mid(s，i，1)＝“，” Thenv＝Val(Mid(s，j，i－j))′提取坐标值，保存在变量v中j＝i＋1If ____②____ Thenx2＝vElsey2＝vd＝Sqr((x2－x1)^2＋(y2－y1)^2)Totald＝Totald＋dx1＝x2：y1＝y2End Ifk＝k＋1End IfNext iLabel1.Caption＝Str(Totald)End Sub(3)运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为________。

答案(1)D (2)①Text1.Text②k Mod 2＝1 (3)74．(2017·11月浙江选考)编“字符串生成”程序，实现如下功能：在文本框Text1中(字符位置)输入多个正整数(以“，”为分割符和结束符)，单击“生成”按钮Command1，程序以这些整数为位置信息，依次从文本框Text2中(字典内容)提取字符并连接成字符串，最后将字符串显示在标签Label1中(生成内容)。

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

(1)要使程序运行时，窗体Form1标题显示“字符串生成”，可在Form_Load事件过程中添加语句________(单选，填字母：A.Form1 ＝“字符串生成” / B．Form1.Text＝“字符串生成”/ C．Form1.Caption＝“字符串生成”)。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click()Dim s As String, t As String, c As StringDim i As Integer, p As Integers ＝“”：t ＝“”For i ＝1 To Len(Text1.Text)c ＝Mid(Text1.Text, i, 1)If c ＝“，” Thenp ＝Val(t)s ＝s ＋Mid(Text2.Text, p, 1)t ＝“”Elset ＝____①____End IfNext iLabel1.Caption ＝____②____End Sub(3)若文本框Text1中输入内容的结束符缺失(即输入内容为1，18，9，9)，单击“生成”按钮后，标签Label1中显示的内容是________。

答案(1)C(2)①t＋c或t&c或其他等价表达式②s (3)pas5．小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。

文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中的起始位置。

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click()Dim s As String, resule As String, pos As StringDim count As Integer, i As Integeri ＝1: count ＝0resule ＝“”：pos ＝“”Do While i <＝Len(Text1.Text)s ＝Mid(Text1.Text, i, Len(Text2.Text))If s ＝Text2.Text Thenresult ＝result ＋Text3.Textcount ＝count ＋ 1pos ＝ pos ＋ Str（count）′(1)i ＝i ＋Len(Text2.Text)Elseresult ＝ result ＋ Text2.Text ′(2)End IfLoopText4.Text ＝resultText5.Text ＝Str(count)Text6.Text ＝posEnd Sub答案(1)Str(i)(2)result＝result＋Mid(text1.text，i，1)6.程序实现功能：在文本框Text1 中输入字符串s1，在文本框Text2 中输入字符串s2，单击“合并”按钮Command1，按如下规则依次从中取出各字符进行合并，合并后的结果显示在标签Label3中。