2010年浙江省信息技术会考试题算法填空题

1、第一套1. 有如下Visual Basic程序段：a = 12: b = 20b = a + b + 28a = b + a - 5b = a + b该程序段运行后，变量b的值为 。2. 有如下Visual Basic程序段：a = 5b = Len(1011)If a b Then Label1.Caption = 请重新输入Else Label1.Caption = 欢迎光临End If该程序段运行后，在标签Label1上显示的是_。3. 以下Visual Basic程序的功能是：计算表达式11+22+33+44+55+66的值，并在文本框Text_1中输出结果。Private Sub C

2、ommand1_Click() Dim a(1 To 6) As Integer Dim s As Integer, i As Integer s = 0 For i = 1 To 6 a(i) = i * i s = s + a(i) Next i_= str(s) End Sub问：（1）为了计算上述表达式的值，上面程序段划线处应填入_。 （2）该程序段运行后，a(5)的值是_。4. 用辗转相除法求最大公约数。已知用辗转相除法求两个正整数m、n的最大公约数的算法如下：(用num1，num2，r分别表示被除数m、除数n和余数)求num1/num2的余数r；若r=0，则执行第步；将num2的值

3、放在num1中，将r的值放在num2中；重新执行第步；输出最大公约数num2。下列Visual Basic程序用于求三个正整数的最大公约数。程序界面如图所示，在文本框Text1、Text2和Text3中分别输入三个数a、b和c，单击求最大公约数按钮（Command1）后，在文本框Text4中输出a、b、c的最大公约数y。 Function temp(num1 as Integer, num2 as Integer) as IntegerDim r as Integer 此函数用于计算两个正整数的最大公约数r = num1 Mod num2Do While num1 = num2 num2 =

4、r r = num1 Mod num2Looptemp = num2End FunctionPrivate Sub Command1_Click()Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integera = Val(Text1.Text)b = Val(Text2.Text)c = Val(Text3.Text)x = y = temp(x, c)Text4.Text = Str(y)End Sub（1）解决此问题的算法是 。 （选填：解析法 或 枚举法）在程序和划线处，填入适当的语句或表达式，把程序补

5、充完整：（2）程序中划线处应填入_。 （3）程序中划线处应填入_。第二套1.有如下Visual Basic程序段：m = -5n = -2s = m + Int(n)该程序段运行后，变量s的值为_。2. 有如下Visual Basic程序段：a = 10b = 8If a b Then Label1.Caption = morningElse Label1.Caption = byebyeEnd If该程序段运行后，在标签Label1上显示的是_。3. 有如下Visual Basic程序段：s = 0a = 5For i = 1 To 10 Step 2 a = a + i s = a * i

6、Next i问：该程序段运行后，（1）变量i的值是_。 （2）变量s的值是_。4. 某超市打折促销，规定如下：购物未超过500元按原价支付；购物超过500元但未超过1000元，超过500元部分按9折优惠计价；购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价；购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；购物超过3000元，超过3000元部分按6折优惠计价。根据以上规定，假定购物货款为x元，则实付金额y为: 程序界面如图所示，在输入购物金额（单位：元）后的文本框orgtext中输入购物金额（单位：元），单击实付金额计算按钮（Command1）后，在

7、实际支付金额（单位：元）为后的文本框cashText中输出实付金额。 解决此问题相应的Visual Basic程序如下：Private Sub Command1_Click()Dim x As Single, y As Singlex = Val(orgtext.Text) If x = 500 Then y = x ElseIf Then y = 500 + (x - 500) * 0.9 ElseIf x = 1500 Then y = 500 + 500 * 0.9 + (x - 1000) * 0.8 ElseIf x b And b c Then Label1.Caption = h

8、appyElse Label1.Caption = betterEnd If该程序段运行后，在标签Label1上显示的是_。3. 有如下Visual Basic程序段：Dim i As Integer, s As Integers = 0i = 1: a = 5Do While i b Or b c Then Label1.Caption = mondayElse Label1.Caption = tigerEnd If该程序段运行后，在标签Label1上显示的是_。3. 有如下Visual Basic程序段：s = 10For i = 1 To 20 Step 3 s = s + iNext

9、 iFor j = 1 To 3 s = s * jNext j问：该程序段运行后，（1）语句“s=s*j”执行的次数为_。 （2）变量s的值为_。4. 某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a(i)中，姓名保存在b(i)中。程序界面如图所示，左边列表框List1中显示原始数据（成绩和相应的姓名），单击 排序按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。 解决此问题的算法流程图如图所示，排序部分的程序段如下

10、：Dim a(1 To 10) As SingleDim b(1 To 10) As StringPrivate Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer, x As Single, y As StringFor i = 1 To 9 k = i For j = i + 1 To 10 If Then k = j Next j If k i Then x = a(i): a(i) = a(k): y = b(i): b(i) = b(k): b(k) = y End IfNext i For i = 1 T

11、o 10 List2.AddItem Str(a(i) + + b(i) Next iEnd SubPrivate Sub Form_Load() 此过程用于对数组a和数组b进行初始赋值，代码略End Sub（1）解决此问题的算法是_。（选填：冒泡排序 或 选择排序）在程序和划线处，填入适当的语句或表达式，把程序补充完整：（2）程序中划线处应填入_。 （3）程序中划线处应填入_。第五套1. 有如下Visual Basic程序段：s = expressiona = 25b =a + Len(s)该程序段运行后，变量b的值为_。2. 有如下Visual Basic程序段：a = 1：b =2：c

12、=5If a b And a c Then c = a + bElse c = a + 5End IfLabel1.Caption = Str(c)该程序段运行后，在标签Label1上显示的是_。3. 已知某数列前二项分别为：a1 = 1、a2 = 2，以后每项都满足:ai = ai-1 + ai-2 （i2）有如下Visual Basic程序段：Dim a(1 To 20) As Integera(1) = 1: a(2) = 2For i = 3 To a(i) = a(i - 2) + a(i - 1)Next i问：（1）数组a存储该数列的前20项，上面程序段划线处应填入_。 （2）该

13、程序段运行后，a(6)的值为_。4. 王敏的E-Mail邮箱密码忘记了，但她需要收一封很重要的来信，请你帮她尽可能找出密码。她零星记得自己密码信息：密码是六位数字，前面两位为31；最后两位数字相同；能被16和46整除。程序界面如图所示，单击 帮助找回密码按钮（Command1）后，可能的密码显示在列表框List1中。 解决此问题的相应程序如下：Private Sub Command1_Click()Dim a As Integer, s As long, b As Integer, i As IntegerFor i = 0 To 9999 s = + i If s Mod 46 = 0 Th

14、en b = (s Mod 100) 10 If a = b Then List1.AddItem Str(s) End If End IfNext iEnd Sub（1）解决此问题的算法是_。（选填：枚举算法 或 排序算法）在程序和划线处，填入适当的语句或表达式，把程序补充完整：（2）程序中划线处应填入_。（3）程序中划线处应填入_。第六套1. 有如下Visual Basic程序段：a = 15b = Val(256)a = a * 2 + b该程序段运行后，变量a的值为_。2. 有如下Visual Basic程序段：a = Mid(Please input, 4, 2)b = Please

15、If Len(a) 2）有如下Visual Basic程序段：Dim a(1 To 20) As Integera(1) = 1: a(2) = 2For i = 3 To 20 a(i) = + a(i - 2)Next i问：（1）如果用数组a存储该数列的前20项，程序段划线处应填入_。（2）该程序段运行后，a(4)的值为_。4. 小明设计了某单位的公积金查询系统，输入职工的公积金账号，可以查出该账号对应的余额。所有职工的公积金账号和相应的余额已分别保存在数组a（按从小到大排序）和数组b中，第i个职工的账号保存在a(i)中，对应的账号余额保存在b(i)中。程序界面如图所示，左边列表框Lis

16、t1中显示的是部分职工的账号和余额，在文本框Text1中输入职工的公积金账号，单击查询余额按钮（Command1）后，如果找到此账号，则在标签Label2中显示此账号余额为和账号对应的余额值，如果未找到则显示找不到此账号，请重新输入。 解决此问题的算法流程图如图所示，相应的查找部分程序段如下：Dim a(1 To n) As LongDim b(1 To n) As SinglePrivate Sub Command1_Click()Dim x As Long, i As Long, j As Long, m As Long, f As Booleanx = Val(Text1.Text)i

17、= 1: j = n: f = False 设账号总数为n Do While (i = j) And Not f If x = a(m) Then f = True ElseIf x b Then Label1.Caption = 计算机基础Else Label1.Caption = 课外活动End If该程序段运行后，在标签Label1上显示的是_。3. 有如下Visual Basic程序段：s = 150: i = 1Do While s 100 s = s - i + 1 i = i + 20Loop问：该程序段运行后，（1）变量i的值是_。 （2）变量s的值为_。4. 陈晓峰和同学们去

18、农科院开展研究性学习，大家都收获很大，晓峰设计了一个Visual Basic程序，他把同学们收集到的水稻亩产量和同学姓名已分别保存在数组a和数组b中，第i个同学收集的亩产量保存在a(i)中，对应的同学姓名保存在b(i)中，最后按亩产量从高到低进行排序。程序界面如图所示，左边列表框List1中显示的是所有同学收集到的原始数据，单击排序按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按亩产量从高到低排列）。 解决此问题的算法流程图如图所示，相应的排序部分程序如下：Dim a(1 To n) As SingleDim b(1 To n) As StringPrivate

19、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 iEnd SubPrivate Sub Form

20、_Load() 此过程用于对数组a和数组b进行初始赋值，代码略End Sub（1）解决此问题的算法是_。（选填：选择排序 或 冒泡排序）在程序和划线处填入适当的语句或表达式，将程序补充完整：（2）程序中划线处应填入_。 （3）程序中划线处应填入_。第八套1. 有如下Visual Basic程序段：a = 29:b = 6a = a Mod bb = a + Len(Input)该程序段运行后，变量b的值为_。2. 有如下Visual Basic程序段：x = 2010s =10If x 2012 Then s = s + xLabel1.Caption = Str(s)该程序段运行后，在标签L

21、abel1上显示的是_。3. 有如下Visual Basic程序段：Dim i As Integer, s As Integeri = 5s = 0Do While i = 50 s = s + i: i = i * 2Loop问：该程序段运行后，（1）语句“s = s + i”执行的次数为_。（2）变量s的值为_。4. 数制转换。将一个K进制(k=10)数x转换成十进制数可采用如下方法：主要方法是从右向左，依次取数x的各位数字，分别计算出该数从右边数起的第i位数字与k(i-1)的积，再将其累加，直到所有的数字取完为止。例如，将五进制数1231转换成十进制数的方法如下： 下列Visual Ba

22、sic程序的功能是将K进制(k s Then s = s + xText1.Text = Str(s)该程序段运行后，在文本框Text1中显示的是_。3. 有如下Visual Basic程序段：Dim a As Integer, b As Integer, c As Integera = 20b = 0c = 2Do While a b And a c b = b + 1 c = c + bLoop问：该程序段运行后，（1）语句“b=b+1”执行的次数为_。 （2）变量c的值为_。 4. 学校电脑周活动已经结束，林敏在班里举行了一个我最关注的竞赛项目的投票活动，她设计了一个Visual Bas

23、ic程序，把所有同学的投票情况输入到电脑里，先将各项目得票数和项目名分别保存在数组a和数组b中，第i个项目的得票数保存在a(i)中，对应的项目名保存在b(i)中。程序界面如图所示，左边列表框List1中显示同学评选的原始数据，单击得票统计按钮（Command1），所有得票数从高到低显示在列表框List2中。解决此问题的算法流程图如图所示，排序部分的程序段如下：Dim a(1 To n) As SingleDim b(1 To n) As StringPrivate Sub Command1_Click()Dim i As Integer, j As Integer, k As Integer,

24、 x As Single, y As StringFor i = 1 To n-1 假设共有n个竞赛项目 k = i For j = i + 1 To n If a(k) a(j) Then Next j If k i Then x = a(i) a(i) = a(k) a(k) = x y = b(i) b(i) = b(k) b(k) = y Next iFor i = 1 To n List2.AddItem Str(a(i) + + b(i)Next iEnd SubPrivate Sub Form_Load() 此过程用于对数组a和数组b进行初始赋值，代码略End Sub（1）解决此问题用的算法是_。 （选填：选择排序 或 冒泡排序）在程序和划线处，填入适当的语句或表达式，把程序补充完整：（2）程序中划线处应填入_。 （3）程序中划线处应填入_。第十套1. 有如下Visual Basic程序段：a = b = Mid(a, 2, 4) + 101该程序段运行后，变量b的值为_。2. 有如下Visual Basic程序段：a = 6b = 2If a Mod 2 Then b = Len(excel) + bElse b = Len(excel) - bEnd IfLabel1.Caption = Str(b)该程序段运行后，在标签Label1上显示的是_。3. 有如