2009年浙江省高中信息技术会考试卷（11）

四、程序设计题（本题有4小题，第1-3小题，每小题4分，第4小题6分，共18分）

• 1．有如下Visual Basic程序段：
  a=10：b=8：c=2
  d=b*b-4*a*c
  该程序段运行后，变量d的值为

   

  。
  组卷：2引用：1难度：0.5

  解析

四、程序设计题（本题有4小题，第1-3小题，每小题4分，第4小题6分，共18分）

• 3．有如下Visual Basic程序：
  Private Sub Command1_Click （　　）
  Dim i As Integer,s As Integer,x As Integer
  s=0
  For i=1To 12
  If i Mod 3=0Then s=s+i
  Next i
  Text1．Text=Str（s）
  End Sub
  问：
  （1）程序运行后，变量s的值为

   

  。
  （2）程序运行后，刚退出循环时变量i的值为

   

  。
  组卷：1引用：1难度：0.4

  解析

• 4．猜密码。电脑产生一个8位密码，用户输入猜测的密码，电脑判断用户所猜密码的正确性，如果用户输入的密码和电脑产生的密码完全一致则输出“恭喜你猜中了密码！”，否则程序将输出用户密码和计算机产生密码之间不同的字符数。电脑产生的8位密码分别保存在数组pass的8个下标变量pass（1）、pass（2）、…、pass（8）中。
  程序界面如图VB-1所示，用户在文本框Text1中输入密码，单击“密码校验”按钮（Command1）后，程序在标签Label3中输出密码校验结果。
  解决此问题的算法流程图如图VB-2所示，相应的程序如下，在程序①和②横线处，填入适当的语句或表达式，把程序补充完整。
  Dim pass（1To 8）As Integer
  Private Sub Command1_Click （　　）
  Dim x（1To 8）As Integer,i As Integer,s As Integer
  For i=1To 8
  x（i）=Val（Mid（Text1．Text,i,1））'把文本框中数字逐个分割出来并转化成数值
  Next i
  s=0'变量s保存不同字符的总数
  For i=1To 8
  If pass（i）＜＞x（i） Then     ①         
  Next i
  If      ②           Then
  Label3．Caption=“恭喜你猜中了密码！“
  Else
  Label3．Caption=“你输入的密码共有“+Str（s）+“个字符和密码不符“
  End If
  End Sub
  Private Sub Form_Load  （　　）
  Dim i As Integer
  For i=1To 8'产生8位密码，每位一个非负整数，保存到数组pass
  pass（i）=Fix（Rnd*10）
  Next i
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

  
  
  组卷：0引用：1难度：0.1

  解析