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

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

• 1．打开“考生文件夹\614\工程1．vbp”，完善程序并保存。
  实现功能：当单击“显示”按钮后，随机产生10个属于区间[0，100）的自然数，并保存于数组a中，然后在窗体上显示这10个数中的最大值。（注：学生运算结果有可能跟样图中数值不一致）
  
  '（注：学生运算结果有可能跟样图中数值不一致。）
  '注：请不要更改原程序结构，删除①、②、③，并在对应位置填写正确的代码
  
  Private Sub Command1_Click （　　）
  Dim a（9）As Integer
  Dim max As Integer
  Dim i As Integer
  Me.Cls
  Print
  Randomize
  For i=0To ①Step 1
  a（i）=Int（Rnd*100）
  Print a（i）
  Next i
  max=a（0）
  For i=1To 9
  If max＜a（i） Then
  max=②
  End If
  Next i
  Print“这10个自然数中的最大值=“； CStr（③）
  End Sub。
  组卷：2引用：1难度：0.6

  解析

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

• 4．打开“考生文件夹\108\工程1．vbp”，完善程序并保存。
  实现功能：判断从文本框Text1中输入的数据，如果该数据满足条件：除以3余2，除以5余3，除以7余4，则输出在窗体上。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Command1_Click （　　）
  x=Val（Text1．Text）
  If x Mod 3=2Then
  If ①=3Then
  If ②Then
  Print ③
  End If
  End If
  End If
  End Sub。
  组卷：2引用：1难度：0.6

  解析

• 5．打开“考生文件夹\181\工程1．vbp”，完善程序并保存。
  实现功能：从键盘输入10个学生的测试成绩，输出最高分和最低分。
  '请不要更改源程序的结构，删除原题里的①、②、③．填写正确的代码，使程序完善
  
  Private Sub Command1_Click （　　）
  Dim cj（10）As Single
  Dim i As Integer
  Dim max As Single
  Dim min As Single
  For i=1To 10
  cj（i）=Val（InputBox（“请输入10个学生的成绩“，“成绩输入“））
  Next i
  max=cj（1）
  min=cj（1）
  For i=2To 10
  If cj（i）＞max Then
  max=①
  End If
  If ②Then
  min=③
  End If
  Next i
  Print CStr（max），CStr（min）
  End Sub。
  组卷：2引用：1难度：0.6

  解析