1、信息技术选考字符串大题1.随机产生集合T, 1中任意一个数的VB表达式是（）A.Int(Rnd*2)-1 B. Int (Rnd*3)-1C. Int(Rnd*3)2-l D. Tnt (Rnd*2)*2-12.下列VB表达式中，值最大的是（ C ）A. Val(Mid(3.1415926， 6， 2)B. Int(Rnd - Rnd + 1) / 2) * 100C. 6790 Mod 1000 10D.Int(Rnd * 80) + 103.下列VB表达式的值为False的是(A )A50 Mod 100 50 = 1 BInt(2 * Rnd - Rnd) 2 = 0CInt(Rnd *
2、 10) / 5 1124.下列四个选项中表达式的值与其他不同的是 （ D ）5.下列表达式的运算结果不等于9的是（以下的字符串都不含空格）( B ) A.Len(2020 选考）+Sqr(9) B.Asc(I)-Asc(A)C.Val(Mid(129,3,1) D.Abs(Int(-8.4)6.下列VB 表达式中，可取到最小值中，最小的为（ ） A.Rnd-99 B.Fix(-Rnd*45)*2-10 C.(Rnd-Rnd)*100 D.Int(-Rnd*45)*2-10 7.下列 VB 表达式中，只随机产生 10 至 100 之间的奇数的是（D )A. Int(Rnd * 90 ) + 1
3、0 B. Int(Rnd * 90 ) + 11C. Int(Rnd * 45 ) * 2 + 10 D.Int(Rnd * 45 ) * 2 + 11 8.有如下VB程序段：c = 0: p = 0: q = 0For i = 1 To 5b(i) = a(6 - i) Next iFor i = 1 To 3If (b(i) + b(i + 1) * 2 + b(i + 2) * 3) Mod 5 = 0 Then p = p + 1Elseq = q + 1End IfIf p 0If Mid(s， i， 1) = Mid(s， j， 1) Thenans = ans + Mid(s，
4、i， 1): k = k - 1End Ifi = (n + i - 2) Mod n + 1j = j Mod n + 1LoopLabel1Caption = ans在文本框Text1中输入“banana”，执行程序后，标签Label1中显示的内容是（ B ）A.nana B.naba C.naan D.naaa10.有如下VB程序段:s = Text1.Text: Sum = 0: t = 0: cnt = 1For i = 1 To Len(s) c = Mid(s, i, 1) If c = 0 And c = 9 Then j = j + 1 Else If cnt Mod 2 =
5、 1 Then Sum = Sum + Val(Mid(s, i - j, j) j = 0: cnt = cnt + 1 End IfNext i在文本框text1输入“12d6a3c4f20”，程序运行后Sum的值是( A )A15 B21 C25 D4511.有如下VB程序段:Dim a(1 To 5) As Integera(1) = 1For i = 2 To 5 a(i) = Int(Rnd() * 3) + 3Next iFor i = 2 To 5 If a(i) Mod 2 = 1 Then a(i) = a(i) + a(i - 1) Else a(i) = a(i) /
6、2 End IfNext i执行程序后，a数组各元素可能是(B )A. 1，2，6，10，13 B. 1，4，9，2，7 C. 1，5，8，15，22 D. 1，2，5，11，1 C13.有如下VB 程序段:b = 0For a = 1 To 10 b = a + ba = a + 3 Next ac = a + b执行该程序段后，变量 c 的值为(c)A.15 B.22 C.28 D.3214.有如下 VB 程序段s = Text1.Textt = Mid(s, Len(s), 1) Max = 0For i = Len(s) - 1 To 1 Step -1If Mid(s, i, 1)
7、Max Then Max = Len(t): ans = t Elset = Mid(s, i, 1) End IfNext i Text2.Text = ans在文本框 Text1 中输入“aaabcdebb”，执行该程序段后,文本框 Text2 中显示的是( D )A. aaabcde B. aaa C. abcde D.edcba 15.有如下 VB 程序段 Private Sub Command1_Click() Dim a(1 To 6) As Integer Dim d(1 To 6) As Integer a(1) = 28: a(2) = 21: a(3) = 30: a(4)
8、 = 11: a(5) = 12: a(6) = 29 Const n = 6 Max = 0 For i = 1 To n d(i) = 0 For j = 1 To i - 1 If a(j) Max Then Max= d(i) Next i End Sub 执行完以上程序后，Max 的值为（ ） A 5 B.2 C.3 D.4 16.有如下 VB 程序段：Dim a(1 To 10) As Integer, i As Integer, j As Integer a(1) = 1 : a(2) = 1For i = 3 To 5a(i) = 1For j = i - 1 To 2 Ste
9、p -1 a(j) = a(j) + a(j - 1)Next j Next iText1.Text = Str(a(3)该程序段运行后，在文本框 Text1 中显示的内容是( D )A. 1 B. 3 C. 4 D. 617.在一个数组中存储了若干个学生的技术成绩小题分，其中a(1)存储学生个数，从a(2)开始按顺序存储小题分数据。每个学生有33个小题的数据，例：a(2)a(13)是“学生1”的信息客观题得分，a（27）a（30）是“学生1”的信息主观题得分；a(14)a(26)是“学生1”的通用客观题得分，a（31）a（34）是“学生1”的通用主观题得分。具体如下表:小李根据上述描述，设计
10、了一个统计所有学生信息各题得分率的算法。程序运行后，首先在列表框List1中显示信息技术各小题得分，单击“计算”按钮“Command1”，在列表框List2中显示信息各题的题号和得分率，并在文本框Text1中输出所有学生的信息平均分（平均分=各题得分率*分值之和）。算法的VB程序如下，回答下列问题。(1) 根据题目描述，使用如图所示数据，a(95)的数值是 。(2) 在程序划线处填上合适代码，使程序完整Dim a(1 To 1000) As Integer, n As IntegerPrivate Sub Form_Load()读入数据到数组a，数据个数n，代码略End SubPrivate
11、Sub Command1_Click()Dim i As Integer, j As IntegerDim fz(1 To 16) As Integer fz数组存储信息各题满分值Dim b(1 To 33) As Single 数组b存储全卷各题的平均得分For i = 1 To 16 数组fz存储信息16个小题的满分值If i = 12 Then fz(i) = 2fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7Next iFor i = 2 To n 把数组a数据分别统计到各题中，计算各题总得分 b(j) = a(i) + b(j) Next
12、iFor i = 1 To 33 If i = 26 And i 12 Then j = i + 13 Else j = ib(j) = Int(b(j) * 1000 + 0.5) / 10 对结果四舍五入保留1位小数List2.AddItem Str(i) + Str(b(j) + %ave= Next iText1.Text = Str(ave / 100)End Sub（1）1 （1分）（2）j = (i -2) Mod 33 + 1（2分）b(i) / (fz(i -13) * a(1)（2分）ave = ave + b(j) * fz(i) （2分）18.(20196月浙江选考)小
13、宇为选定班级参赛作品编写了一个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
14、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) “作
15、品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“a” And ch “A” And ch “Z” Thenc ch c ElseIf ch “0” And ch “9” Thenn
16、um ch num Elsen Val(num)If ch “” Then s Mid(s, 1, n 1) _Elses Mid(s, 1, n 1) Mid(s, n Len(c), Len(s) n Len(c) 1)End If ss ss “” s c “”： num “”End IfNext iLabel1.Caption ssEnd Sub(3)运行该程序，若文本框Text1中的内容是“April”，文本框Text2中的内容是“3p3ri6e”，单击撤销按钮，For循环语句执行完成后，字符串s的值是“_”。答案(1)C(2)ch Mid(t，i，1)c Mid(s, n, Len
17、(s)n1)(3)”Apple”20(201811月浙江选考)在平面坐标系中，给定一组有序的点。从原点出发，依次用线段连接这些点，构成一条折线。要求编写一个“计算折线长度”的程序，功能如下：在文本框Text1中依次输入这些点的坐标值(数据都用逗号分隔并以逗号结尾)，单击“计算”按钮Cmd后，程序计算这条折线的长度，结果显示在Label1中。例如，三个点的坐标(5，10)、(8，12)、(6，17)输入格式如图所示。(1)Cmd对象属于_类。(单选，填字母：A.Form/BLabel/ CTextBox/DCommandButton)(2)实现上述功能的VB程序如下，请在划线处填入合适代码。Pr
18、ivate 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_x10：y10出发点为坐标原点k1：j1：Totald0For i1 To Len(s)If Mid(s，i，1)“，” ThenvVal(Mid(s，j，ij)提取坐标值，保存在变量v中ji1If _ Thenx2vElsey2vdSqr(x2
19、x1)2(y2y1)2)TotaldTotalddx1x2：y1y2End Ifkk1End IfNext iLabel1.CaptionStr(Totald)End Sub(3)运行该程序，输入数据如上图所示，程序执行到循环结束时，变量k的值为_。答案(1)D (2)Text1.Textk Mod 21 (3)721.小王编写了一个实现文字查找替换功能的VB程序，运行界面如图所示。文本框Text1显示原文内容，Text2中输入查找内容，Text3中输入替换内容，单击“全部替换”按钮Command1后，Text4显示查找替换的结果，Text5中显示替换的次数，Text6显示“查找内容”在原文中
20、的起始位置。实现上述功能的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 Then result result Text3.Text count count 1 pos (1
21、) i i Len(Text2.Text)Else (2) i i 1End IfLoopText4.Text resultText5.Text Str(count)Text6.Text posEnd Sub答案(1)Str(i)(2)resultresult Mid(text1.text，i，1)22.单词倒序加密法。把明文中每个单词首尾颠倒进行加密，空格、标点等其他字符按原来顺序输出。在文本框Text1中输入密文，单击“解密”按钮Command1，按加密的规则，在文本框Text2中输出解密后的字符。程序运行时的界面如图所示。实现上述功能的VB程序如下，请在划线处填入合适代码。Private
22、 Sub Command1_Click()Dim i As Integer, s As String, ch As StringDim newch As String, s1 As String _newch ”s1 ”i 1Do While i ”A” And ch ”a” And ch ”z” Thens1 ch s1Elsenewch _s1 ”End If_LoopIf s1 ” Then newch newch s1Text2.Text newchEnd Sub答案s Text1.Textnewch s1 chi i 123.李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些
23、数字和符号组成，信上面说了，这段内容是加密后的内容，并给出了具体加密方法(假定原文的英文字母都是大写的)，具体方法如下：“A”变为一个1到100内的随机数*271，“B”变为一个1到100内的随机数*272，每个字母变为数字后会加上一个“”用来分割数字；其他空格和标点字符都按原来的表示。(1)根据描述，若密文为“19051442”，则表示的是：_。(2)请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String, yw As String, ch As StringDim value As Integer 用于存储某字母在密文中对应数值的临
24、时变量s Text1.Textvalue 0: yw ”For i 1 To Len(s)ch Mid(s, i, 1)If ch ”0” And ch ”9” Thenvalue _ElseIf ch ” Thenyw yw _value 0Elseyw yw chEnd IfNext iText2.Text ywEnd Sub答案(1)OK(2)value * 10 Val(ch)Chr(Asc(“A”) value Mod 27 1)24.某密钥的加密规则是：取字符ASCII码对应二进制的后4位，如果其值为0到7则显示该值，如果其值8到11则对应显示“东南西北”，如果其值为12到15则对应显示“东南东北西南西北”。程序运行的界面如图所示。为实现上述功能，请在划线处填入合适的代码。Private Sub Command1_Click()Dim s As String, n As Integer, m As Integer, result As Stringdw ”东南西北东南东北西南西北”result ”s Text1.TextFor i 1 To Len(s)c Mid(s, i, 1)_If m 8 Thenresult result Str(m)Else
