2009年浙江省高中信息技術會考試卷（3）

一、（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 1．有如下Visual Basic程序段：
  a=12
  b=32
  c=a
  c=c+b
  該程序段運行后，變量c的值為

   

  ．
  組卷：2引用：1難度：0.9

  解析

一、（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 3．以下Visual Basic程序的功能是：計算表達式1+3+9+27+81+…2187的值，并在文本框Text1中輸出計算結果。
  Private Sub Command1_Click （　　）
  im i As Integer,t As Long
  t=0
  i=1
  Do While i＜=2187
  t=t+i
  i=i+3
  Loop
  Text1．Text=Str（t）
  End Sub
  問：
  （1）為了實現這一目標，程序橫線處的表達式應更正為

   

  。
  （2）運行更正后的程序，循環剛退出時變量i的值為

   

  。
  組卷：0引用：1難度：0.5

  解析

• 4．將一個十進制正整數轉化為二進制數可以采用“除二取余法”，主要方法就是將十進制數用2除，保存所得余數，然后將商的整數部分作為下次運算的被除數，重復上述“除二取余”操作，直到商的整數部分為零停止．在文本框Text1中輸入一個正整數，單擊“開始轉換”按鈕（Command1）后，對應的二進制數在標簽Label3中顯示出來．
  
  算法流程圖如圖，相應的程序如下，在程序①和②橫線處，把程序補充完整．
  
  Private Sub Command1_Click （　　）
  Dim x As Integer,s As String,r As Integer,t As Integer
  
  ①
  s=““
  Do While x＜＞0
  r=x Mod 2
  s=Str（r）+s
  x=②
  Loop
  Label3．Caption=s
  End Sub
  程序中①橫線處應填入

   

  程序中②橫線處應填入

   

  
  開始輸入十進制數xx≠0？輸出s的值將當前x被2除的余數保存到變量rY結束s賦初值（空字符串）Ns←Str（r）+s將當前x被2除所得商的整數部分保存到變量x.
  組卷：0引用：2難度：0.3

  解析