VB習(xí)題-基本的控制結(jié)構(gòu)

1、第四章 基本的控制結(jié)構(gòu)習(xí)題一、 選擇題1. 下面正確的賦值語句是（ c ）。（A）x+y=30 （B）y=*r*r （C）y=x+30 （D）3y=x2. 為了給x,y,z三個(gè)變量賦初值1，下面正確的賦值語句是（ a ）。（A）x=1:y=1:z=1 （B）x=1,y=1,z=1 （C）x=y=z=1 （D）xyz=13. 賦值語句：a=123+Mid（”,3,2）執(zhí)行后，a變量中的值是（ 157 ）。4. 賦值語句：a=123 & Mid（”,3,2）執(zhí)行后，a變量中的值是（”12334” ）。5. InputBox函數(shù)返回值的類型為（ 字符串 ）。6. 在窗體上畫一個(gè)命令按鈕，然后編寫如下

2、事件過程： Private Sub Command1_Click() a=InputBox(“請輸入第一個(gè)數(shù)”) b=InputBox(“請輸入第二個(gè)數(shù)”) Print b+a End Sob 程序運(yùn)行后，單擊命令按鈕，先后在兩個(gè)輸入框中分別輸入456和123，則輸出結(jié)果是（ ）。 7. 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程： Private Sub Command1_Click() Dim a as integer, b as integer a=InputBox(“請輸入第一個(gè)數(shù)”) b=InputBox(“請輸入第二個(gè)數(shù)”) Print b+a End Sob 程序運(yùn)行后，單擊命

3、令按鈕，先后在兩個(gè)輸入框中分別輸入456和123，則輸出結(jié)果是（ 579 ）。 8. 設(shè)a=10,b=20，則不能實(shí)現(xiàn)變量a, b交換的是（ a ）。 （A）c:=a : b:=a : a:=c （B）c:=a : a:=b : b:=c（C）c:=b : b:=a : a:=c （D）c:=a : d:=b : b:=c : a:=d9. VB提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)是選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)11. 設(shè)x為未賦值的整型變量，語句if x then Print x else print x+1 執(zhí)行后的結(jié)果是（ 1 ）。12. 語句if x=1 then y=1，下列說法正確的是

4、（ c ）。 （A）x=1和y=1均為賦值語句 （B）x=1和y=1均為關(guān)系表達(dá)式（C）x=1為關(guān)系表達(dá)式，y=1為賦值語句 （D）x=1為賦值語句，y=1為關(guān)系表達(dá)式13. 下面程序段求兩個(gè)數(shù)中的大數(shù)，（ b ）不正確。 （A）max=iif(xy, x, y ) （B）if xy then max=x else max=y（C）max=x （D）if y=x then max=y if y=x then max=y max=x14. 在Do Until 條件 -Loop循環(huán)結(jié)構(gòu)中，正確的描述是（ b ）。（A）如果“條件”是一個(gè)為0的常數(shù)，則一次循環(huán)體也不執(zhí)行（B）如果“條件”是一個(gè)為0的

5、常數(shù)，則至少執(zhí)行一次循環(huán)體（C）如果“條件”是一個(gè)不為0的常數(shù)，則至少執(zhí)行一次循環(huán)體（D）不論“條件”是否為“真”，至少要執(zhí)行一次循環(huán)體15. 設(shè)a=6，則執(zhí)行x=IIf（a5，-1，0）后，x的值為（ -1 ）。 2. .閱讀程序段： for i=1 to 3 for j=1 to i for k=j to 3 a=a+1 next k next j next i print a執(zhí)行此段程序后的結(jié)果是：14分析程序的運(yùn)行結(jié)果1.閱讀程序段： x=1 y=4 do until y4 x=x*y y=y+1 loop print x執(zhí)行此段程序后的結(jié)果是：44. 在窗體上畫一個(gè)命令按鈕，然后編寫

6、如下事件過程：Private Sub Command1_click() X=0 Do until x=-1 a=Val(InputBox(“請輸入a的值”) b= Val(InputBox(“請輸入b的值”) X=Val(InputBox(“請輸入X的值”) a=a+b+x LoopPrint aEnd Sub程序運(yùn)行后，單擊命令按鈕,依次在輸入對話框中輸入5、4、3、2、1、-1，則輸出結(jié)果是：23. 在窗體上畫一個(gè)命令按鈕，然后編寫如下事件過程：Private Sub Command1_click() For i=1 to 4 X=4 For j=1 to 3 X=3 For k=1 to

7、 2 X=x+6 Next k Next j Next i Print xEnd sub程序運(yùn)行后，單擊命令按鈕，輸出結(jié)果是：156. 在窗體上畫兩個(gè)文本框text1、 text2和一個(gè)命令按鈕command1，然后編寫如下事件過程：Private sub command1_click() X=0 Do while x50 X=(x+2)*(x+3) N=n+1 Loop Text1.text=str(n) Text2.text=str(x)End sub程序運(yùn)行后，單擊命令按鈕，在兩個(gè)文本框中顯示的值分別是：2 725. 在窗體上畫一個(gè)文本框text1，然后編寫如下事件過程：Private

8、Sub Form_Load() Text1.text=” Text1.setfocus For i=1 to 10 Sum=Sum+i Next i Text1.text=sumEnd sub程序運(yùn)行后，在文本框中顯示的結(jié)果是：557. 閱讀程序： Private Sub Form_click() Dim k%,n%,m% n=10 m=1 k=1 Do while k=n m=m*2 k=k+1 Loop Print m End sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為：10248. 閱讀程序： Private Sub Form_click() A=0 For i=1 to 2 For j=1

9、 to 4 If j mod 20 then a=a+1 End if a=a+1 Next j Next i Print a End sub程序運(yùn)行后，單擊窗體，輸出結(jié)果為：1210. 在窗體上一個(gè)命令按鈕command1，然后編寫如下事件過程：private Sub command1_click() dim x as integer, n as integer x=1 : n=0 do while x20 x=x*3 n=n+1 loop print x, nend sub程序運(yùn)行時(shí)，單擊命令按鈕，結(jié)果為：279. 閱讀程序：Private sub form_click() S$=Inpu

10、tBox(“輸入一個(gè)數(shù)據(jù)串”) For i=1 to Len(s) If Mid(s,i,1)=”;” then k=k+1 Next i If right(s,1)”;” then k=k+1 Print kEnd sub運(yùn)行程序時(shí)，從鍵盤輸入數(shù)據(jù)串“56；76；4；22；45；65；87”，輸出的結(jié)果是：711. 閱讀程序：Private sub command1_click() X=7 For i=1 to 4 K=val(inputbox(“please input:”) If k mod 5=0 then Y=y+k X=k Else Y=y+x Endif Print y Next

11、 iEnd sub程序運(yùn)行時(shí)，從鍵盤輸入2、5、7、10，輸出的結(jié)果為：312. 閱讀程序：Private sub command1_click() s$=inputbox(“請輸入一個(gè)字符串：”) for i=1 to len(s) t=mid(s,i,1) if t=”a” and t=”A” and t=”0” and ta then x=b*(b+a) print xend sub程序運(yùn)行時(shí)，從鍵盤輸入5、4，輸出的結(jié)果為：17. 閱讀程序：private sub command1_click() a$=” b$=”ABCDEFGHIJ” text1=” for i=1 to 5 s$

12、=mid(a$,9-i,1)+mid(b$,i,1) text1=text1+s$ next iend sub程序運(yùn)行后，文本框text1中的內(nèi)容是：8a7b*6c5d4e18. 閱讀程序：private sub command1_click() a$=” b$=”ABCDEFGHIJ” text1=” for i=1 to 5 s$=mid(a$,9-i,2)+mid(b$,i,1) text1= s$ + text1 next iend sub程序運(yùn)行后，文本框text1中的內(nèi)容是：45e56d67c78b89a19. 閱讀程序：private sub command1_click() a

13、$=” c=6 d=5 do while d0 d=val(mid(a,10-i,1) i=i+1 if dc then c=c+1 loop print c+dend sub程序運(yùn)行后，輸出的結(jié)果為：820. 在窗體上畫一個(gè)名稱為Command1的命令按鈕，一個(gè)名稱為Label1的標(biāo)簽，然后編寫如下事件過程：Private Sub Command1_Click() s = 0 For i = 1 To 15 x = 2 * i - 1 If x Mod 3 = 0 Then s = s + 1 Next i Label1.Caption = sEnd Sub程序運(yùn)行后，單擊命令按鈕，則標(biāo)簽中

14、顯示的內(nèi)容是 5二、 簡答題1. 指出下列賦值語句中的錯(cuò)誤（包括運(yùn)行時(shí)產(chǎn)生的錯(cuò)誤）。（1）10x=sin(x)+y （2）c=3+sqr(-3) （3）c+x+y=c*y （4）x=sin(x)/(20 mod 2)2. Msgbox作為函數(shù)使用時(shí)與Inputbox的區(qū)別？各自獲得的是什么值？3. 語句：IF 表達(dá)式 Then 中的表達(dá)式可以是算術(shù)、字符、關(guān)系、邏輯表達(dá)式中的哪些？4. 指出下列語句中的錯(cuò)誤。（1）If xy Then print x（2）If 10x=”A” and c=”a” and c20當(dāng)10x20當(dāng)xy Then x=x-y else y=y-x Loop Print

15、 x,z/xEnd Sub(1)Private Sub Command1_Click() Dim x$,n% n=20 x=” Do While n0 n=n mod 2 n=n2 x=chr(48+a) & x Loop Print xEnd Sub 11. 利用隨機(jī)函數(shù)產(chǎn)生20個(gè)50100范圍內(nèi)的隨機(jī)數(shù)，顯示它們的最大值、最小值和平均值。四、將下列程序補(bǔ)充完整1. 輸入任意長度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG”變換成“GFEDCBA”。Private sub command1_click() Dim a$,i%,c$,d$ a=inputbox$(“輸入字符串：

16、”) n=( len(a) ) for i= to step -1 c=mid(a,i,1) d= ( c ) print d next i end sub2. 找出被3、5、7除，余數(shù)為1的最小的5個(gè)正整數(shù)。Private sub command1_click() Dim count%,n% count=0n=1do n=n+1 if ( ) then print n count=count+1 endifloop ( )end sub4. 以下程序的功能是：生成20個(gè)200到300之間的隨機(jī)整數(shù)，輸出其中能被整除的數(shù)并求出它們的和。Private Sub Command1_Click()Dim x!,i!,s! S=0For i=1 To 20x=int(rnd()*100+200)If( x mod 5 )=0 ThenPrint xS=( s+x )End ifNext iPrintSum=;SEnd Sub 3. 某次大獎(jiǎng)賽，有七個(gè)評委打分，如下程序?qū)σ幻麉①愓?/p>