2012年江蘇省信息技術(shù)專(zhuān)題練習(xí)：VB程序（9）
發(fā)布：2024/4/20 14:35:0
一、解答題（共5小題，滿分0分）
-
1．打開(kāi)“考生文件夾\601\工程1．vbp”，完善程序并保存．
實(shí)現(xiàn)功能：當(dāng)單擊窗體后，計(jì)算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中顯示出來(lái)．
'填空完成程序，使得單擊窗體后，計(jì)算出1+2+3+…+N＜500的N的最大值，并在文本框Text1中顯示出來(lái)．
'注：請(qǐng)不要更改源程序結(jié)構(gòu)，刪除①、②、③，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼
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．打開(kāi)“考生文件夾\119\工程1．vbp”，完善程序并保存。
關(guān)于人口問(wèn)題，如果我國(guó)人口年增長(zhǎng)率為4%，問(wèn)多少年后我國(guó)人口超過(guò)20億。（假設(shè)現(xiàn)在我國(guó)人口為14億）
實(shí)現(xiàn)功能：當(dāng)單擊窗體后，在窗體上輸出問(wèn)題答案。
'請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③、④．填寫(xiě)正確的代碼，使程序完善
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．打開(kāi)“考生文件夾\599\工程1．vbp”，完善程序并保存。
實(shí)現(xiàn)功能：當(dāng)單擊窗體后，計(jì)算1+2+3+…+N＞500的N的最小值，并在文本框Text1中顯示出來(lái)。
'填空完成程序，使得當(dāng)單擊窗體后，計(jì)算1+2+3+…+N＞500的N的最小值，并在文本框Text1中顯示出來(lái)。
'注：請(qǐng)不要更改源程序結(jié)構(gòu)，刪除①、②、③，并在對(duì)應(yīng)位置填寫(xiě)正確的代碼
Private Sub Form_Click （ ?。?br />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