信息技術(shù)選考字符串大題

1、15/151.隨機(jī)產(chǎn)生集合T, 1中任意一個(gè)數(shù)的VB表達(dá)式是（）A.Int(Rnd*2)-1 B. Int (Rnd*3)-1C. Int(Rnd*3)2-l D. Tnt (Rnd*2)*2-12.下列VB表達(dá)式中，值最大的是（ C ）A. Val(Mid(3.1415926， 6， 2)B. Int(Rnd - Rnd + 1) / 2) * 100C. 6790 Mod 1000 10D.Int(Rnd * 80) + 103.下列VB表達(dá)式的值為False的是(A )A50 Mod 100 50 = 1 BInt(2 * Rnd - Rnd) 2 = 0CInt(Rnd * 10) /

2、 5 1124.下列四個(gè)選項(xiàng)中表達(dá)式的值與其他不同的是 （ D ）5.下列表達(dá)式的運(yùn)算結(jié)果不等于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 表達(dá)式中，可取到最小值中，最小的為（ ）A.Rnd-99B.Fix(-Rnd*45)*2-10C.(Rnd-Rnd)*100D.Int(-Rnd*45)*2-107.下列 VB 表達(dá)式中，只隨機(jī)產(chǎn)生 10 至 100 之間的奇數(shù)的是（D )A. Int(Rnd * 90 ) + 10 B. Int(Rnd

3、 * 90 ) + 11C. Int(Rnd * 45 ) * 2 + 10 D.Int(Rnd * 45 ) * 2 + 118.有如下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， i， 1): k = k -

4、 1End Ifi = (n + i - 2) Mod n + 1j = j Mod n + 1LoopLabel1Caption = ans在文本框Text1中輸入“banana”，執(zhí)行程序后，標(biāo)簽Label1中顯示的內(nèi)容是（ 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 Thenj = j + 1ElseIf cnt Mod 2 = 1 Then Sum = Sum +

5、 Val(Mid(s, i - j, j)j = 0: cnt = cnt + 1End IfNext i在文本框text1輸入“12d6a3c4f20”，程序運(yùn)行后Sum的值是( A )A15B21 C25 D4511.有如下VB程序段:Dim a(1 To 5) As Integera(1) = 1For i = 2 To 5a(i) = Int(Rnd() * 3) + 3Next iFor i = 2 To 5If a(i) Mod 2 = 1 Thena(i) = a(i) + a(i - 1)Elsea(i) = a(i) / 2End IfNext i執(zhí)行程序后，a數(shù)組各元素可能

6、是(B )A. 1，2，6，10，13 B. 1，4，9，2，7C. 1，5，8，15，22 D. 1，2，5，11，1C13.有如下VB 程序段:b = 0For a = 1 To 10b = a + ba = a + 3Next ac = a + b執(zhí)行該程序段后，變量 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) Max ThenMax = Len(t): ans = tElse

7、t = Mid(s, i, 1)End IfNext iText2.Text = ans在文本框 Text1 中輸入“aaabcdebb”，執(zhí)行該程序段后,文本框 Text2 中顯示的是( D )A. aaabcde B. aaa C. abcde D.edcba15.有如下VB程序段Private Sub Command1_Click()Dim a(1 To 6) As IntegerDim d(1 To 6) AsIntegera(1) = 28: a(2) = 21: a(3) = 30: a(4) = 11: a(5) = 12: a(6) = 29Const n = 6Max = 0

8、For i = 1 To nd(i) = 0For j = 1 To i - 1If a(j) Max ThenMax= d(i)Next iEnd Sub執(zhí)行完以上程序后，Max的值為（）A5B.2C.3D.416.有如下VB程序段：Dima(1To 10) As Integer,i As Integer,j As Integera(1)=1: a(2)=1Fori=3To5a(i)=1Forj=i -1To2 Step-1a(j)= a(j)+a(j - 1)NextjNextiText1.Text = Str(a(3)該程序段運(yùn)行后，在文本框Text1中顯示的內(nèi)容是(D)A.1B.3C.

9、4D.617.在一個(gè)數(shù)組中存儲(chǔ)了若干個(gè)學(xué)生的技術(shù)成績(jī)小題分，其中a(1)存儲(chǔ)學(xué)生個(gè)數(shù)，從a(2)開(kāi)始按順序存儲(chǔ)小題分?jǐn)?shù)據(jù)。每個(gè)學(xué)生有33個(gè)小題的數(shù)據(jù)，例：a(2)a(13)是“學(xué)生1”的信息客觀題得分，a（27）a（30）是“學(xué)生1”的信息主觀題得分；a(14)a(26)是“學(xué)生1”的通用客觀題得分，a（31）a（34）是“學(xué)生1”的通用主觀題得分。具體如下表:小李根據(jù)上述描述，設(shè)計(jì)了一個(gè)統(tǒng)計(jì)所有學(xué)生信息各題得分率的算法。程序運(yùn)行后，首先在列表框List1中顯示信息技術(shù)各小題得分，單擊“計(jì)算”按鈕“Command1”，在列表框List2中顯示信息各題的題號(hào)和得分率，并在文本框Text1中輸出所

10、有學(xué)生的信息平均分（平均分=各題得分率*分值之和）。算法的VB程序如下，回答下列問(wèn)題。(1)根據(jù)題目描述，使用如圖所示數(shù)據(jù)，a(95)的數(shù)值是。(2)在程序劃線處填上合適代碼，使程序完整Dim a(1 To 1000) As Integer, n As IntegerPrivate Sub Form_Load()讀入數(shù)據(jù)到數(shù)組a，數(shù)據(jù)個(gè)數(shù)n，代碼略End SubPrivate Sub Command1_Click()Dim i As Integer, j As IntegerDim fz(1 To 16) As Integerfz數(shù)組存儲(chǔ)信息各題滿分值Dim b(1 To 33) AsSing

11、le數(shù)組b存儲(chǔ)全卷各題的平均得分For i = 1 To 16數(shù)組fz存儲(chǔ)信息16個(gè)小題的滿分值If i = 12 Then fz(i) = 2fz(13) = 4: fz(14) = 8: fz(15) = 7: fz(16) = 7Next iFor i = 2 To n把數(shù)組a數(shù)據(jù)分別統(tǒng)計(jì)到各題中，計(jì)算各題總得分b(j) = a(i) + b(j)Next iFor i = 1 To 33If i = 26 And i 12 Then j = i + 13 Else j = ib(j) = Int(b(j) * 1000 + 0.5) / 10對(duì)結(jié)果四舍五入保留1位小數(shù)List2.Add

12、Item 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月浙江選考)小宇為選定班級(jí)參賽作品編寫了一個(gè)VB程序，設(shè)計(jì)如下：在文本框Text1內(nèi)輸入5位評(píng)委對(duì)3個(gè)作品的評(píng)分?jǐn)?shù)據(jù)(評(píng)委對(duì)作品的評(píng)分?jǐn)?shù)據(jù)出3位十進(jìn)制數(shù)組成，第1位對(duì)應(yīng)作品編號(hào)，第2、3位對(duì)應(yīng)作品得分，分值范圍為60，99。如“275”表示2號(hào)作品得分75)

13、。單擊“計(jì)分”按鈕后，在標(biāo)簽Label1中輸出3個(gè)作品的平均分，在標(biāo)簽Label2中輸出參賽的作品(選擇最高平均分作品參賽，若最高平均分存在并列，則從并列作品中隨機(jī)抽取)：程序運(yùn)行界面如圖所示。(1)“計(jì)分”按鈕的對(duì)象名為_(kāi)。(2)程序部分代碼如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub jf_Click()Dim s As String, d As String, i As IntegerDim f As Single, f2 As Single, f3 As SinglesText1.Texti1Do While_dMid(s, i, 3)If Mid(d, 1, 1)“1”The

14、nf1f1Val(Mid(d, 2, 2)ElseIf Mid(d, 1, 1)“2”Thenf2f2Val(Mid(d, 2, 2)Elsef3f3Val(Mid(d, 2, 2)End If_LoopLabel1.Caption“作品1平均分為：”Str(f1 / 5)“作品2平均分為！”Str(f2 / 5)“作品3平均分為：”Str(f3 / 5)以下省略“處理并列最高平均分，并在Label2中輸出選取的參賽作品”的代碼End Sub(3)運(yùn)行該程序時(shí)，在文本框Text1中以不同的順序輸入原評(píng)分?jǐn)?shù)據(jù)：380/295/283/170/180/385/372/285/190/180/390

15、/384/272/170/276，單擊“計(jì)分”按鈕，則Label1中顯示的結(jié)果_ (選填：會(huì)/不會(huì))發(fā)生改變。答案(1)jf(2)i Len(s)或i Len(s)或i57及以上或i“a”And ch “A”And ch“Z”ThencchcElseIf ch “0”And ch “9”ThennumchnumElsenVal(num)If ch“”ThensMid(s, 1, n1)_ElsesMid(s, 1, n1)Mid(s, nLen(c), Len(s)nLen(c)1)End Ifssss“”sc“”：num“”End IfNext iLabel1.CaptionssEnd Su

16、b(3)運(yùn)行該程序，若文本框Text1中的內(nèi)容是“April”，文本框Text2中的內(nèi)容是“3p3ri6e”，單擊撤銷按鈕，F(xiàn)or循環(huán)語(yǔ)句執(zhí)行完成后，字符串s的值是“_”。答案(1)C(2)chMid(t，i，1)cMid(s, n, Len(s)n1)(3)”Apple”20(201811月浙江選考)在平面坐標(biāo)系中，給定一組有序的點(diǎn)。從原點(diǎn)出發(fā)，依次用線段連接這些點(diǎn)，構(gòu)成一條折線。要求編寫一個(gè)“計(jì)算折線長(zhǎng)度”的程序，功能如下：在文本框Text1中依次輸入這些點(diǎn)的坐標(biāo)值(數(shù)據(jù)都用逗號(hào)分隔并以逗號(hào)結(jié)尾)，單擊“計(jì)算”按鈕Cmd后，程序計(jì)算這條折線的長(zhǎng)度，結(jié)果顯示在Label1中。例如，三個(gè)點(diǎn)的坐

17、標(biāo)(5，10)、(8，12)、(6，17)輸入格式如圖所示。(1)Cmd對(duì)象屬于_類。(單選，填字母：A.Form/BLabel/ CTextBox/DCommandButton)(2)實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。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

18、0：y10出發(fā)點(diǎn)為坐標(biāo)原點(diǎn)k1：j1：Totald0For i1 To Len(s)If Mid(s，i，1)“，”ThenvVal(Mid(s，j，ij)提取坐標(biāo)值，保存在變量v中ji1If _ Thenx2vElsey2vdSqr(x2x1)2(y2y1)2)TotaldTotalddx1x2：y1y2End Ifkk1End IfNext iLabel1.CaptionStr(Totald)End Sub(3)運(yùn)行該程序，輸入數(shù)據(jù)如上圖所示，程序執(zhí)行到循環(huán)結(jié)束時(shí)，變量k的值為_(kāi)。答案(1)D(2)Text1.Textk Mod 21(3)721.小王編寫了一個(gè)實(shí)現(xiàn)文字查找替換功能的VB程

19、序，運(yùn)行界面如圖所示。文本框Text1顯示原文內(nèi)容，Text2中輸入查找內(nèi)容，Text3中輸入替換內(nèi)容，單擊“全部替換”按鈕Command1后，Text4顯示查找替換的結(jié)果，Text5中顯示替換的次數(shù)，Text6顯示“查找內(nèi)容”在原文中的起始位置。實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。Private Sub Command1_Click()Dim s As String, resule As String, pos As StringDim count As Integer, i As Integeri1: count0resule“”：pos“”Do While i Len(

20、Text1.Text)sMid(Text1.Text, i, Len(Text2.Text)If sText2.Text ThenresultresultText3.Textcountcount1pos(1)iiLen(Text2.Text)Else(2)ii1End IfLoopText4.TextresultText5.TextStr(count)Text6.TextposEnd Sub答案(1)Str(i)(2)resultresultMid(text1.text，i，1)22.單詞倒序加密法。把明文中每個(gè)單詞首尾顛倒進(jìn)行加密，空格、標(biāo)點(diǎn)等其他字符按原來(lái)順序輸出。在文本框Text1中輸入

21、密文，單擊“解密”按鈕Command1，按加密的規(guī)則，在文本框Text2中輸出解密后的字符。程序運(yùn)行時(shí)的界面如圖所示。實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)?jiān)趧澗€處填入合適代碼。Private Sub Command1_Click()Dim i As Integer, s As String, ch As StringDim newch As String, s1 As String_newch”s1”i1Do While i ”A”And ch ”a”And ch ”z”Thens1chs1Elsenewch_s1”End If_LoopIf s1 ”Then newchnewchs1Text2.T

22、extnewchEnd Sub答案sText1.Textnewchs1chii123.李雷收到了朋友發(fā)給他的一封奇怪的郵件，里面有段內(nèi)容是由一些數(shù)字和符號(hào)組成，信上面說(shuō)了，這段內(nèi)容是加密后的內(nèi)容，并給出了具體加密方法(假定原文的英文字母都是大寫的)，具體方法如下：“A”變?yōu)橐粋€(gè)1到100內(nèi)的隨機(jī)數(shù)*271，“B”變?yōu)橐粋€(gè)1到100內(nèi)的隨機(jī)數(shù)*272，每個(gè)字母變?yōu)閿?shù)字后會(huì)加上一個(gè)“”用來(lái)分割數(shù)字；其他空格和標(biāo)點(diǎn)字符都按原來(lái)的表示。(1)根據(jù)描述，若密文為“19051442”，則表示的是：_。(2)請(qǐng)?jiān)趧澗€處填入合適的代碼。Private Sub Command1_Click()Dim s As String, yw As String, ch As