1、浙江省2008年高中信息技术会考(六月卷)2008年6月高中信息技术会考算法与程序设计题（第一套） 四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1有如下Visual Basic程序段：a = 3 : b = 2 : c = 3b = a+b*c 该程序段运行后，变量b的值为 。2有如下Visual Basic程序段：a=39b=93If a+b100 Then py=太大If a+b=100 Then py=相等If a+b100 Then py=太小Label1.Caption=py该程序段运行时，在Label1标签上显示的是。3以下Visual Basic
2、程序的功能是： 计算表达式1+2+4+8+16+32+1024的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的表达式应更正为_。Private Sub Command1_Click()Dim i As Integer,s As Longs = 0i = 1Do While i 12 Then c= PMElse c= AMEnd IfLabel1.Caption=c该程序段运行时，在文本框Text1中输入15.6，Label1标签上将显示的是。3.下列Visual Basic程序的功能是：计算表达式12+42+72+972的值，并在文本框Text1中输出表达式的值。为了实
3、现这一目标，程序中For语句划线处的循环变量步长应为_。Private Sub Command1_Click()Dim sum As LongDim i As Integersum = 0 For i =1 To 97 Step sum = sum + i*iNext iText1.Text = Str(sum)End Sub 4模拟一个简单计算器，输入两个数和一个运算符（加、减、乘、除），进行算术运算,并输出运算结果。程序界面如图VB-1所示，在文本框Text1中输入第一个数a，在文本框Text2中输入第二个数b，在文本框Text3中输入运算符ch，在文本框Text4中输出运算结果。图VB-
4、1当输入的运算符不是加、减、乘、除四种运算符时，则输出“运算符不正确”；当进行除法运算时，如果除数为0，提示输出“除数不能为零”。解决上述问题的算法流程图如图VB-2所示，相应的Visual Basic程序如下，在和划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim a As Single, b As Single, ch As Stringa = Val(Text1.Text)b = Val(Text2.Text) If ch = + Then Text4.Text = Str(a+b)ElseIf ch = * Then Text
5、4.Text = Str(a*b)ElseIf ch = - Then Text4.Text = Str(ab)ElseIf ch = / Then If Then Text4.Text = Str(a/b) Else Text4.Text =除数不能是零Else Text4.Text = 运算符不正确End IfEnd Sub程序中划线处应填入 程序中划线处应填入 2008年6月高中信息技术会考算法与程序设计题（第三套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段：a=3 : b=4c=a+bb=c*b 该程序段运行
6、后，变量b的值为_。2有如下Visual Basic程序段：a = 10b = 20c = 5m=aIf b m Then m = bIf c m Then m = c该程序段运行后，变量m的值为 。3以下Visual Basic程序的功能是： 计算表达式1+2+22+23+24+25+26+27+28+29+210的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim i As Integer,s As Longs = 0k = 2For i= 1 To 10 s = s + k k = k * 2
7、Next iText1.Text=Str(s)End Sub4. 某市近期向市民投放带2B开头尾数为001至999的机动车牌号，经过竞投有200个牌号被首批车主投中。下面Visual Basic程序段的功能是根据车牌号查找相应的车主身份证号码，其中车牌号按尾数从小到大的顺序存储在cno数组中，身份证号码存储在cnum数组中。 界面如图VB-1所示，在文本框Text1中输入一个车牌号，单击“开始查找”按钮后，在文本框Text2中输出结果。如果查找成功，则输出对应的车主身份证号码，否则输出“找不到”。图VB-1解决查找问题的算法流程图如图VB-2所示，相应的Visual Basic程序段如下，在和
8、划线处，填入合适的语句或表达式，把程序段补充完整。Private Sub Command1_Click()Dim key As String , i As IntegerDim j As Integer , found As Booleani = 1: j = 200 : found = False Do While i = j And Not found m = Int(i + j) / 2) If cno(m) = key Then found = TrueElseIf Then i = m + 1 Else j = m 1 End IfLoopIf Not found Then Text
9、2.Text = 找不到 Else Text2.Text = cnum(m)End Sub程序中划线处应填入 程序中划线处应填入 2008年6月高中信息技术会考算法与程序设计题（第四套）四、程序设计题（本题共4小题，第13小题，每小题4分，第4小题6分，共18分）1有如下Visual Basic程序段：a = 3 : b = 2 b= a*ba= a+b该程序段运行后，变量a的值为 。2有如下Visual Basic程序段：a = 30 : b = 20 : c = 5m=aIf b m Then m = bIf c m Then m = c该程序段运行后，变量m的值为 。3有如下Visual
10、 Basic程序段： s = 0 For i = 0 To 4 s=s+2i Next i该程序段运行后，变量s的值为_。4某班级45名学生，每位学生中文姓名均不相同，并且都有一个英文名。下面程序的功能是根据学生的中文姓名查找相应的英文名，其中学号存储在数组sno中，英文名存储在数组sname中，中文姓名存储在数组ch中。程序界面如图VB-1所示，在文本框text1中输入要查找的中文姓名，单击“开始查找”按钮，如果查找成功，则在文本框Text2中输出该学生的学号、中文姓名和英文名，否则在文本框Text2中输出“查无此人！”。解决查找问题的算法流程图如图VB-2所示，相应的Visual Basi
11、c程序段如下，在和划线处，填入合适的语句或表达式，把程序段补充完整。图VB-1Private Sub Command1_Click()Dim key As String, i As IntegerDim n As Integer, found As Booleanfound = Falsen = 0 : i = 1 Do While i 6.0 Then Label1.Caption = PassElse Label1.Caption = FailEnd If该程序段运行后, Label1标签上显示为。3以下Visual Basic程序的功能是： 计算表达式1+2+4+8+16+32+1024
12、的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim a As Integer, s As Longs = 0a = 1Do While a = 1024 s = s + a a = a + 2LoopText1.Text=Str(s)End Sub4. 浙江省电网销售电价表中规定，不满1千伏“一户一表”居民用电价格，按以下标准计算：月用电量在50千瓦时及以下部分，每千瓦时以0.538元计算；51200千瓦时部分，则每千瓦时按0.568元计算；200千瓦时以上部分,每千瓦时按0.638元计算。设计一
13、个程序，根据用户的月用电量分段计算电费。设某用户的当月用电量是x千瓦时， 当x50时，电费为0.538x元；当x200时，电费为0.568(x-50)+0.53850元；当x200时，电费为0.638(x-200)+0.568150+0.53850元；在文本框Text1输入x，在文本框Text2中输出相应的电费。根据上述分析，解决此问题的算法流程图如图VB-1所示，相应的Visual Basic程序如下，在和划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim x As Integer If x 0 Then Text2.Text =
14、用电量不能是负的！ElseIf x 0 Then Label1.Caption = PositiveIf x = 0 Then Label1.Caption = ZeroIf x 0 Thenx = x+2Else x = x-2End If该程序段运行后, 变量x的值为。3有如下Visual Basic程序段：s = 0For i = 1 To 10 If i Mod 3 = 0 Then s = s + iNext i该程序段运行后，变量s的值为 。4某学生说他的年龄不低于10岁，且他的年龄减去10，平方以后得到的一个数，恰好是他的年龄加上10，问他的年龄多大？设这位学生年龄为y，他年龄减
15、去10的平方为r，则r=（y-10）2，则y满足的表达式为: （y - 10）2=y + 10解决此问题的算法流程图如图VB-1所示，相应的Visual Basic程序如下，在和划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim y As Integer, r As Integery = 10r = (y - 10) 2Do While r = (y - 10) 2LoopText1.Text = Str(y)End Sub程序中划线处应填入 程序中划线处应填入 Yry+10？开始年龄赋初值10结束计算r=（y-10）2y值增加1计算
16、r值方输出yN图VB12008年6月高中信息技术会考算法与程序设计题（第八套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1. 有如下Visual Basic程序段： a = 4b = 3b = a + b a = a + b该程序段运行后，变量a的值为 。 2有如下Visual Basic程序段：a=120If a 100 then Label1.Caption= 超重ElseLabel1.Caption= 正常End If 该程序段运行后, Label1标签上显示为。3有如下Visual Basic程序段：s = 0i = 3Do While s 1024
17、 Then size = 大了Elsesize = 刚好End If Label1.Caption = size该程序段运行后, Label1标签上显示为。3以下Visual Basic程序的功能是：找出自然数1-100之间被3整除的数，并在文本框Text1中输出这些数的累加和。为了实现这一功能，程序中划线处的语句应更正为_。Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 to 100 If i Mod 3=0 Then sum = sum + 3Next iText1.Text=Str(
18、sum)End Sub4下面的算式表示一个四位数乘以9，积还是一个四位数。算式中相同的字母表示相同的数字，不同的字母表示不同的数字。那么算式中的a、b、c、d各代表什么数字？ a b c d * 9 d c b a从算式分析可知，第一式上最高位a*9没有产生进位，可得a=1，再由d*9结果的个位数是a，即1，可得d=9， b、c满足的表达式为(1000+100b+10c+9)*9=9000+100c+10b+1解决此问题的算法流程图如图VB-1所示，相应的Visual Basic程序如下，在和划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click(
19、)Dim a As Integer, b As IntegerDim c As Integer, d As Integera = 1 For b = 0 To 9 For c = 0 To 9 If ( ) * 9 = 9001 + 100 * c + 10 * b Then Text1.Text = Str(a) Text2.Text = Str(b) Text3.Text = Str(c) Text4.Text = Str(d) End IfNext cNext bEnd Sub程序中划线处应填入 程序中划线处应填入 图VB-1图VB-12008年6月高中信息技术会考算法与程序设计题（第十
20、套）四、程序设计题（本题有4小题，第13小题，每小题4分，第4小题6分，共18分）1有如下Visual Basic程序段：s=Friends=s+ship该程序段运行后，变量s的值是_。2. 有如下Visual Basic程序段：x = 7If x 5 Then y = 3Else y = -3End If 该程序段运行后，变量y的值是。3以下Visual Basic程序的功能是： 计算表达式1+2+22+23+24+25的值，并在文本框Text1中输出结果。为了实现这一功能，程序中划线处For语句循环变量i的终值应更正为_。Private Sub Command1_Click()Dim i
21、As Integer, s As Longs = 0For i= 1 to 5 s = s + 2(i-1)Next iText1.Text=Str(s)End Sub4. 在100至999之间的自然数中，找出能被3整除，且至少有一位数字为5的所有整数，并统计个数。图VB-1设变量s是一个三位正整数，变量a、b、c分别表示s的百位、十位和个位上的数字，变量n表示满足要求的整数个数。对于每一个s，只要判断a、b、c中是否至少有一个为5，即可找到符合条件的数。程序界面如图VB-1所示，单击“统计”按钮，在列表框List1中输出符合条件s值，在文本框Text1中输出n的值。算法流程图如图VB-2所示
22、，相应的Visual Basic程序如下，在和划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim s As Integer, n As IntegerDim a As Integer, b As Integer, c As Integern = 0s = 102List1.ClearDo While a = s 100b = s 10 Mod 10c = s Mod 10If Then n = n + 1: List1.AddItem Str(s)s = s + 3LoopText1.Text = Str(n)End Sub程序中划线处应填入 程序中划线处应填入 图VB-2第 18 页 共 18 页
