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

第一套 1. 有如下Visual Basic程序段： a = 12: b = 20 b = a + b + 28 a = b + a - 5 b = a + b 该程序段运行后，变量b的值为 。 2. 有如下Visual Basic程序段： a = 5 b = Len(1011) If a b Then Label1.Caption = 请重新输入 Else Label1.Caption = 欢迎光临 End If 该程序段运行后，在标签Label1上显示的是____________。 3. 以下Visual Basic程序的功能是：计算表达式1×1+2×2+3×3+4×4+5×5+6×6的值，并在文本框Text_1中输出结果。 Private Sub Command1_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的值放在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 Integer Dim r as Integer 此函数用于计算两个正整数的最大公约数 r = num1 Mod num2 Do While ① num1 = num2 num2 = r r = num1 Mod num2 Loop temp = num2 End Function Private Sub Command1_Click() Dim a as Integer, b as Integer, c as Integer, x as Integer, y as Integer a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) x = ② y = temp(x, c) Text4.Text = Str(y) End Sub （1）解决此问题的算法是 。 （选填：解析法 或 枚举法） 在程序①和②划线处，填入适当的语句或表达式，把程序补充完整： （2）程序中①划线处应填入___________________。 （3）程序中②划线处应填入___________________。 第二套 1.有如下Visual Basic程序段： m = -5 n = -2 s = m + Int(n) 该程序段运行后，变量s的值为____________。 2. 有如下Visual Basic程序段： a = 10 b = 8 If a b Then Label1.Caption = morning Else Label1.Caption = byebye End If 该程序段运行后，在标签Label1上显示的是____________。 3. 有如下Visual Basic程序段： s = 0 a = 5 For i = 1 To 10 Step 2 a = a + i s = a * i Next i 问：该程序段运行后， （1）变量i的值是___________。 （2）变量s的值是___________。 4. 某超市打折促销，规定如下： ①购物未超过500元按原价支付； ②购物超过500元但未超过1000元，超过500元部分按9折优惠计价； ③购物超过1000元但未超过1500元，超过1000元部分按8折优惠计价； ④购物超过1500元但未超过3000元，超过1500元部分按7折优惠计价；