《管理信息化信息技术程序设计试卷真题》由会员分享，可在线阅读，更多相关《管理信息化信息技术程序设计试卷真题（18页珍藏版）》请在金锄头文库上搜索。
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 = 45 And Not foundIf ch(i) = key Then n = i: found = Truei = i + 1 LoopIf ThenText2.Text = 查无此人！ElseText2.Text = Str(sno(n) + 号: + ch(n) + 的英文名是 + sname(n)End IfEnd Sub 程序中划线处
