2012年江蘇省信息技術專題練習：VB程序（7）
發布：2024/4/20 14:35:0
一、解答題（共5小題，滿分0分）
-
1．打開“考生文件夾\614\工程1．vbp”，完善程序并保存。
實現功能：當單擊“顯示”按鈕后，隨機產生10個屬于區間[0，100）的自然數，并保存于數組a中，然后在窗體上顯示這10個數中的最大值。（注：學生運算結果有可能跟樣圖中數值不一致）
'（注：學生運算結果有可能跟樣圖中數值不一致。）
'注：請不要更改原程序結構，刪除①、②、③，并在對應位置填寫正確的代碼
Private Sub Command1_Click （ ?。?br />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 （ ?。?br />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