信息技术会考程序填空题精选.doc

信息技术会考程序填空题部分 +++第一套+++ 1、有如下Visual Basic程序段： a="Good" b="Bye" c=a+b 该程序段运行后，变量c的值是____(1)____。 2、有如下Visual Basic程序段： x=3 If x>5 Then y=x*x Else y=4*x End If 该程序段运行后，变量y的值是____(1)____。 3、下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1中输入n的值，结果在文本框Text2中输出。则程序中划线处的语句应更正为______(1)______。 Private Sub Command1_Click() Dim sum As Long,i As Integer,n As Integer sum = 0 n = Val(Text1.Text) For i = 1 To 2 * n - 1 Step 2 sum = sum + 2 Next i Text2.Text=Str(sum) End Sub 4、依照中华人民共和国《机动车驾驶员驾车时血液中酒精含量规定》，血液中酒精含量大于或等于0.3mg/ml驾驶机动车的属酒后驾车；大于或等于1.0mg/ml驾驶机动车的属醉酒驾车。设计一个程序，帮助交警判定某人属酒后驾车、醉酒驾车还是没有违法。 解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If (1) Then Label1.Caption = "你属于醉酒驾车!" Else If x >= 0.3 Then Label1.Caption = "你属于酒后驾车!" (2) Label1.Caption = "恭喜你没有违法!" End If End If End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +++第二套+++ 1、有如下Visual Basic程序段： a=2 b=3 c=4 c=b-a 该程序段运行后,变量c的值为___(1)____。 2、有如下Visual Basic程序段： a=2 b=5 If a>b Then m=a Else m=b 该程序段运行后,变量m的值为___(1)____。 3、下面是一段Visual Basic程序： Private Sub Command1_Click() Dim sum As Double，i As Integer sum = 0 For i = 1 To 5 sum=sum+i*i Next i Text1.Text=Str(sum) End Sub 该程序运行后，语句sum=sum+i*i共执行了 (1) 次。 4、 有一个有趣的兔子繁殖问题：第1个月买来1对小兔子，两个月后，这对兔子就会生1对小兔子，以后每个月都会生一对小兔子；而生下来的这对小兔子，两个月后又会开始生1对小兔子。依次类推，试问：几个月后，兔子将超过50对？ 分析问题得出月份与兔子对数的关系如下表： 月份 1 2 3 4 5 6 7 8 9 … 兔子对数 1 1 2 3 5 8 13 21 34 … 由表知兔子繁殖规律：从第3个月开始，以后每月的兔子对数都是它相邻的前面2个月的兔子对数之和。 解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim a(1 To 100) As Integer, n As Integer a(1) = 1 a(2) = 1 a(3) = a(2) + a(1) n = 3 Do While a(n) <= 50 n = (1) a(n) = (2) Loop Text1.Text = Str(a(n)) End Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +++第三套+++ 1、有如下Visual Basic程序段： k=30 h=5 s=h*k/2