計(jì)算機(jī)技術(shù)基礎(chǔ)習(xí)題集

計(jì)算機(jī)技術(shù)基礎(chǔ)習(xí)題冊(cè)

(VisualBasic6.0版)

姓名：_____________

學(xué)號(hào)：_____________

專業(yè)：_____________

班級(jí)：_____________

沈陽藥科大學(xué)計(jì)算中心

目錄

目錄.......................................................................I

習(xí)題一.....................................................................1

習(xí)題一參考答案..............................................................4

習(xí)題二.....................................................................5

習(xí)題二參考答案..............................................................8

習(xí)題三.....................................................................9

習(xí)題三參考答案..............................................................13

習(xí)題四....................................................................15

習(xí)題四參考答案.............................................................21

習(xí)題五....................................................................23

習(xí)題五參考答案.............................................................31

習(xí)題六........................................................................33

習(xí)題六參考答案.............................................................41

習(xí)題七......................................................................43

習(xí)題七參考答案.............................................................49

習(xí)題八........................................................................51

習(xí)題八參考答案.............................................................55

習(xí)題九........................................................................56

習(xí)題九參考答案..............................................................64

68K《VISUALBASIC程序設(shè)計(jì)》試題...........................................67

70K《計(jì)算機(jī)技術(shù)基礎(chǔ)》試卷2004年5月.........................................75

《計(jì)算機(jī)技術(shù)基礎(chǔ)》試卷2004年6月............................................85

《計(jì)算機(jī)技術(shù)基礎(chǔ)》試卷2004年8月............................................97

68K試題參考答案...........................................................106

70K（2004年5月）參考答案...................................................108

2004年6月參考答案.........................................................112

2004年8月參考答案..........................................................115

計(jì)算機(jī)技術(shù)基礎(chǔ)（VB）試卷（B卷，2005年7月）...................................118

習(xí)題一

11選擇題

1.VisualBasic是一種面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言，它以結(jié)構(gòu)化Basic

語言為基礎(chǔ)，采取了（）的編程機(jī)制和運(yùn)行機(jī)制。

（A）事件驅(qū)動(dòng)（B）按過程順序執(zhí)行

（0從主程序開始執(zhí)行（D）按模塊順序執(zhí)行

2.在VisualBasic中最基本的對(duì)象是（）,它是應(yīng)用程序的基石，是其

他控件最基本的容器。

（A）文本框（B）命令按鈕。窗體（D）標(biāo)簽

3.多窗體程序是由多個(gè)窗體組成。在缺省情況下，VB在應(yīng)用程序執(zhí)行時(shí)，總

是把（）指定為啟動(dòng)窗體。

（A）不包含任何控件的窗體（B）設(shè)計(jì)時(shí)的第一個(gè)窗體

（C）包含控件最多的（D）命名為Forml的窗體

4.有程序代碼如下：Textl.Text=，，VisualBasic"。則：Textl>Text和

"VisualBasic”分別代表（）。

（A）對(duì)象，值，屬性（B）對(duì)象，方法，屬性

（C）對(duì)象，屬性，值（D）屬性，對(duì)象，值

5.VisualBasic是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，（）不是面向?qū)ο笙?/p>

統(tǒng)所包含的三要素。

（A）變量（B）事件（C）屬性（D）方法

6.VisualBasic的一個(gè)應(yīng)用程序至少包含一個(gè)（）文件，該文件存儲(chǔ)窗

體上使用的所有控件對(duì)象和有關(guān)的（）、對(duì)象相應(yīng)的（）過程

和（）代碼。

（A）模塊、方法、事件、程序（B）窗體、屬性、事件、程序

（C）窗體、程序、屬性、事件（D）窗體、屬性、事件、模塊

7.以下不屬于VisualBasic的工作模式是（）模式。

（A）編譯（B）設(shè)計(jì)（C）運(yùn)行（D）中斷

8.在VB集成環(huán)境創(chuàng)建VB應(yīng)用程序時(shí)，除了工具箱窗口、對(duì)象窗口、屬性窗

口外必不可少的窗口是（）。

（A）窗體布局窗口（B）立即窗口（C）代碼窗口（D）監(jiān)視窗口

9.保存新建的工程時(shí)，默認(rèn)的路徑是（）。

（A）MyDocuments（B）VB98（C）\（D）Windows

10.將調(diào)試通過的工程經(jīng)“文件”菜單的“生成.exe文件”編譯成.exe后，

將該可執(zhí)行文件復(fù)制到其他機(jī)器上不能運(yùn)行的主要原因是（）。但是

如果打包生成安裝文件，在其它計(jì)算機(jī)上安裝后就可以使用了。

（A）運(yùn)行的機(jī)器上無VB系統(tǒng)（B）缺少.frm窗體文件

（C）該可執(zhí)行文件有病毒（D）以上原因都不對(duì)

11.對(duì)于窗體，下面()屬性可以在運(yùn)行模式下進(jìn)行設(shè)定。

(A)MaxButton(B)BorderStyle(C)Name(D)Left

12.要使Print方法在FormJLoad事件中起作用，要對(duì)窗體的()屬性進(jìn)

行設(shè)置。

(A)BackColor(B)ForeColor(C)AutoRedraw(D)Caption

13.使標(biāo)簽控件顯示時(shí)不覆蓋其背景內(nèi)容，要對(duì)()屬性進(jìn)行設(shè)置。

(A)BackColor(B)BorderStyle(C)ForeColor(D)BackStyle

14.使命令按鈕不可操作，要對(duì)()屬性設(shè)置。

(A)Enabled(B)Visible(C)BackColor(D)Caption

15.文本框沒有()屬性。

(A)Enabled(B)Visible(C)BackColor(D)Caption

16.不論何控件，共同具有的是()屬性。

(A)Text(B)Name(C)ForeColor(D)Caption

17.要使Forml窗體的標(biāo)題欄顯示“歡迎使用VB”，以下()語句是正確

的。

(A)Forml.Caption="歡迎使用VB”

(B)Forml.Caption』歡迎使用VB,

(C)Forml.Caption=歡迎使用VB

(D)Forml.Caption="歡迎使用VB"

18.要使某控件在運(yùn)行時(shí)不可見，應(yīng)對(duì)()屬性進(jìn)行設(shè)置。

(A)Enabled(B)Visible(C)BackColor(D)Caption

19.要使窗體在運(yùn)行時(shí)不可改變窗體的大小和沒有最大化和最小化按鈕，只要

對(duì)下列()屬性設(shè)置就有效。

(A)MaxButton(B)BorderStyle(C)Width(D)MinButton

20.當(dāng)運(yùn)行程序時(shí)，系統(tǒng)自動(dòng)執(zhí)行啟動(dòng)窗體的()事件過程。

(A)Load(B)Click(C)UnLoad(D)GotFocus

21.文本框的ScrollBars屬性設(shè)置了非零值，卻沒有效果，原因是()。

(A)文本框中沒有內(nèi)容

(B)文本框的MultiLine屬性為False

(C)文本框的MultiLine屬性丸True

(D)文本框的Locked屬性為True

22.要判斷在文本框中是否按了Enter鍵，應(yīng)利用文本框的()事件。

(A)Change(B)KeyDown(C)Click(D)KeyPress

23.如果文本框的Enabled屬性設(shè)為False,則()。

(A)文本框的文本將變成灰色，并且此時(shí)用戶不能將光標(biāo)置于文本框上

(B)文本框的文本將變成灰色，用戶仍然能將光標(biāo)置于文本框上，但是

不能改變文本框中的內(nèi)容

(C)文本框的文本將變成灰色，用戶仍然能改變文本框中的內(nèi)容

（D）文本框的文本正常顯示，用戶能將光標(biāo)置于文本框上，但是不能改

變文本框中的內(nèi)容

24.當(dāng)需要上下文幫助時(shí)，選擇問題中的對(duì)象類型、屬性名稱、保留字等關(guān)鍵

詞，然后按（）鍵，就可出現(xiàn)MSDN窗口及顯示對(duì)應(yīng)內(nèi)容的幫助信息。

（A）Help（B）F10（C）Esc（D）Fl

1.2填空題

1.VB6.0提供了一種新的數(shù)據(jù)庫(kù)訪問技術(shù)，即（），通過該技術(shù)，能

方便地訪問多種數(shù)據(jù)庫(kù)中的數(shù)據(jù)。

2.當(dāng)進(jìn)入VB集成環(huán)境，發(fā)現(xiàn)沒有顯示“工具箱”窗口，應(yīng)選擇（）菜

單的（）選項(xiàng)，使“工具箱”窗口顯示。

3.要使新建工程時(shí)，在模塊的“通用聲明”段自動(dòng)加入OptionExplicit語

句，應(yīng)對(duì)（）菜單的（）的（）選項(xiàng)卡進(jìn)行相應(yīng)選項(xiàng)的選擇。

4.對(duì)象的屬性是指（）。

5.對(duì)象的方法是指（）。

6.對(duì)于新建立的工程，如果想使窗體上的所有控件都具有相同的字體格式，

可以利用（）的（）屬性統(tǒng)一進(jìn)行設(shè)置。

7.將文本框的ScrollBar屬性設(shè)置為2（有垂直滾動(dòng)條），但沒有滾動(dòng)條顯

示，是由于（）屬性的值設(shè)置為了False的原因。

8.在代碼窗口中對(duì)窗體的BorderStyle、MaxButton屬性進(jìn)行了設(shè)置，運(yùn)行

模式下運(yùn)行該語句后沒有效果，原因是這些屬性（）。

9.當(dāng)對(duì)命令按鈕的Picture屬性裝入.bmp圖形文件后，選項(xiàng)按鈕上并沒有顯

示所需的圖形，原因是沒有將（）屬性設(shè)置為l（Graphical）。

10.某工程包括FormKForm2兩個(gè)窗體，默認(rèn)啟動(dòng)窗體為FormE通過（）

菜單的（）的（）選項(xiàng)卡，可將啟動(dòng)窗體設(shè)置為Form2o在程序

中若要顯示Forml窗體，則執(zhí)行（）語句。

11.在文本框中，通過（）屬性能獲得當(dāng)前插入點(diǎn)所在的位置。

12.按下鍵盤上的按鍵，對(duì)文本框中已有的內(nèi)容進(jìn)行編輯時(shí)，發(fā)現(xiàn)不起作用，

可能的原因是將（）屬性的值設(shè)置為了True。

13.在窗體上已建立多個(gè)控件如Textl、Label1Command1,若要使程序一運(yùn)

行焦點(diǎn)就定位在Commandl控件上，應(yīng)將Command1控件的（）屬性

設(shè)置值為（）。

習(xí)題一參考答案

1.1選擇題

1.A2.C3.B4.C5.A6.B7,A

8.C9.B10.A（說明：VB是面向?qū)ο蟮目梢暬绦蛟O(shè)計(jì)語言，除了

本程序編譯成.exe后，要能到其他計(jì)算機(jī)上運(yùn)行，還需要很多其他文件，

如.dll、.OCX等。因此如果想將程序移植到其它機(jī)器上，要么其它機(jī)器裝有

VB系統(tǒng)；要么將工程打包，制作成安裝盤。）11.D12.C

13.D14.A15.D16.B17.D（說明：這是關(guān)于字符串常量的正確書

寫問題。A錯(cuò)誤在于中文雙引號(hào)；B錯(cuò)誤在于單引號(hào)；C錯(cuò)誤在于無引號(hào)。）

18.B19.B20.A21.B22.D（說明：在KeyPress事件中有一個(gè)參

數(shù)KeyAscII,該參數(shù)的值就是用戶輸入字符的ASCH編碼，通過判斷該值是

否等于13就可以知道用戶是否按下了回車鍵。）

23.A24.D

1.2填空題

1.ADO技術(shù)

2.視圖工具箱

3.工具選項(xiàng)編輯器

4.描述和反映對(duì)象特征的參數(shù)

5.在面向?qū)ο蟮某绦蛟O(shè)計(jì)語言中，為程序設(shè)計(jì)人員提供的一種可以直接調(diào)用

的特殊過程和函數(shù)

6.FormFont

7.MuhiLine

8.在運(yùn)行時(shí)設(shè)計(jì)是無效的

9.Style

10.工程工程屬性通用Forml.Show

11.SelStart

12.Locked

13.Tabindex0

習(xí)題二

2.1選擇題

1.在一個(gè)語句內(nèi)寫多條語句時(shí)，每個(gè)語句之間用()符號(hào)分隔。

(A),(B)：(C)、(D)；

2.一句語句要在下一行繼續(xù)寫，用()符號(hào)作為續(xù)行符。

(A)+(B)-(C)—(D)……

3.下面()是合法的變量名。

(A)X_yz(B)123abc(C)integer(D)X一Y

4.下面()是不合法的整常數(shù)。

(A)100(B)&0100(C)&H100(D)%100

5.下面()是合法的字符常數(shù)。

(A)ABCS(B)"ABC"(C)'ABC'(D)ABC

6.下面()是合法的單精度型變量。

(A)num!(B)sum%(C)xinte$(D)mm#

7.下面()是不合法的單精度常數(shù)。

(A)100!(B)100.0(C)IE十2(D)100.0D+2

8.表達(dá)式16/4—2-5*8/4MOD5\2的值為()。

(A)14(B)4(C)20(D)2

9.數(shù)學(xué)關(guān)系3Wx〈10表示成正確的VB表達(dá)式為()。

(A)3<=x<10(B)3<=xANDx<10

(C)x>=3ORx<10(D)3<=xAND<10

10.\、/、Mod、*四個(gè)算術(shù)運(yùn)算符中，優(yōu)先級(jí)別最低的是()。

(A)\(B)/(C)Mod(D)*

ah

11.與數(shù)學(xué)表達(dá)式3cd對(duì)應(yīng)，VB的不正確表達(dá)式是()。

(A)a*b/(3*c*d)(B)a/3*b/c/d

(C)a*b/3/c/d(D)a*b/3*c*d

12.Rnd函數(shù)不可能為下列()值。

(A)0(B)1(C)0.1234(D)0.0005

13.Int(198.555*100+0.5)/100的值()。

(A)198(B)199.6(C)198.56(D)200

14.已知A$="12345678”,則表達(dá)式Vai(Left$(A$,4)十Mid$(A$,4,

2))的值為()。

(A)123456(B)123445(C)8(D)6

15.PrintDateAdd("m",1,#1/30/2000#)語句顯示的結(jié)果是()。

(A)00-2-29(B)00-2-28(C)00-2-30(D)00-1-31

16.表達(dá)式DateDiff("y",#12/30/1999#,#1/13/2000#)的結(jié)果是()。

(A)1(B)11(C)14(D)99

17.表達(dá)式Len(“123程序設(shè)計(jì)ABC")的值是()。

(A)10(B)14(C)20(D)17

18.表達(dá)式LenB(“123程序設(shè)計(jì)ABC")的值是()。

(A)10(B)14(C)20(D)17

19.下面正確的賦值語句是()。

(A)x+y=30(B)y=n*r*r(C)y=x+30(D)3y=x

20.為了給x,y,z三個(gè)變量賦初值1,下面正確的賦值語句是()。

(A)x=l：y=l：z=l(B)x=Ly=l,z=l

(C)x=y=z=l(D)xyz=l

21.賦值語句：a=123+MID(“123456”,3,2)執(zhí)行后，a變量中的值是()□

(A)“12334”(B)123(C)12334(D)157

22.賦值語句:a=123&MID(“123456”,3,2)執(zhí)行后,a變量中的值是()。

(A)“12334”(B)123(C)12334(D)157

2.2填空題

1.在VB中，1234、123456&.1.2346E+5.1.2346D+5四個(gè)常數(shù)分別表示

()、()、()、

()類型。

2.整型變量x中存放了一個(gè)兩位數(shù)，要將兩位數(shù)交換位置，例如，13變成31,

實(shí)現(xiàn)的表達(dá)式是()O

\x+e,3

「-ln(3x)

3.數(shù)學(xué)表達(dá)式sinl5°+…的VB算術(shù)表達(dá)式為

()O

a+b

4.數(shù)學(xué)表達(dá)式c+52的VB算術(shù)表達(dá)式為()。

5.表示x是5的倍數(shù)或是9的倍數(shù)的邏輯表達(dá)式為()。

6.已知a=3.5,b=5.0,c=2.5,d=True,貝4表達(dá)式：a>=0ANDa+c>b+3ORNOT

d的值是()。

7.Int(-3.5),Int(3.5)、Fix(-3.5)、Fix(3.5)>Round(-3.5),Round(3.5)

的值分別是()、()、()、

()、()、()o

8.表達(dá)式Ucase(Mid("abcdefgh”,3,4))的值是()。

9.在直角坐標(biāo)系中，(x,y)是坐標(biāo)系中任意點(diǎn)的位置，用x與y表示在第一

或第三象限的表達(dá)式是()o

10.要以xxxx年xx月xx日形式顯示當(dāng)前機(jī)器內(nèi)日期的Format函數(shù)表

達(dá)式為()。

11.計(jì)算已進(jìn)入21世紀(jì)有多少天的函數(shù)表達(dá)式是()o

12.計(jì)算離你畢業(yè)(假定畢業(yè)年月為2004年7月3日)還有多少個(gè)星期的函數(shù)

表達(dá)式是()o

13.表示s字符變量是字母字符(大小寫字母不區(qū)分)的邏輯表達(dá)式為

()。

2.3編程題

1.利用InputBox輸入三角形三條邊的長(zhǎng)度a,b,c,計(jì)算并顯示三角形的面積。公式為：

面積=1s(s-a)(s—b)(s?-c),其中s=(a+b+c)/2

2.用InputBox輸入一個(gè)正實(shí)數(shù)，用Print方法在一行上顯示出它的平方和平方根、立方

和立方根，每個(gè)數(shù)保留三位小數(shù)，之間有間隔。

習(xí)題二參考答案

2.1選擇題

1.B2.C3.A4.D5.B6.A7.D8.B9.B

10.C11.D12.B13.C14.B15.A該函數(shù)表示在當(dāng)前日期按

“m”月格式加一個(gè)月，本應(yīng)該C,但這是不合法的日期。

16.C17.A18.C19.C20.A21.D22.A

2.2填空題

L整型、長(zhǎng)整型、單精度型、雙精度型

2.(xmod10)*10+x\10

3.sin(15*3.14/180)+sqr(x+exp(3))/abs(x-y)-log(3*x)

4.(a+b)/(1/(c+5)-c*d/2)5.xmod5=0orxmod9=0

6.False

7.-4,3,-3,3,-4,4

8.CDEF

9.x>0AndY>0orx<0AndY<0

10.Format(Date,vYYYY年mm月dd日”)

11.DateDiff("d”，#1/1/2001#,Now)+1

12.DateDiff(“ww”，Now,#7/3/2004#)

13.UCase(s)>=”A"AndUCase(s)<="Z"

2.3編程題

1)PrivateSubCommandl_Click()

Dima&,b&,c&,s#

a=InputBox("請(qǐng)輸入三角形a邊的長(zhǎng)度”)

b=InputB。x(''請(qǐng)輸入三角形b邊的長(zhǎng)度”)

c=InputBox("請(qǐng)輸入三角形c邊的長(zhǎng)度”)

s=(a+b+c)/2

Textl=Sqr(s*(s-a)*(s-b)*(s-c))

EndSub

2)PrivateSubCommand1_Click()

Dima#

a=InputBox("請(qǐng)輸入一個(gè)正實(shí)數(shù)”)

Printa~2,Sqr(a),a*3,a(1/3)

EndSub

習(xí)題三

3.1選擇題

1.VB也提供了結(jié)構(gòu)化程序設(shè)計(jì)的三種基本結(jié)構(gòu)，三種基本結(jié)構(gòu)是（）。

（A）遞歸結(jié)構(gòu)、選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)

（B）選擇結(jié)構(gòu)、過程結(jié)構(gòu)、順序結(jié)構(gòu)

（C）過程結(jié)構(gòu)、輸入、輸出結(jié)構(gòu)、轉(zhuǎn)向結(jié)構(gòu)

（D）選擇結(jié)構(gòu)、循環(huán)結(jié)構(gòu)、順序結(jié)構(gòu)

2.結(jié)構(gòu)化程序由三種基本結(jié)構(gòu)組成，下面屬于三種基本結(jié)構(gòu)之一的是（）o

（A）遞歸結(jié)構(gòu)（B）選擇結(jié)構(gòu)

（C）過程結(jié)構(gòu)（D）輸入、輸出結(jié)構(gòu)

3.下面程序段運(yùn)行后，顯示的結(jié)果是（）。

Dimx%

IfxThenPrintxElsePrintx+1

（A）1（B）0（C）-1（D）顯示出錯(cuò)信息

4.語句Ifx=lTheny=l,下列說法正確的是（）。

（A）x=l和y=l均為賦值語句

（B）x=l和y=l均為關(guān)系表達(dá)式

（C）x=l為關(guān)系表達(dá)式，y=l為賦值語句

（D）x=l為賦值語句，y=l為關(guān)系表達(dá)式

5.用If語句表示分段函數(shù)/（制/必1'","'下列不正確的程序段是

x2+3,x<1

()o

(A)f=x*x+3(B)Ifx>=lThenf=sqr(x+1)

Ifx>=lThenf=sqr(x+1)Ifx<lThenf=x*x+3

(C)Ifx>=lThenf=sqr(x+1)(D)Ifx<lThenf=x*x+3_

Elsef=x*x+3Elsef=sqr(x+1)

6.計(jì)算分段函數(shù)值。

0,x<0

1,0<x<1

y=<

2,l<x<2

3,x>2

下面程序段中正確的是()o

(A)Ifx<0Theny=0(B)Ifx>=2Theny=3

Ifx<lTheny=lIfx>=lTheny=2

Ifx<2Theny=2Ifx>0Theny=l

Ifx>=2Theny=3Ifx<0Theny=0

(C)Ifx<0Then(D)Ifx>=2Then

y=0y=3

Elselfx>0ThenElselfx>=lThen

y=ly=2

Elselfx>lThenElselfx>=0Then

y=2y=i

ElseElse

y=3y=0

EndIfEndIf

7.下面程序段，顯示的結(jié)果是()o

Dimx

x=Int(Rnd)十5

SelectCasex

Case5

Print"優(yōu)秀”

Case4

Print“良好”

Case3

Print“通過”

CaseElse

Print“不通過”

EndSelect

(A)優(yōu)秀(B)良好(C)通過(D)不通過

8.下面程序段求兩個(gè)數(shù)中的大數(shù),()不正確。

(A)Max=IIf(x>y,x,y)(B)Ifx>yThenMax=xElseMax=y

(C)Max=x(D)Ify>=xThenMax=y

Ify>=xThenMax=yMax=x

9.下面語句執(zhí)行后，變量W中的值是()。

w=Choose(Weekday(〃2000,5,1〃)，〃Red〃，“Green","Blue","Yellow")

(A)Null(B)“Red”(C)“Green”(D)“Yellow”

3.2填空題

1.下面程序運(yùn)行后輸出的結(jié)果是()。

x=Int(Rnd)+3

Ifx「2>8Theny=x^2+l

Ifx2=9Theny=x*2-2

Ifx_2<8Theny=x^3

Printy

2.下面程序的功能是()o

Dimn%,m%

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

IfKeyAscii=13Then

IfIsNumeric(Textl.Text)Then

SelectCaseTextl.TextMod2

Case0

n=n+Textl.Text

Case1

m=m+Textl.Text

EndSelect

EndIf

Textl.Text二〃〃

Textl.SetFocus

EndIf

EndSub

3.下面的程序段是檢查輸入的算術(shù)表達(dá)式中圓括號(hào)是否配對(duì)，并顯示相應(yīng)的

結(jié)果。本程序在文本框輸入表達(dá)式，邊輸入，邊統(tǒng)計(jì)，以輸入回車符作為

表達(dá)式輸入結(jié)束，然后顯示結(jié)果。

Dimcount1%

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

If(>“("Then

countl=countl+l

Elself()=")"Then

()

EndIf

IfKeyAscii=13Then

If()Then

Print”左右括號(hào)配對(duì)“

ElseIf()Then

Print”左括號(hào)多于右括號(hào)“；count1；"個(gè)"

Else

Print〃右括號(hào)多于左括號(hào)"；-countl；"個(gè)"

EndIf

EndIf

EndSub

4.輸入文本框中若干字符，統(tǒng)計(jì)有多少個(gè)元音字母、有多少個(gè)其他字母，直

到按Enter鍵結(jié)束，并顯示結(jié)果，大小寫不區(qū)分。其中CountY中放元音

字母?jìng)€(gè)數(shù)，CountC中放其他字符數(shù)。

DimCountY%,CountC%

PrivateSubTextl_KeyPress(KeyAsciiAsInteger)

DimC$

c=()

If"A"<=CAndC<="Z"Then

SelectCase()

Case()

CountY=CountY+l

Case()

CountC=CountC+l

EndSelect

EndIf

If()Then

Print"元音字母有"；CountY；"個(gè)"

Print”其他字母有"；CountC；"個(gè)"

EndIf

EndSub

3.3編程題

1.輸入三角形的三條邊a,b,c的值，根據(jù)其數(shù)值，判斷能否構(gòu)成三角形。

若能，還要顯示三角形的性質(zhì)：等邊三角形、等腰三角形、直角三角形、

任意三角形。

2.輸箕一年份，判斷它是否為閏年，并顯示有關(guān)信息。判斷閏年的條件是:

年份能被4整除但不能被100整除，或者能被400整除。

習(xí)題三參考答案

3.1選擇題

1.D2.B

3.Ax沒有賦值，默認(rèn)為0。而在VB中，0作為邏輯常量False,非0作為

True。

4.C5.A6.D7.A8.D9.C

3.2填空題

(1)7

⑵分別統(tǒng)計(jì)輸入若干數(shù)的奇數(shù)和、偶數(shù)和，存放在m、n中

(3)Chr(KeyAscii)

(4)Chr(KeyAscii)

(5)countl=countl-l若遇右括號(hào)，括號(hào)數(shù)減1。

(6)countl=0括號(hào)配對(duì)。

(7)countl>0左括號(hào)多于右括號(hào)，多于的個(gè)數(shù)是countl的值。

(8)UCase(Chr(KeyAscii))大小寫不區(qū)分。

(9)C

(10)"A"，"E”，”I“，"0”，“U”

(H)Else其他字符。

(12)KeyAscii=13

3.3編程題

1)PrivateSubCommandl_Click()

Dima#,b#,c#

DimflagAsBoolean

a=Vai(Textl)

b=Vai(Text2)

c=Vai(Text3)

Ifa+b>canda+c>bandb+c>athen

print”構(gòu)成三角形，是：”；

Ifa=bandb=cThen

Print〃等邊三角形〃

Elselfa=b0ra=c0rc=bThen

Print〃等腰三角形〃

Elselfa2+b2=c2Ora2+c2=b2Orc2+b2=a2Then

Print〃直角三角形〃

Else

Print〃任意三角形〃

EndIf

Else

print“不構(gòu)成三角形”

EndIf

EndSub

2)

PrivateSubCommand2_Click0

Dima%

a=Textl

If(aMod4=0AndaMod100<>0)OraMod400=0Then

Printa;〃年是閏年〃

Else

Printa;〃年不是閏年〃

EndIf

EndSub

習(xí)題四

4.1選擇題

1.以下()是正確的For…Next結(jié)構(gòu)。

(A)Forx=lToStep10(B)Forx=3To-3Step-3

NextxNextx

(C)Forx=lTo10(D)Forx=3To10Step3

re：...

NextXNexty

Ifi=10ThenGoTore

2.下列循環(huán)能正常結(jié)束循環(huán)的是()o

(A)i=5(B)i=l

DoDo

i=i+li=i+2

LoopUntili<0LoopUntili=10

(C)i=10(D)i=6

DoDo

i=i-li=i-2

LoopUntili<0LoopUntili=l

3.下面程序段的運(yùn)行結(jié)果為)o

Fori=3To1Step-1

PrintSpc(5-i)；

Forj=lTo2*i-l

Print〃*〃；

Nextj

Print

Nexti

(A)*(B)*****(C)*****(D)

******

***

4.當(dāng)在文本框輸入“ABCD”四個(gè)字符時(shí)，窗體上顯示的是()。

PrivateSubTextl_Change()

PrintTextl.Text；

EndSub

(A)ABCD(B)A(C)AABABCABCD(D)A

BAB

CABC

DABCD

5.哪個(gè)程序段不能分別正確顯示1!、2!、3!、4!的值（)o

(A)Fori=lTo4(B)Fori=lTo4

n=lForj=lToi

Forj=lToin=l

n=n*jn=n*j

NextjNextj

PrintnPrintn

NextiNexti

(C)n=l(D)n=l:j=l

Forj=lTo4DoWhilej<=4

n=n*jn=n*j

PrintnPrintn

Nextjj=j+l

Loop

4.2填空題

1.要使下列For語句循環(huán)執(zhí)行20次，循環(huán)變量的初值應(yīng)當(dāng)是：

Fork=()To-5Step-2

2.下面程序段顯示()個(gè)“*”。

Fori=lTo5

Forj=2Toi

Print〃*〃；

Nextj

Nexti

3.下列第40句共執(zhí)行了()次，第41句共執(zhí)行了(）次。

30Forj=lTo12Step3

40Fork=6To2Step-2

41Printj,k

42Nextk

43Nextj

4.以下程序運(yùn)行后，si、sj、sk、i、j、k的結(jié)果分別是()、

()、()、()、()、()o

PrivateSubCommand1_Click()

si=0：sj=O

Fori=lTo2

Forj=lToi

sk=0

Fork=jTo3

sk=sk+l

Nextk

sj=sj+l

Nextj

si=si+1

Nexti

Printsi,sj,sk,i,j,k

EndSub

5.下面程序運(yùn)行后輸出的結(jié)果是()o

PrivateSubCommandlClickO

Fori=0To3

PrintTab(5*i+D;〃2〃+i；〃2〃&i；

Nexti

EndSub

6.下面程序運(yùn)行后輸出的結(jié)果是()o

PrivateSubCommandl_Click()

a$二〃*〃：B$二〃$〃

Fori=lTo4

IfiMod2=0Then

x$=String(Len(a$)+i,B$)

Else

X$=String(Len(a$)+i,a$)

EndIf

Printx$；

Nexti

EndSub

7.輸入任意長(zhǎng)度的字符串，要求將字符順序倒置，例如，將輸入的“ABCDEFG"

變換咸GFEDCBA”。

PrivateSubCommand1ClickO

Dima$,1%,cc$,d$

a二InputBox$("輸入字符串”)

n二()

Fori=lTo()

c=Mid(a,i,1)

Mid(a,i,1)=()

()=c

Nexti

Printa

EndSub

8.找出被3、5、7除，余數(shù)為1的最小的5個(gè)正整數(shù)。

PrivateSubCommand1Click()

DimCountN%,n%

CountN=0

n=l

Do

n=n+l

if()Then

Printn

CountN=CountN+l

EndIf

Loop()

EndSub

9.某次大獎(jiǎng)賽，有七個(gè)評(píng)委打分，如下程序?qū)σ幻麉①愓?，輸入七個(gè)評(píng)委的

打分分?jǐn)?shù)，去掉一個(gè)最高分、一個(gè)最低分后，求出平均分為該參賽者的得

分。

PrivateSubCommandl_Click()

Dimmark!,aver!,i%,maxi!,mini!

aver=0

Fori=lTo7

mark=InputBox(〃輸入第〃&i&〃位評(píng)委的打分〃)

Ifi=lThen

maxl=mark：()

Else

Ifmark<miniThen

()

ElseIfmark>maxlThen

()

EndIf

EndIf

()

Nexti

aver=()

Printaver

EndSub

4.3編程題

1.有一個(gè)長(zhǎng)階梯，如果每步跨2階最后剩1階，如果每步跨3階最后剩2階,

如果每步跨4階最后剩3階，如果每步跨5階最后剩4階，如果每步跨6

階最后剩5階,只有當(dāng)如果每步跨7階時(shí)恰好走完，問這個(gè)階梯有多少階？

［提示］

利用其肯定是7的倍數(shù)這個(gè)條件，然后根據(jù)同時(shí)滿足除n余m(n=2,3,4,

5,6；m=l,2,3,4,5)的邏輯關(guān)系即可。

習(xí)題四參考答案

4.1選擇題

1.B2.C3.B4.C5.B

4.2填空題

1、33根據(jù)循環(huán)次數(shù)計(jì)算公式得。

2、10該題相當(dāng)于統(tǒng)計(jì)兩重循環(huán)執(zhí)行了多少次。

3、4相當(dāng)于統(tǒng)計(jì)外循環(huán)體執(zhí)行多少次。

12相當(dāng)于統(tǒng)計(jì)兩重循環(huán)體執(zhí)行多少次。

4、232334

5、220321422523

6、**$$$****$$$$$

7、Len(a)解該題的思路是將字符串從兩頭往中間對(duì)應(yīng)交換位置

int(n/2)或n\2

Mid(a,n-i+1,1)

Mid(a,n-i+1,1)

8、nMod3=1AndnMod5=1AndnMod7=1

UntilCountN=5或WhileCountN<5

9、minl=mark對(duì)最低分初始化。

minl=mark

maxl=mark

aver=aver+mark

(aver-maxl-minl)/5

4.3編程題

1、PrivateSubCommandl_Click()

Fori=7To1000Step7

k=0

Form=1To5

n=m+1

IfiModn<>mThen

ExitFor

Else

k=k+1

EndIf

Nextm

Ifk=5Then

Printi

ExitFor

EndIf

Nexti

EndSub

習(xí)題五

5.1選擇題

1.如下數(shù)組聲明語句，()正確。

(A)Dima[3,4]AsInteger(B)Dima(3,4)AsInteger

(C)Dima(n,n)AsInteger(D)Dima(34)AsInteger

2.要分配存放如下方陣的數(shù)據(jù)，可使用數(shù)組聲明語句()來實(shí)現(xiàn)(不能

浪費(fèi)空間)。

-1.12.23.3-

4.45.56.6

7.78.89.9

(A)Dima(9)AsSingle

(B)Dima(3,3)AsSingle

(C)Dima(-1To1,-5To-3)AsSingle

(D)Dima(-3ToT,5TO7)AsInteger

3.如下數(shù)組聲明語句，數(shù)組a包含元素的個(gè)數(shù)為()O

Dima(3,~2to2,5)

(A)120(B)75(C)60(D)13

4.以下程序輸出的結(jié)果是()。

Dima

a=Array(1,2,3,4,5,6,7)

Fori=Lbound(a)ToUbound(a)

a(i)=a(i)*a(i)

Nexti

Printa(i)

(A)49(B)0(C)不確定(D)程序出錯(cuò)

5.以下程序輸出的結(jié)果是()。

OptionBase1

PrivateSubCommand1_Click()

Dima%(3,3)

Fori=lTo3

Forj=lTo3

Ifi>lAndj>lThen

a(i,j)=a(a(i-l,j-1)，a(i,j-1))+1

Else

a(i,j)=i*j

EndIf

Printa(i,j)；

Nextj

Print

Nexti

EndSub

(A)123(B)123(0123(D)111

231123246222

323123369333

6.以下程序輸出的結(jié)果是()0

OptionBase1

PrivateSubCommand1_Click()

Dima,B(3,3)

a=Array(1,2,3,4,5,6,7,8,9)

Fori=1To3

Forj=1To3

B(i,j)=a(i*j)

If(j>=i)ThenPrintTab(j*3);Format(B(i,j),"###");

Nextj

Print

Nexti

EndSub

(A)123(B)1(C)147(D)123

4564524646

7897893699

5.2填空題

1.隨機(jī)產(chǎn)生6位學(xué)生的分?jǐn)?shù)(分?jǐn)?shù)范圍1-100),存放在數(shù)組a中，以每2分

一個(gè)“*”顯示，如圖5.5所示。

PrivateSubCommandl_Click()

Dima(1To6)

Fori=lTo6

a⑴=()

Print()

Nexti

EndSub

5.5隨機(jī)分?jǐn)?shù)運(yùn)行界面

2.輸出大小可變的正方形圖案，如圖

5.6所示，最外圈是第一層，要求每層上用的數(shù)字與層數(shù)相同。

OptionBase1

PrivateSubForm_Click()

Dima()

n二InputBox(“輸入N")'本例n=9

()

Fori=()'每一層圖案上要顯示的數(shù)字

Forj=iTon-i+1'從外到里將數(shù)組中元素存放對(duì)應(yīng)的數(shù)字

Fork=iTon-i+1

()

Nextk

Nextj

Nexti

Fori=lTon

For