2012年江蘇省信息技術(shù)專題練習(xí)：VB程序（3）

一、解答題（共5小題，滿分0分）

• 1．打開“考生文件夾\731”文件夾中的文件：“工程1．vbp”進(jìn)行以下操作后并保存。
  本題是青蛙躍井問題：井底蛙欲沿濕滑井壁上躍至地面，若井深h尺，蛙上躍3尺下滑1尺，請給出井深h值，計算蛙上躍次數(shù)n。請你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）
  
  '本題是青蛙躍井問題：井底蛙欲沿濕滑井壁
  '上躍至地面，若井深h尺，蛙上躍3尺下滑1尺，
  '請給出井深h值，計算蛙上躍次數(shù)n。
  '請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  
  Private Sub Command1_Click （　?。?br />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”進(jìn)行以下操作后并保存。
  本題是從字符串中找出所有大寫字母，并把找出的大寫字母顯示在text2中。請你完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）
  
  '本題是從一串只含有字母或數(shù)字的字符串中找出所有大寫字母，
  '并把找出的大寫字母顯示在text2中。
  '請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  
  Private Sub Command1_Click （　?。?br />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”進(jìn)行以下操作后并保存。
  運(yùn)行程序能夠顯示數(shù)字金字塔，請完善程序。完成后按“Ctrl+W”保存程序。（詳見樣張）
  '運(yùn)行程序能夠顯示數(shù)字金字塔，請完善程序。
  '請不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫正確的代碼，使程序完善
  
  Private Sub Form_Click （　?。?br />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

  解析