《2021年浙江高考信息技术复习练习讲义：专题五 算法与VB语言基础.docx》由会员分享，可在线阅读，更多相关《2021年浙江高考信息技术复习练习讲义：专题五 算法与VB语言基础.docx（83页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、专题五算法与VB语言基础探考情悟真题【考情探究】考点算法 及VB语言 基础考试内容1.算法的表示流程图考试要求b5年考情考题示例考向难度2015浙江10月选考,5,2分;2016浙江4月选考,5,2分;2016浙江10月选考,5, 2分;2017浙江1月选考,6,2分;2017浙江11月选考,5, 2分;循环结构流程图2018浙江4月选考,7,2分;2018浙江6月学考,5, 2分;2018浙江11月选考,5,2分;2019浙江4月选考,6,2分；2019浙江6月学考,5, 2分预测热度 2.面向对象程序设计基础b注:主观题第一个程序题第 1小题,分值为1分,整合至 其他考点,真题此处不再罗
2、列程序界面设计中的控 件、属性、事件、方法等知识和修 工VB VB基本数据类型语言c注:本知识点是VB基础知识中的重点,虽然考题中没整型、字符串型和逻辑 型是热门考点 常量、变量的定义c有直接考査该知识点.但其分析变量的作用和类 基础及使用基本运算、表达式 及常用标准函数C是读懂代码、分析代码的 基础,分值整合至其他知识 点中,真题此处不再罗列2018浙江6月学考,11,5 分;2019浙江1月学考,5, 2分,型,是读懂程序的关键. 变量定义语句后的注释 语句有时可作为参考取整函数Ini、整数除 、求余Mod、随机函 数Rnd、字符串处理函 数Mid和Len是学考热 门考点 4.vb赋值语句
3、2016浙江10月选考,11,2 : 分:2019浙江4月选考,14,5分2015浙江10月选考,12,2 分;2017浙江11月选考1,2 分;2017浙江11月选考,17,6 分;2018浙江4月选考,11, 2分；2018浙江11月选考1,2 分;2019浙江4月选考1,2分每一道程序题都是 基本判断语句C语句的综合应用,需要熟练掌握这二种基本语 语句循环语句5.数组的定义及使用C句数组加循环 6.过程与自定义函数C2015浙江10月选考,17, 3 分;2017浙江1月选考,17,6 分;2018浙江1月选考,17,6 分;2019浙江4月选考,17,6 分 分析解读选、学卷分开后,整
4、份试卷中,算法与程序的分值加大了,由原来的20分增加到26分,分值组成如下:合卷时20分包括:3个选择题（1个流程图分析题、第!I题和第12题,共6分）和3个填空题（第14题5分、第16题3分和 第17题6分）.分卷时26分包括:6个选择题（第?至第12题,每题2分）和2个填空题（第15题7分和第16题7分）.可见分卷后,对算法和程序的考查加强了.到目前为止,分卷的学考卷已经有两份（2019年1月和2019年6月）,分卷的选考 卷尚且没有（2020年1月为第一次）,只有样卷。分析样卷,可以发现程序的题型和考法变得多样。1.6个选择题预测如下:流程图保留,题型为选择题,容易题。新增考査表达式、运
5、算符和函数,题型为选择题，容易题。新增考查字符串处理和循环语句,题型为选择题,中等难度。新增考查数组和循环语句,题型为选择题,中等难度。也可能考査数据库连接的相关知识。第11题或第12题中必有一题考对分算法糊E序算法,较难。第1I题或第12题中通常有一个数组运用题,较难。2. 2个填空题预测如下:第15题:相当于将合卷时的第1I题和第16题整合,共7分,第1小题仍然考查面向对象基础知识;后3个小题,一般是2个代 码填空,1个代码改错。可能还有一个算法分析填空。一般考排序算法或对分算法的运用,中等偏上的难度。第16题:相当于合卷时的第17题,通常有1个算法分析填空,3个代码填空。一般考数组、自定
6、义函数及算法的综合运用,比 较热门的有:矩阵、动态规划、加密解密、压缩解压、区间合并等问题。本题是考卷的最难题,往往花费较多时间,需要考生合理 分配时间。熟练掌握数组和 B基本语句语法,是解题的关键点。分卷后对数组的考査明显加强了,难题和大题往往都是数组和语句的综 合运用,甚当E序算法和查找算法也是基于数组和语句的运用。破考点练考向【考点集训】考点算法的表示流程图1. （2019金华十校期末调研考试）某算法的部分流程如图所示,输入“40”并执行这部分流程后,输出的sum的值是（l輸入1！ I 1, sum*0A. 91 B. 90 C. 21 D. 1275答案A2. （2018宁波十校联考,
7、5,2分）某算法流程图如图所示,执行这部分流程,变量sum的值为（）A. 1 B. 3 C. 4D.0答案A本题考査循环结构流程图.变量x与sum的变化过程如下:初值x=ll,suin=0;第1次进循环,sunpO+1-11 mod 2=O,x=5; 第 2 次进循环,sum=0+l-5 mod 2=0, x=2;第 3 次进循环,sum=0+l-2 mod 2=1, x=l;第 1 次进循环,sum=l+lT mod 2=1, x=0;退出循 环.因此sum： 1.3. （2018浙南名校联盟期末考试）某算法的部分流程图如图所示。执行这部分流程图后输出s的值是（）A. 15 B. -4C.-
8、5D. -6答案B4. （2019宁波新高考选考适应性考试）某算法流程图如图所示,执行该算法,输出s的值是（）I *-3: k-1 1A. 1.333333 B. 0.5 C.-2 D. 3答案C考点二面向对象程序设计基础1.在Visual Basic窗体中,当前对象的属性窗口如图所示,下列说法正确的是（）|CMllC号序IIBeM：olor *00000 /CaclFli0网4，！DvnFietv 0Im) Dr *Icob 5mm)Dr“d0 -Eaakl.4 TnM初 .JXaicht 495 2 feat 量同个0tA. Command !是对象名B. True为属性名C. Font为
9、属性值D.该对象的宽度值为195答案A2. （2018绍兴期末调测）要使程序运行时,按钮Command1上显示“转换”,下列方法不可行的是（单选,填字母:A.界面设计时, 选中对象Command 1,设置Caption属性为“转换”/B.在orm_Load事件处理过程中添加语句Command 1. Caption =转换”/ C,在Form Load事件处理过程中添加语句Command 1. Text=转换）.答案C3. （2018浙江十校联盟选考适应性考试,14, 1分）编写如下程序:也怩接二叵区十六迸”:设计如图所示的程序界面,至少要使用 个类(填数字).答案4考点三VB语言基础1. (2
10、019浙南名校联盟第一次联考)下列VB表达式中,只随机产生9到99之间偶数的是()A. Int(Rnd*90+10)B. Int(Rnd*90+9)C.Int(Rnd*45)*2+I0D. Int(Rnd*45)*2+9答案C2. (2019浙江“七彩阳光”联盟期初联考)下列表达式的运算结果与其他选项不同的是()A. 6 Mod 3 * 3 B. Asc ( “F” ) -64C. lnt(Sqr(50) -1 D. Mid (“ 123456”，6, 1)答案D3. (2019第一学期五校联考)如果一个整数是另个整数的平方,则称该数是“完全平方数”.下列表达式能判断整数m为完全 平方数的是(
11、)(Sqr(m)2=mInt(Sqr(m)=Sqr(m)m/Int (Sqr(m)= m Int (Sqr (m)Int(Sqr(m) 2=mA. B. C. D.答案C考点四VB基本语句1.有一 VB程序的功能如下:在文本框Textl中输入串数字,以逗号分割.程序运行后,在标签abe”中输出字符串中的最大数. 例:在文本框Text I中输入“12, 23,9, 45,98, 58,运行结果为在标签1abel 1中显示“98” .部分程序如下: s = Textl.Textj=l:n=ODo While j Max Then Max = xn = 0ElseEnd IfLoopLabel 1.
12、 Caption =最大值:+Str(Max)程序段划线处应填()乂 =Val(Mid(s, j - n, n) n=n+I j=j+lB.x =Val(Mid(s, j - n, n) 上訂十 n=n+1C.x =Val (Mid(s, j -n + 1, n) n=n+l j=j+lD.x =Val (Mid(s, j - n + 1, n) j=j+l n=n+l答案A2. (2018浙江绍兴柯桥选考模拟,14, 5分)编写个“二逬制数转十六逬制数”的VB 皿,实现如下功能:在文本框Textl中输 入一个二进制数,单击“转换”按钮Command1,在文本框Text2中显示对应的十六进制数
13、。程序界面如图所示:实现上述功能的VB程序如下,请在划线处填入合适的代码。Private Sub Commandl_Click()Const w = 0123456789ABCDEF*Dim i As Integer, n As Integer, c As String, s As String, s2 As String s = Textl. TextFor i=l To 4 - Len(s)Mod 4 s=*0*+sNext i i = 1: n = 0 Do While i num Then num = b(i)Next i数组b各元素初始值为0,数组元素a(l)到a(10)的值依次为“
14、68, 17,24,30,36,40,55,58,61,66”,执行该程序段后,num的值为 ()A.2B.3C.4D.5答案D2 .有如下VB程序段:Dim a(l To 10) As IntegerDim s(l To 10) As IntegerPrivate Sub Form_Load()a(l) = 3: a(2) = 6: a(3) = 8: a(4) = 4: a(5) = 9a(6) = 5: a(7) = 3: a(8) = 3: a(9) = 10: a(10) = 5End SubPrivate Sub Commandl_Click()Dim i As Integer,
15、t As Integers(l) = a(l)For i = 2 To 10s(i) = s(i - 1) + a(i)Next it =s(8) - s(4)Textl. Text = Str(t)End Sub程序运行后,文本框Text 1显示的内容是()A. 24 B. 12 C. 7 D. 20答案D3 .有如下VB程序段:Dim a(l To 5)As Integer, i As Integer, c As Integera(l)=2:a(2)=l:a(3) =3: a (4) =4: a (5) =5c=0For i=3 To 5If a(i-2)+a(i-l)=a(i) Then
16、 c=c+lNext iTextl. Text=Str(c)该程序段运行后,文本框Text!中显示的内容是()A. 1B.2 C. 3 D. 4答案B4 .某VH程序段如下:For i = 1 To 5b(a(i) = b(a(i) + 1Next ipa = 0For j = 1 To 10For k = 1 To b(j)pa= pa +1 : a(pa) = jNext kNext ja(I)到a(5)的初值依次是7、5、9、4、3,程序段运行后,数组u值依次是()A. 7,9, 5, 4,3B. 3, 4, 5, 7, 9C. 4, 5, 7,9, 3D. 9, 7, 5, 4, 3答
17、案B考点六过程与自定义函数 1.找出所有两位整数中的“镜反平方数对”.所谓“镜反平方数对”是指数对n与m,它们满足条件:n与m不含有数字,且n 小于明n的反序数是川,n的平方数的反序数等于m的平方。例如12与21,12的平方是144.其反序数是441,而21的平方正好 等于141,所以12与21是镜反平方数对,请完善程序代码.Private Sub Commandl_Click()Dim i As Integer, fm As Integer, st As String, n As IntegerFor i = 11 To 99If Thenn =i : fm = fx (n)If valid
18、ate(i, fm) And i fm Thenst = i & “ , 2= & i 2 & & fm & fm - 2Listl. AddItem stEnd IfEnd IfNext iEnd SubPrivate Function fx(j As Integer) As IntegerDim s As StringDo While j 0j = j 10Loopfx = Vai (s)End FunctionPrivate Function validate(p As Integer,q As Integer) As BooleanIf fx(p 2) = q 2 Then valid
19、ate = True End Function答案 i Mod 10 s = s + Str(j Mod 10)2.某游戏规则如下:将2*n位队员按2人组分成n个队（n 10）,地面上有一排格子,共2*n个,每个格子都对应一个小于!0的随 机正整数。游戏开始后,所有队员都选择站到个空的格子里,等他们站满格子后,开始为每位队员进行记分。记分规则:每组有甲、 乙两个队员,甲队员的分数是从自己所站的格子开始,按照格子序号递减,将这些格子中的数字一直累加到第1个格子。乙队员的 分数是从自己所站的格子开始,按照格子序号递增,一直将格子中的数字累加到第2*n个格子。如果同一队的两名队员得到的分数 相同,则
20、该组参赛队获胜。例如:如图所示,有4个队8位队员,地上一丹曲子的数字依次为:2、1、1、7、9、2、5、6.若某队甲队员站在第4个格子,则其 分数为2+1+1+71;乙队员站在第7个格子,则其分数为：5+6=11,两者相等,则该队获胜。假设有3组队员,地上一封曲子的数字依次为:6、7、3、4、3、9.若某组甲队员站在第3个格子上,那么该组乙队员站在第 个格子上宜缴胜。ms 力(4(1)实现上述功能的VB程序如下。请在划线处填入合适的代码。Dim n As IntegerDim gz(l To 20) As IntegerPrivate Sub Commandl_Click()Dim dfa A
21、s Integer, dfb As IntegerDim ta As Integer, tb As IntegerRandomizeFor i = 1 To 2 * ngz(i) = Int(Rnd* 9+1)Listl. Additem gz( & i & ) & gz(i)Next inum = 1For j = 1 To 2 * nta = jdfa = zwdf(ta, True)For k = 1 To 2 * ntb = kIf dfa = dfb ThenList2. Addltem num & 甲队员(& j &)得分二& dfa & 乙队员(& k & )得分& dfb nu
22、m = num + 1End If Next kNext jList2. Addltem ”获胜的站法共有:、+ “种”End SubFunction zwdf(p As Integer, r As Boolean) As Integer Dim fs As Integer If r = True Then fs = fs +gz(i) Next iElseFor i = p To 2 * n fs = fs +gz (i) Next iEnd If zwdf = fs End Function答案 (1)4 (2)n=Val (Textl. Text) dfb=zwdf (tb, False
23、)或 dfb=zwdf(k, False) Str(numT)For i = p To 1 Step -1 或 For i = 1 To p【五年高考】考点算法的表示流程图20152019年真题,提升题组1. （2019浙江6月学考,5, 2分）十进制数转换为二逬制数的算法流程图如图所示,当输入十进制数63时,该流程图中循环体执行 的次数为（）A.4B.5C.6D.7/輸入X的值/1 z 一1/ / 11*靖火1答案c2. （2019浙江4月选考,6, 2分）某算法的部分流程图如图所示.执行这部分流程后,输出c111c4-0,0 _1Vc=10 and q /輸出的偵pmodIc-c+41|A
24、. 8, 10 B. 10, 14 C. 12,6 D. 12, 24答案Bs的值分别是（）3. （2018浙江11月选考,5, 2分）某算法的部分流程图如图所示。执行这部分流程,分别输入35、50、60,则输出值依次为（7rW 10?D. 10, 12,3A. 10,3 B. 10,4 C. 7,10,4答案B4. （2018浙江6月学考,5,2分）某算法的部分流程图如图所示,以下说法正确的是（A.该流程执行后,变量k的值是1B.该流程执行后,变量的值是16C.该流程用于计算并输出1+8-16的值D.该流程完整执行1次,“a32?”共执行了 3次答案DSka初值!18第!次循环1+1*8=9
25、016第2次循环9+0*16=9132最后k=l,a=32, s=l + l*8+0*16=9.变量k的值在0和I之间切换.循环体进入2次,循环条件判断了 3次,最后一次条件不成立,退出循环。5. （2018浙江4月选考,7, 2分）某算法部分流程图如图所示。执行这部分流程.依次输入12、5、29、18、7,则输出值是（A. 12 B. -5 C. 29D.7答案C6. （2017浙江11月选考,5, 2分）某算法的部分流程图如图所示,执行这部分流程后,输出a, b的值分别是（）Il,b-0j/輸出Q /A. 5,8 B. 4,8 C. 5,11 D. 4, 11答案C7. （2017浙江4月
26、选考,6, 2分）某算法的部分流程图如图所示。执行这部分流程,依次输入3, 4, 7则输出s的值是（）輸rtu 7A. -2 B.-l C.O D. 1答案B8. （2016浙江10月选考,5, 2分）某算法的部分流程图如图所示,执行这部分流程后,变量a, b的值分别是（）A. 3, 3 B. 3,4 C. 6,6 D. 7, 11答案D9. （2016浙江1月选考,5, 2分）某算法的部分流程图如图所示,执行这部分流程后,变量x的值是（）A. 0 B. 1C.2D.3答案B考点二面向对象程序设计基础考点三VB语言基础20152019年真题,提升题组1. （2019浙江1月学考,5, 2分）下
27、列VB表达式的值等于8的是（）A. Abs（-8. 3） B. Int（Rnd*7+l）C. Len（ M2+60 ） D. 18 Mod 10答案D2. （2015浙江3月学考,3分）下列属于Visual Basic实数常量的是（）A. 0.618 B. 1/2 C. True D. ”2014-9-1”答案A3. （2015浙江3月学考,3分）在Visual Basic中,若x是3的倍数,则下列表达式值一定为真的是（）D. 3-x=0A. x/3=0 B. x*3=0 C. x Mod 3=0答案c4. （2018浙江6月学考,11, 5分）素数只能被1和它本身整除,不能被其他自然数整除。
28、编写VB程序实现如下功能:单击“产生奇 数并判断”按钮Commandl,随机产生一个三位正奇数显示在文本框Textl中,并在文本框Text2中显示其是不是素数的判断结果。例如,当随机产生的三位正奇数为953时,程序运行界面如图a所示.图，在设计程序界面时,应使用图b所示“控件工具箱”中的（填写相应编号）添加文本框Textl.实现上述功能的VB程序如下,请在划线处填写合适的代码。Private Sub Command1 Click（）Dim n As Integer, i As IntegerDim flag As Boolean 用于标记是不是素数Randomizen = I nt () *2
29、-1Textl. Text = Str(n)flag = True 标记为素数i = 3Do While i n-l或i=n或i=n或其他等价表达式（3）B考点四VB基本语句20152019年真题提升题组1. （2016浙江10月选考,11,2分）对称字符串的特征是从左到右读和从右到左读完全样.如“abba”是对称的,“ abcba”也是 对称的判断字符串是否对称的VB程序段如下:n=Len（s）k=0:j=nFor i=l To n/2Next iIf k=0 ThenLabel 1. Caption=对称”ElseLabel 1. Caplion一不对称方框中的代码由以下三部分组成:上二尸
30、If cl Oc2 Then k=k + 1cl= Mid（s, i, 1） :c2=Mid（s, j, 1）代码顺序正确的选项是（）A.C. D. 答案C2. （2019浙江4月选考,14, 5分）小王设计“模拟撤销”程序,需要用一个“历史记录、“历史记录”是在对字符串s进行插入 或删除时,将每步操作信息依次存储得到的,操作信息由操作符（“ + ”表示插入,“表示删除）、操作位置和操作字符串（只包含 英文字母）构成,例如,“+23abc”表示在字符串s第23个位置插入了 “abc”，“模拟撤销”过程按照“历史记录”的逆序逬行, 将字符串s的内容恢复到初始状态。对字符串“Book”的操作与撤销
31、过程,如图“所示,Bike人T11除no 1 r|人寸/r历史记录:!+2| -3oo L _4c! J/ 1 T总管除 “”销过程:Book Biook Bik -Bike图a小王编写的“模拟撤销” VB程序如下,文本框Text!中的内容是撤销前字符串,文本框Text2中的内容是历史记录,单击“撤销” 按钮Command 1后,在标签Label 1中显示撤销过程,程序运行界面如图b所示。图b(1)实现上述功能的VB程序如下,在程序中出现的对象没有Capt ion属性的是.(选填,填字 母:A. Label 1/B. Command 1/C. Text ! 和 Text2)(2)请在划线处填入
32、合适的代码.Private Sub Command1_C1ick()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 = Textl. Text: t = Text2. Text c =: num =: ss = sFor i = Len(t) To 1 Step -1If ch = a And ch = A And ch = Thenc =ch + cElself ch = 0 And ch = 9 Then
33、num =ch + numElse n = Vai(num) If ch = - Then s = Mid(s, 1, n - 1) + Else s = Mid(s, 1, n - 1) + Mid(s, n + Lcn(c), Len(s) - n - Len(c) + 1) End If ss = ss + sc =: num =End If Next i Label 1. Caption = ss End Sub 运行该程序,若文本框Text1中的内容是Apri,文本框?ext2中的内容是“-3P+3ri-6e”,单击撤销按钮,For循环语句执行完 成后,字符串s的值是 答案 (1)C
34、 (2)ch=Mid(t, i, 1) c+Mid(s, n, Len(s)-n+1) (3) Apple考点五数组的定义及使用20152019年真题提升题组1. (2019浙江4月选考,11, 2分)有如下VB程序段: flag = true : i = 1 Do While i 50 Then a(i)=x flag = Not flagEnd IfLoop执行该程序段后,在下列选项中,a (1)各元素值不可熊的是()A. 52,95, 46, 74, 77,83B. 50, 55, 46, 70, 21,97C. 62, 78, 57,61, 69, 50D, 31, 54, 48, 7
35、2, 50,82答案C2. (2018浙江11月选考,11, 2分)有如下VB程序段:For i=l To 6a(i)=Int(Rnd*10)+lNext iFor i=l To 5If i Mod 2=1 And a(i) a(i+l) Thent=a(i) :a(i)=a(i+l) :a(i+l)=tElsea(i)=a(i) + lEnd IfNext i执行程序后,a数组各元素可能是()A. 11, 11,7,9, 3,9 B. 6,2,8, 10, 5,9C. 6, 9, 3, 7, 8, 12 D. 3, 9, 0, 8, 2, 7答案A3. (2018浙江11月选考,12, 2分
36、)下列VB程序功能为:根据文本框Textl中各字符的大小关系,计算各字符升序排列的序号,并将 序号呆存在数组y中.如文本框内容为“2011”,程序运行后y(l)y(4)各元素的值分别为“4,1,2,3” .s=Textl. Textn=Len(s)For i=l To ny(i)=lNext iFor i=l To I IFor j= I (2) ?o n If I lhen y(j)=y(j)+lElsey(i)=y(i) + lEnd IfNext jNext i上述程序段3个加框处的表达式分别为()A. (l)n (2)1(3)Mid(s, j, l)=Mid(s, i, 1)B. (l
37、)n (2)1(3)Mid(s, j, l)Mid(s, i, 1)C. (l)n-l(2)i+l (3)Mid(s, j, l)=Mid(s, i, 1)D. (l)n-l(2)i+l (3)Mid(s, j, l)Mid(s, i, 1)答案C4. (2018浙江1月选考,11,2分)有如下VB程序段:a(l) = 1: a(2) = 1b(l) = 1: b(2) = 2For i = 3 To 5a(i) = a(i - 1) + a(i - 2)b(i) = b(i - 1) + a(i)Next i执行该程序段后,数组元素b (5)的值为()A. 12B.8C.5D.4答案A5.
38、(2017浙江11月选考,11,2分)有如下VB程序段:n=0For i=l To Len(Textl. Text)c=Mid(Textl. Text, i, 1)If c=*O*And c=9 Then m=l Else m=2a(m)= a(m) + lIf a(m) = 1 Then n=n+lNext i数组a中各元素的初始值都为O,文本框Text!中的内容为“Happy2017” .执行该程序段后,变量n的值为()A. 1B.2C.4 D. 9答案B6. (2017浙江11月选考,17, 6分)由数组a生成数组b的方法描述如下:1)将数组a中的n个元素依次分割出若干个数据块,每个数据
39、块有mXm个元素,m最大值为8,最小值为2.分割时,按尽可能大的 数据块逬行分割。2)对每个分割出的数据块用“方阵转换法逬行转换,每次转换后得到的数据块依次存储到数组中.3)数组a分割后的剩余元素(个数小于4),直接依序存储到数组b中.例如n=140时,可依次分割出3个数据块,元素个数分别为64(8X8)、64(8X8)、9(3X3),剩余元素为3个。“方阵转换法”过程如下:将数据块中mXm个元素按行序排列成一个数字方阵,从该数字方阵中按列序得到转换后元素的次序。以3X3数据块为例,转换过程如图所示：转换后元索次序-4 12 42 54 67 19 22 34 77 83小明依据上述描述设计了
40、如下VB程序。请回答下列问题: 当n=120时,分割出的第3个数据块元素个数为 (2)请在划线处填入合适的代码。Const n=120Dim a(l To n)As IntegerDim b(l To n)As IntegerPrivate Sub Command1_C1ick()Dim m As Integer, i As IntegerDim Start As Integer 当前未分割数据的第1个元素下标Dim Left As Integer 当前未分割数据的个数Dim pa As Integer 数组 a 的下标Dim pb As Integer 数组 b 的下标读取n个转换前的数据,
41、依次存储到a(l)、a(2),a(n)中,代码略m=8Start=lLeft=nDo While Left3If Leftm*m Thenm=Elsepa=Startpb=StartFor i=l To m*mb(pb)=a(pa)pb=pb+lIf i Mod m=0 ThenElsepa=pa+mEnd IfNext iStart=Start+m*mEnd IfLoopFor i=Start To nb =a6Next i依次输出转换后的数据b(l), b(2)、b(n),代码略End Sub答案(1)4 (2)ni-!或其他等价表达式pa-Start+im或pa=pa- (m-l)*m+l或其他等价语句Left二Left-m*m 或 Left=n-Start-ni*m+l 或其他等价语句7. (2016浙江4月选考.17, 6分)某数据压缩方法描述如下:1)原始数据中,某数不为0且相邻无重复,压缩数据用该数据表示;2)原始数据中,某数为0且相邻无重复,压缩数据用两个数表示,第1个为0,第2个为;3)原始数据中,某数据相邻有重复,压缩数据用3个数表示:第1个为,第2个为重复数的个数,第3个为该数本身;根据上述压缩方法,对应的