2012年江蘇省信息技術(shù)專題練習:VB程序(8)
發(fā)布:2024/4/20 14:35:0
一、解答題(共5小題,滿分0分)
-
1.打開“考生文件夾\117\工程1.vbp”,完善程序并保存。
實現(xiàn)功能:當單擊窗體后,計算22+42+62+…+N<1500的N的最大值。
'請不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③.填寫正確的代碼,使程序完善
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小題,滿分0分)
-
4.打開文件“考生文件夾\116\工程1.vbp”,完善程序并保存.
實現(xiàn)功能:計算1+3+5+…+99的值.
Private Sub Command1_Click ( ?。?br />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.打開“考生文件夾\80\工程1.vbp”,完善程序并保存.
一群猴子摘了一堆桃子,每天吃掉當天剩余桃子數(shù)的一半,每次又忍不住多吃一個,這樣到了第十天就剩下一個桃子可以吃了.
實現(xiàn)功能:計算猴子最初一共摘了多少個桃子.
'請不要更改源程序的結(jié)構(gòu),刪除原題里的①、②、③、④.填寫正確的代碼,使程序完善
Private Sub Command1_Click ( ?。?br />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