2010会考题信息基础与算法

第一套 1、杀毒软件的病毒库应及时更新，才能更有效地起到杀毒与防毒作用，这主要是为了保证 信息的 （A）时效性 （B）载体依附性 （C）共享性 （D）传递性 2、十进制数37转换成二进制数是 （A）(100001) 2 （B）(100101) 2 （C）(101001) 2 （D）(110001) 2 3、OCR软件主要用于 （A）将文字图像化 （B）将图像中的英文翻译成中文 （C）自动写作 （D）将图像中的文字转换成文本 4、下图是某用户注册电子邮箱时的部分内容： 则下列说法正确的是 （A）当前用户正在申请的电子邮箱为 （B）账号zjhk2010已被别人占用，当前用户应该改用其他名称 （C）当前用户已填写完成所有注册信息，点击“完成注册”按钮即可注册成功 （D）因“密码”与“ 密码确认”内容不一致，必须重新设定密码 5、小陈想把自己拍摄的800600像素图像调整大小后放在网页上，下列图像大小能保持原 图纵横比的是 （A）800240像素 （B）320600像素 （C）320320像素 （D）320240像素 6、李明同学用Access软件为班级建立了学生信息表，部分内容如下图所示： 当班级中转入新的同学时，他应该对该表进行的操作是 （A）查询记录 （B）修改记录 （C）添加记录 （D）删除记录 7. 用计算机无法解决“打印所有素数“的问题，其原因是解决该问题的算法违背 了算法特征中的 2 （A）唯一性 （B）有穷性 （C）有 0 个或多个输入 （D）有输出 8. “和谐号”列车规定：旅客可免费携带 20Kg行李，携带品的长、宽、高相加不 超过130cm，对超过规定的携带品，应提前办理托运手续。用算法描述行李能否 托运的处理过程，合适的算法流程是 （A）顺序模式 （B）选择模式 （C）循环模式 （D）树型 模式 9. 在Visual Basic中，语句Label1.Caption = “欢迎使用本系统!“ 中的 “Label1“是 （A）属性值 （B）属性名 （C）对象名 （D）类名 10. 某校对新入学的320名高一男生进行1000米耐久跑测试，测试成绩保留2位 小数。在Visual Basic中，下列存储成绩数据的变量定义最合适的是 （A）定义320个整数型变量 （B）定义1000个整数型变量 （C）定义一个元素个数为320的一维数组，数据类型为整数型 （D）定义一个元素个数为 320 的一维数组，数据类型为单精度实数型 11. 在Visual Basic中，表达式12345 Mod 100的值是 （A）123 （B）45 （C）12 （D）5 12. 有如下Visual Basic程序段： For x = 10 To 1 Step -1 a(x) = x + 1 Next x 该程序段运行后数组元素a(3)的值为 （A）9 （B）8 （C）4 （D）3 13. 某校有6位学生参加学生会主席竞选，得票数依次为 130，20，98，15，67，3。若采用冒泡排序算法对其进行排序，则完成第二遍 时的结果是 （A）3，15，130，20，98，67 （B）3，15，20，130，98，67 （C）3，15，20，67，130，98 （D）3，15，20，67，98，130 14. 随机产生10个1，99中的整数，依次存储到数组变量a(1)a(10)中。实 现此功能的部分算法流程图如图所示： 3 图中空白处理框和处应填入的是 （A） i i + 1 （B） i i + 1 a(i) Rnd * 100 a(i) Int(Rnd * 100) （C） a(i) Int(Rnd * 100) （D） a(i) Int(Rnd * 99) + 1 i i + 1 i i + 1 第二套 1、课堂上同学们就“气候变化的影响“展开了热烈的讨论，通过交流，同学们对气候变化带 来的影响有了更多的了解。该事例主要体现了信息的 （A）时效性 （B）真伪性 （C）载体性 （D）共享性 2、二进制数(101101) 2转换成十进制数是 （A）25 （B）35 （C）45 （D）55 3、某软件的相关信息如下图所示： 则下列说法正确的是 （A）这是一个免费软件 （B）该软件能免费试用45天 （C）该软件在付费$39.95后能用45天 （D）该软件45天后才能注册 4 4、在IE浏览器中，将一个包含文字、图片和超链接的网页保存后，仅得到“kate.htm”文件， 则在保存时选择的保存类型为 （A）网页，全部（*.htm；*.html） （B）文本文件（*.txt） （C）网页，仅HTML（*.htm；*.html） （D）Web档案，单个文件（*.mht） 5、在采集一段音频数据时，仅提高采样频率将 （A）降低该音频的音质 （B）提高该音频的音量 （C）降低该音频的量化位数 （D）增加该音频的存储量 6、某地驾照考试规定，考试成绩不低于80分为合格，下图是根据成绩判断是否合格的部分 流程图： Y N 输 入 成 绩 成 绩 小 于 80？ 输 出 结 果 2 输 出 结 果 1 如果输入的成绩为85，则该流程的执行顺序为 （A） （B） （C） （D） 7. 做匀加速直线运动物体的即时速度计算公式是v t = v0 + at，其中v 0是初速 度，a是加速度，t是时间。计算步骤有： 用公式计算即时速度v t = v0 + at 输入初速度v 0、加速度a和时间t 结束 输出结果v t 其正确的顺序是 （A） （B） （C） （D） 8. 为找自己第一次上幼儿园时的照片，小张同学依次翻开自己的多本相册来逐 张查找。这种查找方法为 （A）无序查找 （B）顺序查找 （C）对分查找 （D） 随机查找 9. 某校对新入学的560名高一新生进行视力检测，视力数据保留一位小数。在 Visual Basic中，下列存储视力数据的变量定义最合适的是 （A）定义5个整数型变量 （B）定义560个整数型变量 （C）定义一个元素个数为560的一维数组，数据类型为整数型 （D）定义一个元素个数为 560 的一维数组，数据类型为单精度实数型 10. 在Visual Basic中，表达式5678100的值是 （A）5 （B）56 （C）56.78 （D）567 5 11.下列能表示“ x大于0且 x小于10” 的Visual Basic 表达式是 （A）x 0 Or x = 0 And x = 0 And x 0 And x y Then max = x Else max = y End Function 运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6 后，单击命令按钮Command1，文本框Text5中显示的是 （A）-5 （B）2 （C）6 （D）24 6 第三套 1、对于信息特征的理解，下列说法正确的是 （A）信息是可以加工处理的 （B）信息共享指的是将信息传递给对方，而自己失去这一信息 （C）信息的价值是不会改变的 （D）存在不依附于任何载体的信息 2、十六进制数3AH转换成二进制数是 （A）(100101) 2 （B）(100111) 2 （C）(101010) 2 （D）(111010) 2 3、下表为某MP4播放器的部分参数： 下列说法正确的是 （A）该播放器能播放音频文件“dream.ape” （B）该播放器不具备录音功能 （C）该播放器能播放视频文件“2012.rmvb” （D）该播放器只能浏览JPEG格式的图片 4、在IE浏览器中，将一个包含文字、图片和超链接的网页保存后，得到“kate.htm”文件和 “kate.files”文件夹，则在保存时选择的保存类型为 （A）网页，全部（*.htm；*.html） （B）文本文件（*.txt） （C）网页，仅HTML（*.htm；*.html） （D）Web档案，单个文件（*.mht） 5、小林在Word字处理软件中输入英文“shcool”后，发现该单词变为“school”，这是因为 Word字处理软件具有 （A）批注功能 （B）自动更正功能 （C）修订功能 （D）复制功能 6、一个用Access软件创建的数据表如下图所示： 在保证其他数据内容完整的前提下，要将“陈旭”的所有信息删除，下列操作正确的是 （A）删除数据表 （B）删除姓名字段 7 （C）删除数据库 （D）删除第2条记录 7. 下列关于算法的描述，正确的是 （A）一个算法的执行步骤可以是无限的 （B）一个完整的算法必须有输出 （C）算法只能用流程图表示 （D）一个完整的算法至少有一个输入 8. 在Visual Basic中，放入窗体中的控件被称为 （A）类 （B）事件 （C）属性 （D）对象 9. 在Visual Basic中，语句Dim x As Double所定义的变量x属于 （A）整数型 （B）单精度实数型 （C）双精度实数型 （D）长整数型 10. 在Visual Basic中，若x表示能被5整除的正整数，则下列逻辑表达式的值 一定为真的是 （A）x / 5 = 0 （B）x Mod 5 = 0 （C）Int(x 5) = 0 （D）5 Mod x = 0 11. 在Visual Basic中，a = -100，表达式“360“ + Str(a)的值是 （A）260 （B）360-100 （C）460 （D）360100 12. 下列属于正确的Visual Basic表达式是 （A）a+b*|c| （B）b3+2 （C）2n-1 （D）2h/g 13. 有如下Visual Basic程序段： Dim a(1 To 4) As Integer a(1) = 1 For i = 2 To 3 a(i) = 2 * a(i - 1) + 1 Next i 该程序段运行后，数组元素a(4)的值为 （A）15 （B）7 （C）3 （D）0 14. 计算某球队平均年龄的部分算法流程图如图所示，其中：c用来记录已输入 球员的人数，sum用来计算有效数据之和，d用来存储从键盘输入的球员年龄值， 输入0时表示输入结束。 图中空白处理框和处应填入的是 （A） sum sum + d （B） sum sum + c c c + 1 c c + 1 8 （C） sum sum + d （D） sum sum + c d d + 1 d d + 1 第四套 1、下列信息可信度较高的是 （A）某网站出售的2011年高考试卷内容 （B）电视购物上宣传的永葆青春的药物广告 （C）实况转播NBA球赛的比分情况 （D）陌生人发来的电子邮件内容 2、十六进制数5CH转换成二进制数是 （A）(1111100) 2 （B）(1101101) 2 （C）(1101001) 2 （D）(1011100) 2 3、小胡的一个Word文档请朋友修改后，发现其中一段文字改得不太合理，就拒绝了在该处 的修改，该处文字就还原为原来内容。这用到了Word字处理软件中的 （A）修订功能 （B）批注功能 （C）自动更正功能 （D）替换功能 4、下图是某用户撰写电子邮件时的部分内容： 对于邮箱提示内容，下列说法正确的是 （A）收件人太多 （B）主题格式不符合要求 （C）当前上传的附件大小超过规定 （D）已经上传的附件个数太多 5、在RGB颜色模式下，下列表示绿色的是 （A）RGB(0,0,0) （B）RGB(255,0,0) （C）RGB(0,255,0) （D）RGB(255,0,255) 6、空气污染指数（API）值不超过50，说明空气质量为优。下图是根据API值判断空气质量 情况的部分流程图： 9 Y N 输 入 API值 API值 大 于 50？ 输 出 结 果 2 输 出 结 果 1 如果输入的API值为55，则该流程的执行顺序为 （A） （B） （C） （D） 7.在给定的正整数区间m,n( mb“中的 Password是 （A）对象名 （B）属性值 （C）属性名 （D）类名 9. “计算计件工资“的Visual Basic程序运行界面如图所示，单击“计算“命令按 钮Command1，触发的事件处理过程名是 14 （A）Command1_Click （B）Text1_Click （C）Form_Click （D）Label3_Click 10. 在Visual Basic中，用变量p存储杂志的刊号(如“CN 41-103” )，变量p的数 据类型应定义为 （A）String （B）Integer （C）Single （D）Date 11. 在Visual Basic中，表达式100 + Val(“36“)的值是 （A）100+36 （B）136 （C）106 （D）10036 12. 设x是正数，下列能用于描述“x是否为偶数“的Visual Basic条件表达式是 （A）x 2 = 0 （B）x / 2 = 0 （C）x Mod 2 = 0 （D）x = Abs(x) 13. 运行如下Visual Basic程序，单击命令按钮Command1，出现如图所示的出 错信息。发生“除数为零“错误时所执行的语句是 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Single a = 2 b = a + 1 c = a / (b - 3) Text1.Text = Str(c) End Sub （A） （B） （C） （D） 14. 在Visual Basic中，有如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer Dim d As Integer a = Val(Text1.Text): b = Val(Text2.Text): c = Val(Text3.Text) d = max(a, b) + max(b, c) Text4.Text = Str(d) End Sub Function max(x As Integer, y As Integer) As Integer 15 If x y Then max = x Else max = y End Function 运行该程序，在文本框Text1、文本框Text2、文本框Text3中分别输入2、-5、6 后，单击命令按钮Command1，文本框Text4中显示的是 （A）-5 （B）2 （C）6 （D）8 第七套 1、 “烽火戏诸侯” 故事中传递信息采用的技术属于 （A）古代信息技术 （B）近代信息技术 （C）现代信息技术 （D）未来信息技术 2、十进制数35转换成二进制数是 （A）(110001) 2 （B）(101001) 2 （C）(100101) 2 （D）(100011) 2 3、用UltraEdit软件观察字符内码，结果如下图所示： 则图中内码表示的对象可能是 （A）2个ASCII字符 （B）2个GB2312字符 （C）4个GB2312字符 （D）8个ASCII字符 4、下表为某MP4播放器的部分参数： 下列说法正确的是 （A）用该播放器录音生成的文件可以是MP3格式 （B）该播放器可以播放视频文件“ev.wmv” （C）该播放器可以播放GIF动画 （D）该播放器播放的所有视频为黑白影像 5、下图是某用户撰写电子邮件时的部分设置内容： 则下列说法正确的是 （A）该邮件能自动获得一个回执 （B）单击“发送” 按钮，收件人能立即收到邮件 （C）单击“发送” 按钮，该邮件将于10月2日10时自动发送 （D）单击“发送” 按钮，收件人能立即收到邮件，并将于10月2日再次收到该邮件 16 6、某算法的流程图如下所示： Y N 输 入 a,b c0.5？ 输 出 a+b 输 出 a-b c=a/(+b) 开 始 结 束 当输入a，b的值分别为5，7，该算法的输出结果为 （A）2 （B）5 （C） 7 （D）12 7.求两个数n、m中较小数(结果保存到变量min中)的算法有如下步骤： 用公式计算较小数min = 2 |mn 输入两个数n、m 结束 输出变量min 其正确的顺序是 （A） （B） （C） （D） 8. 在Visual Basic的代码窗口中，语句Label1.BackColor = vbBlue中的 BackColor是 （A）属性值 （B）属性名 （C）对象名 （D）类名 9. 在Visual Basic中，下列能作为变量名的是 （A）5a （B）a+5 （C）if （D）flag 10. 在Visual Basic中，表达式Sqr(9) + Len(“4“)的值是 （A）13 （B）7 （C）4 （D）3 11. 数学表达式 “2n-10且2n-11“对应的Visual Basic表达式是 （A）2n - 1 0 And 2n - 1 1 And Not (2 * n - 1 = 1) （C）2n - 1 0 And 2n - 1 1 （D）2 * n - 1 0 And 2n - 1 0 _。 （3）程序中划线处应填入_ temp(a,b) _。 27 第二套 1.有如下Visual Basic程序段： m = -5 n = -2 s = m + Int(n) 该程序段运行后，变量 s 的值为_-7_。 2. 有如下Visual Basic程序段： a = 10 b = 8 If a b Then Label1.Caption = “morning“ Else Label1.Caption = “byebye“ End If 该程序段运行后，在标签 Label1 上显示的是_ morning _。 3. 有如下Visual Basic程序段： s = 0 a = 5 For i = 1 To 10 Step 2 a = a + i s = a * i Next i 问：该程序段运行后， （1）变量i的值是_11_。 （2）变量 s 的值是_270_。 4. 某超市打折促销，规定如下： 购物未超过500元按原价支付； 购物超过500元但未超过1000元，超过500元部分按9折优惠计价； 购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价； 购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价； 购物超过3000元，超过3000元部分按6折优惠计价。 根据以上规定，假定购物货款为x元，则实付金额y为: 程序界面如图所示，在“输入购物金额（单位：元）“后的文本框orgtext中输入 购物金额（单位：元），单击“实付金额计算“按钮（Command1）后，在“实际支 付金额（单位：元）为“后的文本框cashText中输出实付金额。 28 解决此问题相应的Visual Basic程序如下： Private Sub Command1_Click() Dim x As Single, y As Single x = Val(orgtext.Text) If x b And b c Then Label1.Caption = “happy“ Else Label1.Caption = “better“ End If 该程序段运行后，在标签 Label1 上显示的是_ better _。 3. 有如下Visual Basic程序段： Dim i As Integer, s As Integer s = 0 i = 1: a = 5 Do While i b Or b c Then Label1.Caption = “monday“ Else Label1.Caption = “tiger“ End If 该程序段运行后，在标签 Label1 上显示的是_ monday _。 3. 有如下Visual Basic程序段： s = 10 For i = 1 To 20 Step 3 s = s + i Next i For j = 1 To 3 s = s * j Next j 问：该程序段运行后， （1）语句“s=s*j ”执行的次数为 _3_。 （2）变量 s 的值为_480_。 4. 某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩， 数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在 b(i)中。 程序界面如图所示，左边列表框List1中显示原始数据（成绩和相应的姓名）， 单击 “排序“按钮（Command1），排序后的结果按成绩从高到低显示在列表框 List2中。 解决此问题的算法流程图如图所示，排序部分的程序段如下： 32 Dim a(1 To 10) As Single Dim b(1 To 10) As String Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, x As Single, y As String For i = 1 To 9 k = i For j = i + 1 To 10 If Then k = j Next j If k a(k)_。 （3）程序中划线处应填入_ a(k)=x _。 33 第五套 1. 有如下Visual Basic程序段： s = “expression“ a = 25 b =a + Len(s) 该程序段运行后，变量 b 的值为_35_。 2. 有如下Visual Basic程序段： a = 1：b =2：c =5 If a b And a c Then c = a + b Else c = a + 5 End If Label1.Caption = Str(c) 该程序段运行后，在标签 Label1 上显示的是_6_。 3. 已知某数列前二项分别为：a 1 = 1、a 2 = 2，以后每项都满足: ai = ai-1 + ai-2 （i2） 有如下Visual Basic程序段： Dim a(1 To 20) As Integer a(1) = 1: a(2) = 2 For i = 3 To a(i) = a(i - 2) + a(i - 1) Next i 问： （1）数组a存储该数列的前20项，上面程序段划线处应填入_20_。 （2）该程序段运行后，a(6)的值为_13_。 4. 王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽 可能找出密码。她零星记得自己密码信息： 密码是六位数字，前面两位为31； 最后两位数字相同； 能被16和46整除。 程序界面如图所示，单击 “帮助找回密码“按钮（Command1）后，可能的密码显 示在列表框List1中。 解决此问题的相应程序如下： Private Sub Command1_Click() 34 Dim a As Integer, s As long, b As Integer, i As Integer For i = 0 To 9999 s = 310000 + i If s Mod 46 = 0 Then b = (s Mod 100) 10 If a = b Then List1.AddItem Str(s) End If End If Next i End Sub （1）解决此问题的算法是_枚举算法_。（选填：枚举算法 或 排序 算法） 在程序和划线处，填入适当的语句或表达式，把程序补充完整： （2）程序中划线处应填入_step 16_。 （3）程序中划线处应填入_a=s mod 10_。 35 第六套 1. 有如下Visual Basic程序段： a = 15 b = Val(“256“) a = a * 2 + b 该程序段运行后，变量 a 的值为_286_。 2. 有如下Visual Basic程序段： a = Mid(“Please input“, 4, 2) b = “Please“ If Len(a) 2） 有如下Visual Basic程序段： Dim a(1 To 20) As Integer a(1) = 1: a(2) = 2 For i = 3 To 20 a(i) = + a(i - 2) Next i 问： （1）如果用数组a存储该数列的前20项，程序段划线处应填入_a(i-1) _。 （2）该程序段运行后，a(4)的值为_5_。 4. 小明设计了某单位的公积金查询系统，输入职工的公积金账号，可以查出该 账号对应的余额。所有职工的公积金账号和相应的余额已分别保存在数组a（按 从小到大排序）和数组b中，第i个职工的账号保存在a(i)中，对应的账号余额 保存在b(i)中。 程序界面如图所示，左边列表框List1中显示的是部分职工的账号和余额，在文 本框Text1中输入职工的公积金账号，单击“查询余额“按钮（Command1）后，如 果找到此账号，则在标签Label2中显示“此账号余额为“和账号对应的余额值， 如果未找到则显示“找不到此账号，请重新输入“。 36 解决此问题的算法流程图如图所示，相应的查找部分程序段如下： Dim a(1 To n) As Long Dim b(1 To n) As Single Private Sub Command1_Click() Dim x As Long, i As Long, j As Long, m As Long, f As Boolean x = Val(Text1.Text) i = 1: j = n: f = False 设账号总数为n Do While (i b Then Label1.Caption = “计算机基础“ Else Label1.Caption = “课外活动“ End If 该程序段运行后，在标签 Label1 上显示的是_课外活动_。 3. 有如下Visual Basic程序段： s = 150: i = 1 Do While s 100 s = s - i + 1 i = i + 20 Loop 问：该程序段运行后， （1）变量i的值是_ 61 _。 （2）变量 s 的值为_ 90 _。 4. 陈晓峰和同学们去农科院开展研究性学习，大家都收获很大，晓峰设计了一 个Visual Basic程序，他把同学们收集到的水稻亩产量和同学姓名已分别保存 在数组a和数组b中，第i个同学收集的亩产量保存在a(i)中，对应的同学姓名保 存在b(i)中，最后按亩产量从高到低进行排序。 程序界面如图所示，左边列表框List1中显示的是所有同学收集到的原始数据， 单击“排序“按钮（Command1）后，在右边的列表框List2中显示排序完成后的结 果（按亩产量从高到低排列）。 解决此问题的算法流程图如图所示，相应的排序部分程序如下： Dim a(1 To n) As Single 39 Dim b(1 To n) As String Private Sub Command1_Click() Dim i As Integer, j As Integer, c As Single, t As String For i = 1 To n 设共有n名同学 For j = n To i + 1 If Then c = a(j - 1) a(j - 1) = a(j) a(j) = c t = b(j - 1) b(j - 1) = b(j) b(j) = t End If Next j Next i For i = 1 To n List2.AddItem Str(a(i) + “ “ + b(i) Next i End Sub Private Sub Form_Load() 此过程用于对数组a和数组b进行初始赋值，代码略 End Sub （1）解决此问题的算法是_冒泡排序_。（选填：选择排序 或 冒泡排序） 在程序和划线处填入适当的语句或表达式，将程序补充完整： （2）程序中划线处应填入_step -1 _。 （3）程序中划线处应填入_a(j)a(j-1)_。 40 第八套 1. 有如下Visual Basic程序段： a = 29:b = 6 a = a Mod b b = a + Len(“Input“) 该程序段运行后，变量 b 的值为_10_。 2. 有如下Visual Basic程序段： x = 2010 s =10 If x 0_。 （3）程序中划线处应填入_b+t*k(i-1)_。 42 第九套 1. 有如下Visual Basic程序段： b = Len(“-1.25“) s = Mid(“picture“, 2, b) 该程序段运行后，变量 s 的值为_“ictur“_。 2. 有如下Visual Basic程序段： x = 100 s = 10 If x s Then s = s + x Text1.Text = Str(s) 该程序段运行后，在文本框 Text1 中显示的是_110_。 3. 有如下Visual Basic程序段： Dim a As Integer, b As Integer, c As Integer a = 20 b = 0 c = 2 Do While a b And a c b = b + 1 c = c + b Loop 问：该程序段运行后， （1）语句“b=b+1 ”执行的次数为 _6_。 （2）变量c的值为_23_。 4. 学校“电脑周“活动已经结束，林敏在班里举行了一个“我最关注的竞赛项目“ 的投票活动，她设计了一个Visual Basic程序，把所有同学的投票情况输入到 电脑里，先将各项目得票数和项目名分别保存在数组a和数组b中，第i个项目的 得票数保存在a(i)中，对应的项目名保存在b(i)中。 程序界面如图所示，左边列表框List1中显示同学评选的原始数据，单击“得票 统计“按钮（Command1），所有得票数从高到低显示在列表框List2中。 解决此问题的算法流程图如图所示，排序部分的程序段如下： Dim a(1 To n) As Single Dim b(1 To n) As String 43 Private Sub Command1_Click() Dim i As Integer, j As Integer, k As Integer, x As Single, y As String For i = 1 To n-1 假设共有n个竞赛项 目 k = i For j = i + 1 To n If a(k) i Then x = a(i) a(i) = a(k) a(k) = x y = b(i) b(i) = b(k)