2009年浙江省高中信息技術(shù)會考試卷（11）

四、程序設(shè)計題（本題有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

  解析

四、程序設(shè)計題（本題有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）程序運行后，剛退出循環(huán)時變量i的值為

   

  。
  組卷：1引用：1難度：0.4

  解析

• 4．猜密碼。電腦產(chǎn)生一個8位密碼，用戶輸入猜測的密碼，電腦判斷用戶所猜密碼的正確性，如果用戶輸入的密碼和電腦產(chǎn)生的密碼完全一致則輸出“恭喜你猜中了密碼！”，否則程序?qū)⑤敵鲇脩裘艽a和計算機(jī)產(chǎn)生密碼之間不同的字符數(shù)。電腦產(chǎn)生的8位密碼分別保存在數(shù)組pass的8個下標(biāo)變量pass（1）、pass（2）、…、pass（8）中。
  程序界面如圖VB-1所示，用戶在文本框Text1中輸入密碼，單擊“密碼校驗”按鈕（Command1）后，程序在標(biāo)簽Label3中輸出密碼校驗結(jié)果。
  解決此問題的算法流程圖如圖VB-2所示，相應(yīng)的程序如下，在程序①和②橫線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補(bǔ)充完整。
  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））'把文本框中數(shù)字逐個分割出來并轉(zhuǎn)化成數(shù)值
  Next i
  s=0'變量s保存不同字符的總數(shù)
  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'產(chǎn)生8位密碼，每位一個非負(fù)整數(shù)，保存到數(shù)組pass
  pass（i）=Fix（Rnd*10）
  Next i
  End Sub
  程序中①橫線處應(yīng)填入

   

  
  程序中②橫線處應(yīng)填入

   

  
  
  組卷：0引用：1難度：0.1

  解析