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

信息技术会考程序填空题部分+第一套+1、有如下Visual Basic程序段： a=Good b=Bye c=a+b该程序段运行后，变量c的值是_(1)_。2、有如下Visual Basic程序段： x=3 If x5 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 Integersum = 0n = Val(Text1.Text)For i = 1 To 2 * n - 1 Step 2sum = sum + 2Next iText2.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 Singlex = Val(Text1.Text)If (1) Then Label1.Caption = 你属于醉酒驾车!Else If x = 0.3 Then Label1.Caption = 你属于酒后驾车! (2) Label1.Caption = 恭喜你没有违法! End IfEnd IfEnd Sub程序中划线处(1)应填入 程序中划线处(2)应填入 +第二套+1、有如下Visual Basic程序段： a=2b=3c=4c=b-a该程序段运行后,变量c的值为_(1)_。2、有如下Visual Basic程序段： a=2 b=5If ab Then m=a Else m=b该程序段运行后,变量m的值为_(1)_。3、下面是一段Visual Basic程序：Private Sub Command1_Click()Dim sum As Double，i As Integersum = 0For i = 1 To 5 sum=sum+i*iNext iText1.Text=Str(sum)End Sub 该程序运行后，语句sum=sum+i*i共执行了 (1) 次。 4、 有一个有趣的兔子繁殖问题：第1个月买来1对小兔子，两个月后，这对兔子就会生1对小兔子，以后每个月都会生一对小兔子；而生下来的这对小兔子，两个月后又会开始生1对小兔子。依次类推，试问：几个月后，兔子将超过50对？分析问题得出月份与兔子对数的关系如下表：月份123456789兔子对数112358132134由表知兔子繁殖规律：从第3个月开始，以后每月的兔子对数都是它相邻的前面2个月的兔子对数之和。解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_Click()Dim a(1 To 100) As Integer, n As Integera(1) = 1a(2) = 1a(3) = a(2) + a(1)n = 3Do While a(n) b Then a= b+aElse a=b-aEnd If该程序段运行后，变量a的值为 (1) 。3、下面Visual Basic程序的功能是：计算表达式12+23+34+89+910的值，并在文本框Text1中输出表达式的值。该程序运行后，程序中的语句sum=sum+i*(i+1)共执行了 (1) 次。 Private Sub Command1_Click()Dim sum As Integer，i As Integersum = 0 For i = 1 To 9 sum=sum+i*(i+1)Next i Text1.Text=Str(sum) End Sub 4、铁路托运行李，是根据行李的重量按下列标准收费：若不超过50千克，按每千克0.35元收费，若超过50千克，超过部分则按每千克0.5元收费，行李重量不得超过150千克。设计一个Visual Basic程序，通过输入托运行李的重量，计算并输出托运行李的费用，若超过150千克，提示行李超重!。设x表示行李重量，y表示托运费。通过分析可以得出该问题的数学表达式为： 解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x as Double x=Val(Text1.Text) If x150 Then Text2.Text=行李超重!ElseIf (1) Then y=50*0.35+(x-50)*0.5 Else (2) End IfText2.Text=Str(y) End IfEnd Sub 程序中划线处(1)应填入 程序中划线处(2)应填入 +第四套+1、有如下Visual Basic程序段：a=8b=10b=a*b/2该程序段运行后，变量b的值为 (1) 。2、有如下Visual Basic程序段：a=5b=10max=aIf bmax Then max=b该程序段运行后，变量max的值为 (1) 。3、下面程序的功能是：计算表达式12310的值，并在文本框Text1中输出表达式的值。为了实现这一功能，程序中划线处的语句应更正为_(1)_。Private Sub Command1_Click()Dim i As Integer，t As Longt=0For i=1 To 10 t=t*iNext i Text1.Text=Str(t)End Sub 4、我国是人口大国，2007年初，我国人口总数已达13亿5千万。假设我国年人口增长率为0.5%，则从2007年起多少年后我国人口就会达到或超过15亿？解决此问题的流程图如VB-1所示。根据流程图VB-1编写的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub Command1_click() Dim n As Integer, r As SingleDim p As Double r = 0.5/100 p = 13.5 n = 0 Do While p 100 Then Label1.Caption = 你超速了!Else Label1.Caption = 你没超速! End If该程序段运行后, Label1标签上显示为_(1)_。3、下面Visual Basic程序的功能是：计算表达式12+34+56+78+910的值。运行该程序后，语句sum=sum+i*(i+1)共执行了 (1) 次。 Private Sub Command1_Click()Dim sum As Integer，i As Integersum = 0 For i = 1 To 9 Step 2 sum = sum + i * (i+1) Next i Text1.Text=Str(sum)End Sub +第六套+1、有如下Visual Basic程序段：a=300 b=400b=b-a该程序段运行后，变量b的值为_(1)_。2、有如下Visual Basic程序段： a=2 b=5If ab Then a=a+bElse a=a-bEnd If3、该程序段运行后，变量a的值为 (1) 。下面Visual Basic程序的功能是：求120以内的奇数和。运行该程序后，语句sum=sum+i共执行了 (1) 次。Private Sub Command1_Click()Dim sum as Integer,i as Integersum=0For i=1 To 20 Step 2sum=sum+iNext iText1.Text=Str(sum)End Sub4、将一张面值为100元的人民币等值换成5元、1元的零钞共40张，要求每种零钞不少于1张，问5元和1元面值的零钞各多少张？设x、y分别为5元和1元面值的零钞张数，通过分析可得出该问题的数学表达式为： 且 1x20解决上述问题的Visual Basic程序如下，但此程序存在两处错误，已分别用划线及(1)、(2)标注。请改正这二处错误，并将正确内容按顺序填写在程序下方(1)和(2)划线处。Private Sub Command1_Click() Dim x As Integer, y As Integer y = 1 : x = 1 Do While 5x + y 100 (1) y = y + 1 x + y = 40 (2) Loop Label1.Caption = 5元钞 + Str(x) + 张 Label2.Caption = 1元钞 + Str(y) + 张End Sub程序中划线处(1)改为 程序中划线处(2)改为 5、哥哥考弟弟一道数学题，题目是：有一筐鸡蛋，2个2 个数多1个，3个3个数多2个，4个4个数多3个，5个5个数正好数完，问这筐鸡蛋最少是几个？ 为解决此问题，弟弟编了一个如下Visual Basic程序，其中s表示鸡蛋数，t用于控制循环。但此程序存在两处错误，已分别用划线及(1)、(2)标注。请改正这二处错误，并将正确内容按顺序填写在程序下方(1)和(2)划线处。Private Sub Command1_Click()Dim s As Integer, t As Booleans = 5t = FalseDo While Not ts = s + 1t = (s Mod 2 = 1) And (s Mod 3 = 2) And (s Mod 4 = 3) And (s Mod 5 0) (1)Next (2)Text1.Text = Str(s)End Sub程序中划线处(1)改为 程序中划线处(2)改为 +第八套+1、有如下Visual Basic程序段：a = 3b = 5h = 6v = a * b * h该程序段运行后，变量v的值是 (1) 。2、有如下Visual Basic程序段：For i=l To 10a(i)=iNext i该程序段运行后，数组变量a(5)的值为 (1) 。3、下面Visual Basic程序的功能是：计算表达式1/2+1/4+1/100的值，并在文本框Text1中输出结果。运行该程序后，语句sum=sum+1/(2*i)共执行了 (1) 次。Private Sub Command1_Click()Dim sum As Double,i As Integersum = 0For i = 1 To 50 sum=sum+1/(2*i) Next iText1.Text=Str(sum) End Sub 4、有一判断健康状况的Visual Basic程序，其窗体如下图所示，输入身高和体重后，单击健康状况按扭，将显示相应的健康状况信息。 标准体重=身高-105 当体重高于标准体重1.1时为偏胖，提示偏胖，注意节食!；当体重低于标准体重0.9时为偏瘦，提示偏瘦，增加营养!；其他为正常，提示正常，继续保持!。设h表示身高，g表示体重，bt表示标准体重。通过分析可得出该问题的数学表达式为： 解决上述问题的Visual Basic程序如下，在(1)和(2)划线处，填入合适的语句或表达式，把程序补充完整。Private Sub C