廣藥VisualBasic練習(xí)五

1、練習(xí)5一、單選題(30分，每小題1分)1、()字節(jié)稱為一個(gè)MB。(A) 1024(B) 1000K(C)1024*1024(D)10000K2、計(jì)算機(jī)硬件系統(tǒng)的五大部件是()o(A) CPU、內(nèi)存儲(chǔ)器、輸入設(shè)備、輸出設(shè)備、外存儲(chǔ)器(B) 運(yùn)算器、控制器、存儲(chǔ)器、輸出設(shè)備、輸入設(shè)備(C) CPU、總線、存儲(chǔ)器、外設(shè)、主板(D) 主機(jī)箱、顯示器、音箱、鼠標(biāo)、鍵盤3、常用的輸入設(shè)備有()o(A) 鍵盤、鼠標(biāo)、掃描儀(B)顯示器、鍵盤、鼠標(biāo)(C) 打印機(jī)、掃描儀、鍵盤 (D)觸摸屏、打印機(jī)、鼠標(biāo)4、計(jì)算機(jī)網(wǎng)絡(luò)的主要作用是()。(A) 數(shù)據(jù)處理(B)信息傳輸與數(shù)據(jù)處理(C)文獻(xiàn)查詢(D)資源共享與信息傳

2、輸5、二進(jìn)制數(shù)1010等于十六進(jìn)制數(shù)()。(A) 10(B) 11 (C)A(D)B6、在VB中要強(qiáng)制顯式聲明變量，可在窗體模塊或標(biāo)準(zhǔn)模塊的聲明段中加入語(yǔ)句()。(A) Option Base 0(B) Option Explicit (C) Option Base 1(D) Option Compare7、下列程序段的執(zhí)行結(jié)果為()。J1 = 10J2 = 30If J1 10 And Is 10(D) Case 3,5,Is 1024、關(guān)于文件操作控件，下列敘述不正確的是()o(A) 驅(qū)動(dòng)器列表框(DriveListBox)能顯示系統(tǒng)中所有有效磁盤驅(qū)動(dòng)器(B) 從驅(qū)動(dòng)器列表框中選擇驅(qū)動(dòng)器能

3、變更系統(tǒng)當(dāng)前的工作驅(qū)動(dòng)器(C) 使用通用對(duì)話框(CommonDialog)中的“打開文件”對(duì)話框選擇文件名，無(wú)需編 程即可自動(dòng)地打開所選文件(D) 通過(guò)編寫適當(dāng)?shù)某绦虼a可以使文件列表框(FileListBox)中顯示當(dāng)前LI錄列 表框(DirLIstBox)中選中的文件列表25、從磁盤上讀入一個(gè)名為“c:filel.txt”的順序文件，下面程序段正確的是()。(A) Open c:filel.txt” For Output As # 2(B) Open c:filel.txt For Input As # 1(C) F=Hc:filel.txfOpen HFH For Input As #

4、2Open F For Input As # 126、改變下列()屬性可設(shè)置控件的位置，。(A) Height 與 Width (B) Height 與 Top (C) Left 與 Top (D) Left 與 Width27、在Visual Basic中，()關(guān)鍵字用于注釋語(yǔ)句。(A) Rem(B) End(C) Else(D) Loop28、X是一個(gè)數(shù)值型變量,表達(dá)式Int (X/2) =X/2的作用是(A)用于測(cè)試X是否偶數(shù)(C) 返回一個(gè)奇數(shù)(B)返回一個(gè)整數(shù)(D) 用于測(cè)試X是否整數(shù)29、執(zhí)行了下面程序后，組合框中顯示的數(shù)據(jù)項(xiàng)是()oPrivate Sub Form_Load()F

5、or i=l to 6Combo 1.Additem iNext iFor i= 1 to 3Combo 1 .Removeltem iNext iEnd Sub(A) 1 56(B)l 3 5(C)4 5 6(D)2 4 630、打開順序文件語(yǔ)句中，關(guān)鍵字Append表示把新數(shù)據(jù)添加到()。(A)文件首 (B)文件尾 (C)文件中間 (D)隨機(jī)位置二. 填空(5()分，每空2分)1、設(shè)有如下程序段：a$=HShanghaiBeijingM： b$=Mid(a$JnStr(aS,Hin)+l)執(zhí)行上面的程序段后，變量b$的值為 1 Beijing_。2、設(shè)a=4,執(zhí)行x二IIf(a6,-2,0

6、)后，x的值為【2】0_。3、窗體上有一個(gè)名為L(zhǎng)istl的列表框，一個(gè)名稱為Textl的文本框，一個(gè)名稱為L(zhǎng)abel 1 Caption屬性為 Sum”的標(biāo)簽，一個(gè)名稱為Command 1 標(biāo)題為計(jì)算 的命令按鈕。程序運(yùn)行后，將把1100之間能夠被7整除的數(shù)添加到列表框中。如果 單擊“計(jì)算”按鈕，則對(duì)Listl中的數(shù)進(jìn)行累加求和，并在文本框中顯示計(jì)算結(jié)果，如圖 所示。以下是實(shí)現(xiàn)上述功能的程序，請(qǐng)?zhí)羁铡rivate Sub Form_Load()For i=l To 100If i Mod 7 =0 Then【3】listl.additem iEnd IfNext iEnd SubPrivat

7、e Sub Command l_Click()Sum = 0For i = 1 To 【4】listl Jistcoim卜 1Sum = Sum +【5】iNext i【6】text 1 .text二sumEnd Sub4、用Array函數(shù)建立一個(gè)含有8個(gè)元素的數(shù)組，然后查找并輸出該數(shù)組中元素的最大值。 請(qǐng)?zhí)羁眨篛ption Base 1Private Sub Command l_CIick()Dim arrl%, Max%arrl = Array( 12, 435, 76, 24, 78, 54, 866, 43)【7】max = arrl(l)For i = 1 To 8If arrl(i

8、) Max Then 【8】rrmx二air(i)【9】next iPrint ”最大值是：”；MaxEnd Sub5、設(shè)在窗體上有一個(gè)文本框Textl, 一個(gè)標(biāo)簽數(shù)組Label 1,共有10個(gè)標(biāo)簽，以下程序代 碼實(shí)現(xiàn)在單擊任一個(gè)標(biāo)簽時(shí)將標(biāo)簽的內(nèi)容添加到文本框現(xiàn)有內(nèi)容之后。Private Sub Labell_Click(Index As Integer)Text 1 .Text= label l(index).caption 10End Sub6、下列程序的功能是：當(dāng)xv47時(shí)，y=10x；當(dāng)47WxW100時(shí)，y=0.7x：當(dāng)x100時(shí), 沒有意義。請(qǐng)?zhí)羁?。Private Sub Comm

9、and l_CIick()Dim x As Singlex=InputBox(請(qǐng)輸入 x 的值! ”)【11】 select case xCase Is a(j+ 1) Thent 二 a(j)【17】 a(i)=a(i+l)a(j+l)nEnd IfNext jNext iFor i二【18】1 to 10Print a(i);Next iEnd Sub11、下列程序運(yùn)行時(shí)，當(dāng)單擊窗體后，從鍵盤分別在文本框Textl. Text2輸入整數(shù)m、 m求解m、n的最大公約數(shù)，并將結(jié)果顯示在窗體上。請(qǐng)將程序補(bǔ)充完整Private Sub Form_click()in =【19】 val(textl.

10、text)n = Val(Text2.text)Print m ;和”；n;的最大公約數(shù)是：”；【20】 gys(n.m)End SubPrivate Function gys(n, m)p = n Mod mIf p=0 Then【21】 gys=pElse【22】 ys=ys(m、p)End IfEnd Function12、在窗體模塊中編寫以下Sub過(guò)程和窗體Click事件過(guò)程：Private Sub suba(x As Integery As Integer)Dim t As Integert =x: x=y : y=tEnd SubPrivate Sub Form_Click()Di

11、m a As Integenb As Integera =10: b =20Call suba(a,b)Print a :b;Call suba(b.a)Print a ;bEnd Sub當(dāng)程序運(yùn)行時(shí)，在窗體中單擊鼠標(biāo)左鍵，則程序的輸出結(jié)果是【23】20 10 10 20。13、以下程序的功能是：把當(dāng)前目錄下的順序文件smtextl.txt的內(nèi)容讀入內(nèi)存，并在文 本框Textl中顯示出來(lái)。請(qǐng)?zhí)羁?。Private Sub Command l_Click()Dim Data As StringTextl.Text = ,HOpen H.smtextl.txtH 24 input As #1Do While【25 】not eof( 1)Data = Input(l, #1)Text 1 .Text = Text 1 .Text & DataLoopClose #1End Sub三、編程題(20分，每小題10分)1、編寫程序，分別統(tǒng)計(jì)出文本框Textl中輸入的字符串中所包含的字母、數(shù)字和其它字 符的個(gè)數(shù)，并將結(jié)果顯示在窗體上。Private Sub Command l_Click()Dim i%, a%, b%, c%, d$For