2012年江蘇省信息技術(shù)專(zhuān)題練習(xí)：VB程序（8）
發(fā)布：2024/4/20 14:35:0
一、解答題（共5小題，滿(mǎn)分0分）
-
1．打開(kāi)“考生文件夾\117\工程1．vbp”，完善程序并保存。
實(shí)現(xiàn)功能：當(dāng)單擊窗體后，計(jì)算22+42+62+…+N＜1500的N的最大值。
'請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③．填寫(xiě)正確的代碼，使程序完善
Private Sub Form_Click （ ）
Dim s As Integer
Dim N As Integer
N=22
s=0
Do
s=s+①
N=②
Loop Until s＞1500
Print“N=“& CStr（③）
End Sub。組卷：2引用：1難度：0.6
一、解答題（共5小題，滿(mǎn)分0分）
-
4．打開(kāi)文件“考生文件夾\116\工程1．vbp”，完善程序并保存．
實(shí)現(xiàn)功能：計(jì)算1+3+5+…+99的值．
Private Sub Command1_Click （ ）
Dim i As Integer
Dim s As Integer
i=1
s=0
Do While i＜=99
s=s+①
i=②
Loop
Print“s=“&③
End Sub.組卷：9引用：2難度：0.5 -
5．打開(kāi)“考生文件夾\80\工程1．vbp”，完善程序并保存．
一群猴子摘了一堆桃子，每天吃掉當(dāng)天剩余桃子數(shù)的一半，每次又忍不住多吃一個(gè)，這樣到了第十天就剩下一個(gè)桃子可以吃了．
實(shí)現(xiàn)功能：計(jì)算猴子最初一共摘了多少個(gè)桃子．
'請(qǐng)不要更改源程序的結(jié)構(gòu)，刪除原題里的①、②、③、④．填寫(xiě)正確的代碼，使程序完善
Private Sub Command1_Click （ ）
Dim tz As Integer'tz是桃子數(shù)
Dim ts As Integer'ts是天數(shù)
tz=①
For ts=1To ②
tz=③*2
Next ts
Print“最初共有桃子“& ④
End Sub.組卷：2引用：1難度：0.1