VB基本知識(shí)及選擇循環(huán)結(jié)構(gòu)習(xí)題-2023修改整理

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

一、基本概念題

（1）說(shuō)明下列哪些是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）下列符號(hào)中，哪些可以是VisualBasic的合法變量名？

A123a12_3123_aa,123a123Integer

XYZFalseSin(x)變量名sinxπ

（4）把下列數(shù)學(xué)表達(dá)式寫(xiě)成VisualBasic表達(dá)式：

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

（3）xyyx310+（4）aac

bb242-+-

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

（5）寫(xiě)出下列表達(dá)式的值：

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

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

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

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

（6）設(shè)a=7，b=3，c=4，求下列表達(dá)式的值：

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

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

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

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

（3）Sqr(Sqr(81))（4）Len("VisualBasic程序設(shè)計(jì)")

（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個(gè)加23個(gè)")

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

二、挑選題

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

A.Ltrim

B.Rtrim

C.Trim

D.Mid

（2）函數(shù)Int(Rnd(1)*10)是在哪個(gè)范圍產(chǎn)生隨機(jī)整數(shù)。

A.(0,1)

B.(0,9)

C.(1,10)

D.(1,9)

（3）數(shù)學(xué)式子sin25o寫(xiě)成VisualBasic表達(dá)式是。

A.Sin25

B.Sin(25)

C.Sin(25o)

D.Sin(25*3.14/180)

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

A.14

B.4

C.20

D.2

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

B.“THAT”>“THE”

C.9>“H”

D.“A”>“a”

（16）表達(dá)式a+b=c是。

A.賦值表達(dá)式

B.字符表達(dá)式

C.算術(shù)表達(dá)式

D.關(guān)系表達(dá)式

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

A.a=b+c

B.a>b+c

C.a≠b>c

D.a15Theny=x^2+1

Printy

EndSub

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

PrivateSubForm_Click()

DimsumAsInteger

sum%=19

sum=2.23

Printsum%;sum

EndSub

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

PrivateSubForm_Click()

a=100

Do

s=s+a

a=a+1

LoopUntila>100

Printa

EndSub

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

PrivateSubForm_Click()

a="ABCD"

b="efgh"

c=LCase(a)

d=UCase(b)

Printc+d

EndSub

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

PrivateSubForm_Click()

x=2:y=4:z=6

x=y:y=z:z=x

Printx;y;z

EndSub

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

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中聲明符號(hào)常量的關(guān)鍵字是_______。

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

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

PrivateSubForm_Click()

Print

Fori=1To4

PrintTab(8-i);

Forj=1To8

Print"*";

()

Print

Nexti

EndSub

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

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

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)用正確的內(nèi)容填空，使得以下程序能夠找出50以內(nèi)全部能構(gòu)成直角三角形的整數(shù)。

PrivateSubForm_Click()

DimaAsInteger,bAsInteger

DimcAsSingle

Fora=1To50

Forb=aTo50

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

If（）ThenPrinta,b,c

Nextb

Nexta

EndSub

(13)用正確的內(nèi)容填空，使得以下程序能夠計(jì)算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)某大獎(jiǎng)賽，有7位評(píng)委給參賽選手打分。以下程序是輸入7位評(píng)委對(duì)某選手的打分后，去掉最高分和最低分后計(jì)算其平均值作為該選手的成果。請(qǐng)?zhí)羁帐沟贸绦蚰苷_運(yùn)行。

PrivateSubForm_Click()

sum=0

Fori=1To7

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

Nexti

EndSub

六、編程題

（1）編寫(xiě)程序?qū)?~100自然數(shù)中能被3和5同時(shí)整除的數(shù)打印出來(lái)，并統(tǒng)計(jì)其個(gè)數(shù)。

（2）我國(guó)現(xiàn)有人口13億，設(shè)年增長(zhǎng)率為0.75％，編寫(xiě)程序，計(jì)算多少年后將超過(guò)16億。

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

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

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

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

=KK

（6）假設(shè)某項(xiàng)稅收的規(guī)定如下：

●收入在500元以內(nèi)，免征；●收入在500～1000元內(nèi)，超過(guò)500元的部分納稅3%；

●收入超過(guò)1000元時(shí)，超過(guò)的部分納稅4%；

●收入超過(guò)2000元時(shí)，超過(guò)的部分納稅5%。

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

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

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

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

2153--+++-≈--nxxxxxnnΛ直到第n項(xiàng)的肯定值小于10-8

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

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

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

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

編程計(jì)算小球在第8次落地時(shí)，共計(jì)經(jīng)過(guò)了多少米？

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