VB基本知識及選擇循環(huán)結構習題-2023修改整理

千里之行，始于足下讓知識帶有溫度。第第2頁/共2頁精品文檔推薦VB基本知識及選擇循環(huán)結構習題一、VB基本學問及挑選、循環(huán)結構習題

一、基本概念題

（1）說明下列哪些是VisualBasic合法的直接常量，并分離指出它們的類型。

100.0%1001E1123D3123,4560100

“ASDF”“1234.5”#2022/10/7#100#π

&O78&H123TrueT-1123!345.54#

（2）下列數(shù)據(jù)哪些是變量，哪些是常量？是什么類型的常量？

Name“name”Falseff“11/16/99”cj

“120”n#11/12/2022#12.345

（3）下列符號中，哪些可以是VisualBasic的合法變量名？

A123a12_3123_aa,123a123Integer

XYZFalseSin(x)變量名sinxπ

（4）把下列數(shù)學表達式寫成VisualBasic表達式：

（1）5||zyx++（2）6)1(xy+

（3）xyyx310+（4）aac

bb242-+-

（5）3211111rrr++（6）110ln45sin10++++yxeο

（5）寫出下列表達式的值：

（1）123+23Mod10\7+Asc("A")

（2）Int(68.555*100+0.4)/100

（3）#11/22/2022#-10

（4）"ZXY"&123&"abc"

（6）設a=7，b=3，c=4，求下列表達式的值：

（1）a+3*c（2）a^2/4

（3）a/2+3\2（4）aMod3+b^3/c\5

（7）寫出下列函數(shù)的值：

（1）Int(-3.14159)（2）Fix(-3.14159)

（3）Sqr(Sqr(81))（4）Len("VisualBasic程序設計")

（5）Int(Abs(99-100)/2)（6）Sgn(7*3+2)

（7）LCase("HellowVB!")（8）Mid("HellowVB!",4,3)

（9）Left("HellowVB!",3)（10）Val("16個加23個")

（11）Str(-459.55)（12）UCase("VisualBasic")

二、挑選題

（1）可以同時刪除字符串前導和尾部空格的函數(shù)是。

A.Ltrim

B.Rtrim

C.Trim

D.Mid

（2）函數(shù)Int(Rnd(1)*10)是在哪個范圍產生隨機整數(shù)。

A.(0,1)

B.(0,9)

C.(1,10)

D.(1,9)

（3）數(shù)學式子sin25o寫成VisualBasic表達式是。

A.Sin25

B.Sin(25)

C.Sin(25o)

D.Sin(25*3.14/180)

（4）表達式16/4–2^3*8/4Mod5\2的值是。

A.14

B.4

C.20

D.2

（5）數(shù)學關系式103=3Andx=3Orx“ABC”

B.“THAT”>“THE”

C.9>“H”

D.“A”>“a”

（16）表達式a+b=c是。

A.賦值表達式

B.字符表達式

C.算術表達式

D.關系表達式

（17）在下列表達式中，非法的是。

A.a=b+c

B.a>b+c

C.a≠b>c

D.a15Theny=x^2+1

Printy

EndSub

（8）執(zhí)行下面程序后，輸出的結果是。

PrivateSubForm_Click()

DimsumAsInteger

sum%=19

sum=2.23

Printsum%;sum

EndSub

（9）執(zhí)行下面程序后，輸出的結果是。

PrivateSubForm_Click()

a=100

Do

s=s+a

a=a+1

LoopUntila>100

Printa

EndSub

(10)執(zhí)行下面程序后，輸出的結果是。

PrivateSubForm_Click()

a="ABCD"

b="efgh"

c=LCase(a)

d=UCase(b)

Printc+d

EndSub

（11）執(zhí)行下面程序后，輸出的結果是。

PrivateSubForm_Click()

x=2:y=4:z=6

x=y:y=z:z=x

Printx;y;z

EndSub

（12）執(zhí)行下面程序后，輸出的結果是。

PrivateSubForm_Click()

DimcountAsInteger

count=0

Whilecount=i)ThenPrintTab(j*3);Format(b(i,j),"###");Nextj

Print

Nexti

EndSub

A.123

B.1

C.147

D.123

4564524646

7897893699

五、填空題

(1)在VB中聲明符號常量的關鍵字是_______。

(2)設a=1,b=2,c=3,則VB6.0表達式：a子句缺省時，循環(huán)變量每次轉變的值是_______。

(10)填空，使得程序運行后，能在窗體上打印如圖所示的圖案。

PrivateSubForm_Click()

Print

Fori=1To4

PrintTab(8-i);

Forj=1To8

Print"*";

()

Print

Nexti

EndSub

(11)下面程序的功能是利用隨機函數(shù)產生10個（1~100）之間的隨機整數(shù)，打印其中能

被5整除的數(shù)并求其和，請用正確的內容填空。

PrivateSubForm_Click()

DimsumAsInteger,xAsInteger

Fori=1To10

x=Int(Rnd*100+1)

If（）=0Then

sum=sum+x

Print"x=";x

EndIf

Nexti

Ifsum0Then

Print"sum=";sum

EndIf

EndSub

(12)用正確的內容填空，使得以下程序能夠找出50以內全部能構成直角三角形的整數(shù)。

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

DimcAsSingle

Fora=1To50

Forb=aTo50

c=Sqr(a^2+b^2)

If（）ThenPrinta,b,c

Nextb

Nexta

EndSub

(13)用正確的內容填空，使得以下程序能夠計算1+1/3+1/5+……+1/(2N+1)，直到1/(2N+1)

小于10-5。

PrivateSubForm_Click()

sum=1:n=1

Do

n=n+2

temp=1/n

sum=sum+temp

Iftemp<0.00001Then（）

Loop

Print"N=";n

Print"sum=";sum

EndSub

(14)某大獎賽，有7位評委給參賽選手打分。以下程序是輸入7位評委對某選手的打分后，去掉最高分和最低分后計算其平均值作為該選手的成果。請?zhí)羁帐沟贸绦蚰苷_運行。

PrivateSubForm_Click()

sum=0

Fori=1To7

cj=Val(InputBox("請輸入第""點浮現(xiàn)";a(i);"次"

Nexti

EndSub

六、編程題

（1）編寫程序將1~100自然數(shù)中能被3和5同時整除的數(shù)打印出來，并統(tǒng)計其個數(shù)。

（2）我國現(xiàn)有人口13億，設年增長率為0.75％，編寫程序，計算多少年后將超過16億。

（3）編寫程序輸出100~200之間不能被3整除的自然數(shù)。

（4）設計程序，求s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值。

（5）編寫程序計算S的近似值，直到最后一項的肯定值小于10-5為止。并用Print辦法輸出計算結果。其中：

KSk1)1(41312111+-++-+-

=KK

（6）假設某項稅收的規(guī)定如下：

●收入在500元以內，免征；●收入在500～1000元內，超過500元的部分納稅3%；

●收入超過1000元時，超過的部分納稅4%；

●收入超過2000元時，超過的部分納稅5%。

試編程實現(xiàn)上述操作。

（7）編寫程序，用InputBox函數(shù)輸入3個正整數(shù)，打印其中最大的數(shù)。

（8）編寫程序，隨意輸入三個整數(shù)A，B，C，按由大到小挨次把它們打印出來。（9）編寫程序，計算

)!12()1(!5!3sin1

2153--+++-≈--nxxxxxnnΛ直到第n項的肯定值小于10-8

（10）分離編寫兩個程序，在窗體上分離打印出如下所示的圖形。

（11）編寫程序，輸出1000之內的全部完數(shù)?！巴陻?shù)”是指一個數(shù)恰好等于它的因子之

和，如6的因子為1、2、3，而6=1+2+3，因而6是完數(shù)。

（12）一只小球從10米高度上自由落下，每次落地后反彈回原高度的40％，再落下。

編程計算小球在第8次落地時，共計經過了多少米？

（13）編寫程序，求出全部小于或等于100的自然數(shù)對。自然數(shù)對是指