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

  解析