2017年江苏省信息技术学业水平试卷（11）

一、操作题（每题10分，8题共80分）

• 1．打开文件“考生文件夹\863\细胞分裂．vbp”，完善程序实现如下功能并保存：
  有一种细胞每3分钟分裂一次，每次分裂时每个细胞分裂成2个，30分钟后有2048个细胞．问开始时有多少个细胞？
  Private Sub cmdDivision_Click （　　）
  Dim f（10）As Integer'30分钟共分裂10次
  Dim i As Integer
  f（10）=①
  For i=9To 0Step ②
  f（i）=f（i+1）/2
  Next i
  Print ③
  End Sub.
  组卷：8引用：1难度：0.7

  解析

• 2．打开文件“考生文件夹\853\工程1．vbp”，完善程序实现如下功能并保存：
  在数组中输入5个整数，找出最大数（max）和最小数（min），并分别在Label1和Label2中显示．
  Private Sub Command1_Click （　　）
  Dim x（5）As Integer,i As Integer
  Dim max As Integer,min As Integer
  For i=1To 5
  ①=InputBox（“输入一个数“）
  Next i
  max=②
  min=x（1）
  For i=2To 5
  If x（i）＞max Then max=x（i）
  If x（i）＜min Then ③=x（i）
  Next i
  Label1．Caption=Str（max）
  Label2．Caption=Str（min）
  End Sub.
  组卷：7引用：1难度：0.5

  解析

一、操作题（每题10分，8题共80分）

• 7．密码的原理是将“明文”中的每个字符用另外一个字符替换，这样就形成“密文”．如果将数字进行加密，其对应关系如下所示：
  明文：0123456789  密文：9876543210
  打开文件“Z：\1\工程1．vbp”，完善程序，使实现以下功能后保存：
  若在文本框text1中输入待加密的数字，单击“command1命令按钮”后，在文本框text2中输出密文．（数值型与字符型不能进行数学运算）
  Private Sub Command1_Click （　　）
  Dim x As String,y As String
  Dim i As Integer
  Dim temp1As String,temp2As String
  x=Text1．Text
  y=““
  For i=1To ①（Text1．Text）
  temp1=Mid（x,i,1）
  temp2=②
  y=y+temp2
  Next i
  Text2．Text=③
  End Sub.
  组卷：8引用：2难度：0.5

  解析

• 8．打开文件“考生文件夹\9\工程1．vbp”，完善Command1_Click事件代码并保存．
  实现功能：输入10个数，存放在数组中，并按输入的逆序输出在窗体上．
  Private Sub Command1_Click （　　）
  Dim s（9）As Single
  For i=0To 9
  ①=Val（InputBox（“请输入一个数“））
  Next i
  For i=9To 0Step ②
  Print ③
  Next i
  End Sub.
  组卷：9引用：1难度：0.1

  解析