2012年江苏省信息技术专题练习：VB程序（3）

一、解答题（共5小题，满分0分）

• 1．打开“考生文件夹\731”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
  本题是青蛙跃井问题：井底蛙欲沿湿滑井壁上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，请给出井深h值，计算蛙上跃次数n。请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）
  
  '本题是青蛙跃井问题：井底蛙欲沿湿滑井壁
  '上跃至地面，若井深h尺，蛙上跃3尺下滑1尺，
  '请给出井深h值，计算蛙上跃次数n。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Command1_Click （　　）
  Dim h As Single,n As Integer
  h=Val（①）
  If h＞3Then
  If h Mod 2=0Then
  n=h/2
  Else
  n=（h-1）/2
  End If
  Else
  n=②
  End If
  Text2．Text=③
  End Sub。
  组卷：2引用：1难度：0.6

  解析

一、解答题（共5小题，满分0分）

• 4．打开“考生文件夹\732”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
  本题是从字符串中找出所有大写字母，并把找出的大写字母显示在text2中。请你完善程序。完成后按“Ctrl+W”保存程序。（详见样张）
  
  '本题是从一串只含有字母或数字的字符串中找出所有大写字母，
  '并把找出的大写字母显示在text2中。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Command1_Click （　　）
  Dim x As String,y As String
  Dim i As Integer,n As Integer
  x=①
  n=Len（x）
  For i=1To ②
  If Asc（Mid（x,i,1））＜91And Asc（Mid（x,i,1））＞64Then
  y=y+Mid（x,i,1）
  End If
  Next i
  Text2．Text=③
  End Sub。
  组卷：2引用：1难度：0.6

  解析

• 5．打开“考生文件夹\730”文件夹中的文件：“工程1．vbp”进行以下操作后并保存。
  运行程序能够显示数字金字塔，请完善程序。完成后按“Ctrl+W”保存程序。（详见样张）
  '运行程序能够显示数字金字塔，请完善程序。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Form_Click （　　）
  Dim i As Integer,j As Integer
  For ①=1To 5
  Print Tab（10-j）；
  For i=1To ②
  Print Str（i）；
  Next I
  Print
  ③
  End Sub。
  组卷：2引用：1难度：0.6

  解析