高中信息技术VB算法部分的填空题(会考).docVIP

VB填空题专题（一） 浙江省高中信息技术会考(六月卷) 算法与程序设计题（第一套） 四、程序设计题（本题有4 小题，第1－3 小题，每小题4 分，第4 小题6 分，共18 分） 1.有如下Visual Basic 程序段： a = 30 b = 20 a = b 该程序段运行后，变量a 的值为___ _____。 2.有如下Visual Basic 程序段： Dim a As Single, py As String a=Val(Text1.Text) If a0 Then py=正数 If a=0 Then py=零 If a0 Then py= 负数 Label1.Caption=py 在文本框Text1 中输入100，则在Label1 标签上显示的是 。 3. 以下Visual Basic 程序的功能是：计算表达式1×2×3×4×5×6×7×8×9×10 的值， 并在文本框Text1 中输出结果。为了实现这一功能，程序中划线处的语句应更正为 ___________ __。 Private Sub Command1_Click() Dim i As Integer,sum As Long sum = 0 For i = 1 To 10 sum = sum * i Next i Text1.Text=Str(sum) End Sub 4.从改革开放以来，浙江省农村家庭的可支配收入逐年增加，近几年每年增长率在9%左右。 小明一家今年的可支配收入是32000 元，按现在的增长率9%计算，小明家几年后可支配收 入将达到50000 元？ 解决此问题的流程图如VB-1 所示。根据流程图VB-1 编写的Visual Basic 程序如下， 在①和②划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Long, p As Double Dim n As Integer x = 32000 p = 0.09 n = 0 Do While ① x = x * (1 + p) ② Loop Text1.Text = Str(n) End Sub 程序中划线处①应填入 程序中划线处②应填入 算法与程序设计题（第二套） 四、程序设计题（本题有4 小题，第1－3 小题，每小题4 分，第4 小题6 分，共18 分） 1．有如下Visual Basic 程序段： a=Good b=Bye c=a+b 该程序段运行后，变量c 的值是___________。 2. 有如下Visual Basic 程序段： x=3 If x5 Then y=x*x Else y=4*x End If 该程序段运行后，变量y 的值是___________。 3. 下面程序的功能是：计算表达式1+3+5+…+(2n-1)的值，在文本框Text1 中输入n 的值， 结果在文本框Text2 中输出。则程序中划线处的语句应更正为__________________。 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 程序如下， 在①和②划线处，填入合适的语句或表达式，把程序补充完整。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) If ① Then Label1.Caption = 你属于醉酒驾车! Else If x = 0.3 Then Label1.Caption = 你属于酒后驾车! ② Label1.Caption = 恭喜你没有违法! End If End If End Sub 程序中划线处①应填入 程序中划线处②应填入