2012年江蘇省信息技術專題練習：VB程序（9）
發布：2024/4/20 14:35:0
一、解答題（共5小題，滿分0分）
-
1．打開“考生文件夾\601\工程1．vbp”，完善程序并保存．
實現功能：當單擊窗體后，計算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中顯示出來．
'填空完成程序，使得單擊窗體后，計算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中顯示出來．
'注：請不要更改源程序結構，刪除①、②、③，并在對應位置填寫正確的代碼
Private Sub Form_Click （ ）
Dim s As Integer'變量s存放和
Dim n As Integer
'為n賦初值
n=①
'為s賦初值
s=②
Do While s＜500
n=n+1
s=③
Loop
Text1．Text=CStr（n-1）
End Sub.組卷：3引用：1難度：0.7
一、解答題（共5小題，滿分0分）
-
4．打開“考生文件夾\119\工程1．vbp”，完善程序并保存。
關于人口問題，如果我國人口年增長率為4%，問多少年后我國人口超過20億。（假設現在我國人口為14億）
實現功能：當單擊窗體后，在窗體上輸出問題答案。
'請不要更改源程序的結構，刪除原題里的①、②、③、④．填寫正確的代碼，使程序完善
Private Sub Form_Click （ ）
Dim p As Integer'變量p保存人口
Dim n As Long
①
n=0
Do While ②
p=p*③
n=④
Loop
Print“n=“& CStr（n）
End Sub。組卷：2引用：1難度：0.6 -
5．打開“考生文件夾\599\工程1．vbp”，完善程序并保存。
實現功能：當單擊窗體后，計算1+2+3+…+N＞500的N的最小值，并在文本框Text1中顯示出來。
'填空完成程序，使得當單擊窗體后，計算1+2+3+…+N＞500的N的最小值，并在文本框Text1中顯示出來。
'注：請不要更改源程序結構，刪除①、②、③，并在對應位置填寫正確的代碼
Private Sub Form_Click （ ）
Dim s As Integer'變量s存放和
Dim n As Integer
'為s賦初值
s=①
'為n賦初值
n=②
Do
n=n+1
s=s+n
Loop While s ③500
Text1．Text=CStr（n）
End Sub。組卷：2引用：1難度：0.6