大學(xué)VisualBasic程序設(shè)計(jì)教程試題及答案

1、學(xué)習(xí)必備歡迎下載1.下列 (A)是 VB的合法常量。A. 100.0B. %100C.D.T2.下列符號(hào)中， (C)是 VB的合法變量名。A. 123_aB. a 123C. XYZD.sin(x)3.表示關(guān)系表達(dá)式10 x<20 的 VB表達(dá)式是 (B )。A. 10 x<20B. 10<=x and x<20C. 10<=x or x<20D. 10x and x<204.算術(shù)表達(dá)式 |x+y|+z5的 VB表達(dá)式是 ( B)。A. |x+y|+z5B. abs(x+y)+z55C. abs(x+y)+pow(z,5)D. abs(x+y)+z5.

2、下列賦值語(yǔ)句中，錯(cuò)誤的是 ( A)。A. 10x=sin(x)+yB. c=c*yC. x=sin(x)/(20 mod 2+1)D.c=3+sqr(3)6.語(yǔ)句 If x = 1 Then y = 1,下面說(shuō)法正確的是 (D )。A. x = 1和 y = 1均為賦值語(yǔ)句B. x = 1和 y = 1均為關(guān)系表達(dá)式C. x = 1為賦值語(yǔ)句， y = 1為關(guān)系表達(dá)式D. x = 1 為關(guān)系表達(dá)式， y = 1為賦值語(yǔ)句7. 下列數(shù)組聲明語(yǔ)句中， (B)正確。A. Dim a2,4 As IntegerB. Dim a(2,4) As IntegerC. Dim a(n,n) As Integ

3、erD. Dim a(2 4) As Integer8. 設(shè) a%=20,b$=" 30" ,則下列輸出結(jié)果是 " 2030" 的語(yǔ)句是 (D )。A. Print str(A ）B. Print " a" +bC. Print a+bD. Print a & b9. 在一行內(nèi)寫(xiě)多條語(yǔ)句時(shí)，每個(gè)語(yǔ)句之間用( B)來(lái)分隔。A. , B.:C.、D. ;10. InputBox函數(shù)返回值的類(lèi)型為 (B)。A. 數(shù)值B. 字符串C. 變體D. 數(shù)值或字符串（視輸入的數(shù)據(jù)而定）二、填空題（每小題2 分，共 10 分）1.表達(dá)式 123

4、+23 mod 107+asc(" A") 的值是 _188_。2. 表達(dá)式 len(" VB 程序設(shè)計(jì) ")的值是 _6_。3. 設(shè)文本框的初始值為空，單擊窗體并在文本框輸入 “ABCD”時(shí)，窗體上顯示 _ABCD 。Private Sub Form_Click()Print Text1.Text；End Sub4. 下面數(shù)組聲明語(yǔ)句中，數(shù)組包含元素個(gè)數(shù)為 _30_。 Dim a(-2 to 2,5)5. 以下程序循環(huán)的執(zhí)行次數(shù)是 _6_。a=0Do While a<=10a=a+2Loop學(xué)習(xí)必備歡迎下載三、程序閱讀題（每小題6 分，共 18

5、分）1下面的程序段，顯示的結(jié)果：優(yōu)秀Dim xx= Int(RnD ） + 5Select Case xCase 5Print "優(yōu)秀 "Case 4Print "良好 "Case 3Print "及格 "Case ElsePrint "不及格 "End Select2在窗體上建立一個(gè)名稱(chēng)為Command1的命令按鈕，然后編寫(xiě)如下事件過(guò)程：Private Sub Command1_Click()For n=1 To 20If n Mod 3<>0 then m=m+n3Next nprint nEnd

6、sub程序運(yùn)行后，如果單擊命令按鈕，則窗體上顯示的內(nèi)容：213編寫(xiě)如下事件過(guò)程：Private Sub Form_Click()Dim aa = Array(1, 2, 3, 4, 5, 6, 7)For i = LBound(a) To UBound(a)a(i) = a(i) * a(i)Print a(i); " "Next iEnd Sub程序運(yùn)行后，如果單擊窗體，則窗體上顯示的內(nèi)容：程序錯(cuò)誤四、程序設(shè)計(jì)題（共62 分）根據(jù)圖示運(yùn)行效果，寫(xiě)出每一題的操作步驟。學(xué)習(xí)必備歡迎下載1.(12 分) 在屏幕顯示下圖運(yùn)行效果。要求屏幕上顯示“歡迎你到肇慶” 。并在“請(qǐng)輸入你對(duì)

7、肇慶的印象： ”標(biāo)簽后的文本框 text1 中輸入印象；單擊“你對(duì)肇慶的印象是”按鈕，在 Label3 標(biāo)簽顯示文本框 Text1 中的內(nèi)容。操作步驟：（1）在窗體中建立3 個(gè)標(biāo)簽 Label1 、Label2 、 Label3 ，Label1.Caption=“歡 迎 你 到 肇 慶 ” ,Label2.Caption=“ 請(qǐng) 輸入 你 對(duì) 肇 慶 的 印 象 ：” ,Label3.Caption= “ ”；-6分（2）在窗體中建立 1 個(gè)文本框 text1 ， text1.text=“ ”； -8分（3）在窗體中建立1 個(gè)命令按鈕Command1，Command1. Caption=“ 你

8、對(duì)肇慶的印象是”；-10分（4）在命令按鈕 Command1中，用觸發(fā) Click設(shè)計(jì)代碼：Private Sub Command1_Click()Label3 = Text1End Sub-12分2.(23分)編一求兩數(shù)m、n最大公約數(shù)的函數(shù)過(guò)程f(m,n)；主調(diào)程序在兩個(gè)文本框接收輸入數(shù)據(jù)，在圖形框顯示結(jié)果。操作步驟：（1）在窗體中建立 3 個(gè)標(biāo)簽 Label1 、Label2 、Label3 ， Label1.Caption=“輸 入m ” ,Label2.Caption=“n”, Label3.Caption=“mn最在公約數(shù)”；-3分（2）在窗體中建立 2 個(gè)文本框 text1 、t

9、ext1 ，text1.text=“ ”，text2.text=“ ”；-5分（3）在窗體中建立 1 個(gè)命令按鈕 Command1，Command1Caption=. “ 顯示”；-6分（4）在窗體中建立 1 個(gè)圖形框 picture1 ；-7分（5）在命令按鈕 Command1中，用觸發(fā) Click設(shè)計(jì)代碼：Private Sub Command1_Click()Dim mm%, nn%mm = Val(Text1)nn = Val(Text2)Picture1.Print mm; Tab(6); nn; Tab(12); f(mm, nn)End Sub-13分（6）設(shè)計(jì)求兩數(shù) m、n 最

10、大公約數(shù)的函數(shù)過(guò)程f(m,n)Function f%(ByVal m%, ByVal n%)If m < n Then t = m: m = n: n = tr = m Mod nDo While (r <> 0)m = n: n = r: r = m Mod nLoopf = n學(xué)習(xí)必備歡迎下載End Function-23分3.(27 分) 設(shè)計(jì)一個(gè)如下圖所示的應(yīng)用程序。當(dāng)用戶單擊“ OK”按鈕后，在右邊的列表框中顯示所選擇的信息。操作步驟：（1）在窗體中，設(shè)計(jì)一個(gè)命令按鈕command1，command1.caption= “OK ” ;（ 2）在窗體中，設(shè)計(jì)一個(gè)列表框

11、list1 ；（ 3）在窗體中， 設(shè)計(jì)一個(gè)組合框 combo1；。 -3分（ 4 ） 在 窗 體 中 ， 設(shè) 計(jì) 一 個(gè) 框 架fram1 ，fram1.caption= “ CPU”，框架中有3 個(gè)單選按鈕option1 、 option2 、 option3 ， 且option1.caption=“ PentimIII ”， option2.caption=“ PentimII ”，option3.caption=“Celern”。-5分（5）在窗體中，設(shè)計(jì)一個(gè)框架 fram2 ，fram2.caption=“其它設(shè)備” 框架中有 3 個(gè)復(fù)選框 check1、check2、check3，且

12、 check1.caption= “聲卡” , check2.caption= “ Modem ”，check3.caption=“適配器“。 -7分（6）在窗體form 中，用觸發(fā)load 事件設(shè)計(jì)代碼 ,對(duì)組合框添加項(xiàng)目。Sub Form_Load()Combo1.AddItem " 聯(lián)想 "： Combo1.AddItem " 方正 "Combo1.AddItem "IBM"： Combo1.AddItem "Compao" ：Combo1.AddItem " 兼容機(jī) "End Sub（7）在“ OK ”命令按鈕中，用觸發(fā)Private Sub Command1_Click()List1.ClearList1.AddItem Combo1.TextIf Option1 ThenList1.AddItem "Pentim III"End IfIf Option2 ThenList1.AddItem "Pentim II"End IfIf Option3 ThenList1.AddItem "Celern"End IfIf