第一篇：《Visual Basic 程序設(shè)計(jì)》期末試題

《Visual Basic 程序設(shè)計(jì)》期末試題

注：一、二、三、四題的答案必須按題號(hào)和順序填寫到第五頁(yè)的答案表中，否則無效。

一．單選題（每題1分）。每道題答案只有一個(gè)，未選、選錯(cuò)者0分。

1、窗體文件的后綴是（）

A．.bmp

B．.vbp

C．.bas

D．.frm

2、把控件放置在窗體中的最快捷的方法是（）

A．拖放鼠標(biāo)

B．單擊工具箱中的控件并拖動(dòng)鼠標(biāo)

C．雙擊工具箱中的控件

D.單擊工具箱中的控件

3、當(dāng)移動(dòng)控件、重新設(shè)定其尺寸時(shí)，（）屬性會(huì)自動(dòng)改變。

A．top , left

B．name , caption

C．click, change

D．cancel , default

4、vb主要用于開發(fā)哪種環(huán)境下的文件：（）

A．DOS

B．WINDOWS

C．DOS 和WINDOWS

D．UNIX

5、（）屬性可以使命令按扭對(duì)用戶產(chǎn)生的命令無效。A．default

B．caption

C．enabled

D．cancel

6、一組復(fù)選框中，如果單擊一個(gè)沒有被選中的復(fù)選框，則其他已選中的復(fù)選框處于（）狀態(tài)。

A．禁止

B．選中

C．不選中

D．不顯示

7、當(dāng)對(duì)象的enabled 和 visible屬性為（）時(shí)，該對(duì)象才能獲得焦點(diǎn)。

A．true , false

B．false

C．false , true

D．true

8、當(dāng)程序運(yùn)行過程中，需要給用戶一些提示信息或警告信息時(shí)，應(yīng)使用（）。

A．msgbox

B．inputbox

C．A,B都可以

D．A,B都不可以

9、表達(dá)式val(“16abc”)的值為（）。A．1

B．16

C．16abc

D．a(chǎn)bc

10、以下哪個(gè)函數(shù)用于在一個(gè)字符串中查找另一個(gè)字符串（）A．mid$()

B．len()

C．instr()

D．right()

11、控件command1的名稱屬性為com時(shí)，則它的click事件過程名為（）。

A．command1_click

B．command—click

C．com_click

D．command1.click

12、窗體form1的名稱屬性為myfrm時(shí)，則它的load事件過程名為（）。

A．form_load

B．me_load

C．myfrm_load

D．form1_load

13、下列控件中，不可改變控件大小的是（）A．frame

B．timer

C．command

D．textbox

14、下列數(shù)據(jù)中是boolean常量的是（）A．123

B．not

C．true

D．a(chǎn)nd

15、假定A是boolean型變量，下面賦值語句正確的是：（）

A．A=”TRUE”

B．A=TRUE

C．A=#TRUE#

D．A=”FALSE”

16、表達(dá)式10+5 mod 10 9 / 3的值是（）。

A．10

B．15

C．12

D．運(yùn)算錯(cuò)誤

17、若x=5,執(zhí)行if x then x=0 else x=1的結(jié)果為（）。

A．實(shí)時(shí)錯(cuò)誤 B．編譯錯(cuò)誤 C．x=1 D．x=0

18、為使文本框顯示滾動(dòng)條，必須首先設(shè)置的屬性是（）。

A．Alignment B．Style C．Multiline D．ScrollBars

19、運(yùn)行時(shí)，當(dāng)用戶向文本輸入新的內(nèi)容，或在程序代碼中對(duì)文本框的text屬性進(jìn)行賦值從而改變了文本框的text屬性時(shí)，將觸發(fā)文本框的（）事件。A．click B．dbclick C．gotfocus D．change 20、組合框的3種不同風(fēng)格：下拉組合框、簡(jiǎn)單組合框和下拉列表框由（）屬性決定。

A．BorderStyle B．Style C．FillStyle D．DrawStyle

二、多選題（每題2分）。每道題答案至少有一個(gè)或者多個(gè)，未選全者，得部分分；選錯(cuò)者0分。1．關(guān)于程序設(shè)計(jì)，以下敘述正確的是（）。

A． 結(jié)構(gòu)化程序設(shè)計(jì)方法把程序的結(jié)構(gòu)規(guī)定為：順序、選擇、判斷三種基本結(jié)構(gòu)。

B． 面向?qū)ο蟮某绦蛟O(shè)計(jì)更符合人們的思維方式，更易于軟件的維護(hù)和功能增減。

C． Visual Basic、Visual Foxpro、Visual J++都是面向?qū)ο蟮某绦蛟O(shè)計(jì)語言。

D． 面向過程的程序設(shè)計(jì)能用繼承的方式減短程序開發(fā)時(shí)間。

2．VB中包含的數(shù)組類型有（）

A．?dāng)?shù)據(jù)數(shù)組

Ｂ．屬性數(shù)組

Ｃ．事件數(shù)組

Ｄ．控件數(shù)組

3．設(shè)A=2，B=3，C=4，D=5。以下表達(dá)式的值為False的是（）。A．A>B AND C<=D OR 2*A>C C．NOT A<=C OR 4*C=B^2 AND B<>A+C B．3>2*B OR A=C AND B<>C OR C>D D．A+B+C>D OR A*B

A．屬性用來描述和反映對(duì)象的特征，如：控件的名稱、標(biāo)題等。

B．對(duì)象的屬性只能通過屬性窗口進(jìn)行修改。

C．事件就是發(fā)生在對(duì)象上的事情，如：?jiǎn)螕?、雙擊等。

D．VB中的方法可以是過程或函數(shù)，用戶只能在代碼中調(diào)用，不能修改

5．下列實(shí)際參數(shù)中，可以進(jìn)行按地址傳遞的是（）。

A．“X” B．（X）C．X+10 D．X

三、閱讀程序，按要求寫出程序運(yùn)行后的結(jié)果。（每題5分）

題目所涉及到的對(duì)象的屬性在設(shè)計(jì)時(shí)均為默認(rèn)值。答案可先寫在代碼右側(cè)，然后再填寫到答案表中，以答案表中的內(nèi)容為準(zhǔn)。

IF b=”ER” THEN s=s+1 1． 有如下程序

NEXT i a=”A WORKER IS OVER THERE”

PRINT s x=LEN(a)

運(yùn)行后的輸出結(jié)果是_______ FOR i=1 TO x-1

b=MID(a,i,2)

2． 有如下程序 Dim a(1 to 5)y = 3 * y FOR j=1 TO 5 End Sub a(j)=j*j

4．有如下程序 NEXT j s=6 PRINT a(a(2)*a(3)-a(4)*2)+a(5)SELECT CASE s 運(yùn)行后輸出的結(jié)果是 _______ CASE IS<6

f=s+1

3．寫出下列程序運(yùn)行后的輸出結(jié)果 _______

CASE IS<5 Private Sub Command1_Click()

f=s+2 a = 1

CASE IS<4 b = 1

f=s+3 Print “A=”;a;“,B=”;b

CASE ELSE Call mult((a), b)

f=s+4 Print “A=”;a;“,B=”;b

END SELECT End Sub

PRINT s;f Sub mult(x, y)

運(yùn)行輸出的結(jié)果是______x = 2 * x

四、在下列程序的下劃線位置上，填寫符合題目要求的內(nèi)容。（每題5分）說明與第三題相同。

Private Sub Option1_Click(Index

1． 下列代碼求出

2．計(jì)算:N！的值

As Integer)S=1+2+3+ … +N的值。

N= Val(InputBox(“請(qǐng)輸入N的Select Case Private Sub Form_Click()值：”))

Case n = Val(InputBox(“請(qǐng)輸入N的 JC=______

Print ”ABC“ For i=1 to 值：”))

Case JC=JC*________ s =

Print “DEF” Print “sum=”;sum For i = 1 To

Case

s =

Print “HIJ”

3．單擊控件數(shù)組中（共有三Next i

End Select Print s 個(gè)）的不同對(duì)象，在窗體上顯示End Sub End Sub 不同內(nèi)容。

4．下列程序的功能是:用函數(shù)調(diào)用求(S=M!/(N!*(M-N)!),要求M>N)。請(qǐng)將程序填寫完整。

Private Sub Command1_Click()

Dim m As Integer, n As Integer Function JC(X)

S1 = 1 m = InputBox(“請(qǐng)輸入M的值”, , 0)

For I = 1 To X n = InputBox(“請(qǐng)輸入N的值”, , 0)

S1 = If m <= n Then Exit Sub

Next S =

JC = Print S

End FunctiEnd Sub

參考答案：

一單選 1 ~10 ：D C A B C C D C B A

~20 ：C A B C B C D C D B 二多選 1~5 ：A、BCD、ABC、ACD、D

三閱讀 1、3 2、41

3、A=1 B=1 A=1 B=3

4、S=6 F=10 四．填空題

1、S=0 TO N S=S+I

2、JC=1 TO N JC=JC*I NEXT 3、INDEX 0 1 2、JC（M）/（JC（N）*JC（M-N））S1=S1*I JC=S1

五、編寫程序（每題10分，共30分）。

1． Private Sub Form_Click()

Timer1.Enabled = True

3． Private Sub Form_Click()Timer1.Interval = 1000

End Sub m = Val(InputBox(“輸入M”))Private Sub Timer1_Timer()n = Val(InputBox(“輸入N”))Label1.Caption = Time If n>m Then End Sub a = fact(n)

b = fact(m)2． Private Sub Form_Click()

c = fact(nm))b = Val(InputBox(“請(qǐng)輸入數(shù)值：”))

Print D c = Val(InputBox(“請(qǐng)輸入數(shù)值：”))

Else If b > a Then

Exit Sub d = a: a = b: b = d

End if End If

End Sub If c > a Then

Private Function fact(x)d = a: a = c: c = d

p = 1 End If

For i = 1 To x If c > b Then

p = p * i d = b: b = c: c = d

Next i End If

fact = p Print a, b, c

End Function End Sub

第二篇：《VisualBasic程序設(shè)計(jì)》課程教學(xué)大綱

天津廣播電視大學(xué)開放教育計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)專業(yè)、計(jì)算機(jī)信息管理（?？疲?/p>

《VisualBasic程序設(shè)計(jì)》課程教學(xué)大綱

第一部分大綱說明

一、課程的性質(zhì)與任務(wù)

VisualBasic程序設(shè)計(jì)課程是中央廣播電視大學(xué)計(jì)算機(jī)相關(guān)專業(yè)的統(tǒng)設(shè)（統(tǒng)服）必修課，4學(xué)分，72學(xué)時(shí)，其中實(shí)驗(yàn)36學(xué)時(shí)，開設(shè)一學(xué)期。

課程的主要內(nèi)容包括：可視化編程理論概述，VB可視化編程初步，應(yīng)用程序接口設(shè)計(jì)及代碼編寫，VB高級(jí)語言技巧，文件處理應(yīng)用程序設(shè)計(jì)方法，圖形圖像和多媒體應(yīng)用程序設(shè)計(jì)方法，數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)方法，網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)方法，調(diào)試與錯(cuò)誤處理，Com和ActiveX應(yīng)用。

通過本課程的學(xué)習(xí)，使學(xué)生掌握可視化程序設(shè)計(jì)方法和VB程序設(shè)計(jì)的編程技巧，具備用VB語言進(jìn)行應(yīng)用系統(tǒng)開發(fā)的初步能力。

二、與相關(guān)課程的關(guān)系

本課程是中央電大計(jì)算機(jī)相關(guān)專業(yè)的統(tǒng)設(shè)（統(tǒng)服）必修課。其先修課為計(jì)算機(jī)應(yīng)用基礎(chǔ)。

三、課程的教學(xué)要求

1．掌握VisualBasic語言的語法和VisualBasic程序的基本結(jié)構(gòu)。

2．掌握程序設(shè)計(jì)方法。

3．掌握程序調(diào)試和錯(cuò)誤處理的方法。

4．理解可視化編程和面向?qū)ο蟮母拍睢?/p>

5．了解ActiveX的簡(jiǎn)單應(yīng)用。

四、課程的教學(xué)方法和教學(xué)形式建議

1．本課程的特點(diǎn)是：概念多、實(shí)踐性強(qiáng)、涉及面廣，因此建議采用在計(jì)算機(jī)教室（或計(jì)算機(jī)多媒體教室）進(jìn)行講授的教學(xué)形式，講授、實(shí)驗(yàn)與課堂討論相結(jié)合。

2．為加強(qiáng)和落實(shí)動(dòng)手能力的培養(yǎng)，應(yīng)保證上機(jī)機(jī)時(shí)不少于本教學(xué)大綱規(guī)定的實(shí)驗(yàn)學(xué)時(shí)。

3．應(yīng)充分利用網(wǎng)絡(luò)技術(shù)進(jìn)行授課、答疑和討論。

五、課程教學(xué)要求的層次

本課程的教學(xué)要求分為掌握、理解和了解三個(gè)層次。掌握是在理解的基礎(chǔ)上加以靈活應(yīng)用；理解是能正確表達(dá)有關(guān)概念和方法的含義，并且能夠進(jìn)行簡(jiǎn)單分析和判斷；了解即能正確判別有關(guān)概念和方法。

在期末考核試卷中（涵蓋實(shí)驗(yàn)內(nèi)容），掌握的內(nèi)容約占總分?jǐn)?shù)的60%，理解的內(nèi)容約占30%，了解的內(nèi)容約占10%。

第二部分媒體使用與教學(xué)過程建議

一、課程學(xué)時(shí)分配

課程教學(xué)總學(xué)時(shí)數(shù)為72學(xué)時(shí)，4學(xué)分，其中實(shí)驗(yàn)課學(xué)時(shí)為36。各章學(xué)時(shí)分配如下：

章 教學(xué)內(nèi)容

授課學(xué)時(shí) 實(shí)驗(yàn)學(xué)時(shí) 2 4 6 5 3 2 2 4 5 5 8 4 2 2 36 第一章 可視化編程理論概述 第二章 VB可視化編程初步

第三章 應(yīng)用程序接口設(shè)計(jì)及代碼編寫 第四章 VB高級(jí)語言技巧

第五章 文件處理應(yīng)用程序設(shè)計(jì)方法

第六章 圖形圖像和多媒體應(yīng)用程序設(shè)計(jì)方法 4 第七章 數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)方法 第八章 網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)方法 第九章 調(diào)試與錯(cuò)誤處理 第十章 Com和ActiveX應(yīng)用 合計(jì) 3 2 1 36

二、多種媒體教材的總體說明

本課程使用的教學(xué)媒體有：文字教材、錄像教材、CAI課件和網(wǎng)上教學(xué)。

1．文字教材：主要教學(xué)媒體，是本課程教與學(xué)和考核的基本依據(jù)，對(duì)其他教學(xué)媒體起紐帶作用，具有導(dǎo)學(xué)功能。文字教材采用分立式，包括主教材和實(shí)驗(yàn)教材。

2．錄像教材：輔媒體，講授課程的重點(diǎn)、難點(diǎn)以及在面授教學(xué)中難以實(shí)現(xiàn)的教學(xué)內(nèi)容，是對(duì)文字教材的強(qiáng)化和補(bǔ)充。

3．CAI課件：自測(cè)練習(xí)，應(yīng)用程序開發(fā)演練，通過交互式教學(xué)的特點(diǎn)，以解決學(xué)生在自學(xué)中遇到的疑難問題。

4．網(wǎng)上教學(xué)：教學(xué)輔導(dǎo)、答疑，階段性總結(jié)和復(fù)習(xí)等。

三、教學(xué)環(huán)節(jié)

以文字教材為基礎(chǔ)，通過錄像教材、CAI課件等輔助教學(xué)媒體強(qiáng)化教學(xué)的重、難點(diǎn)內(nèi)容，并通過實(shí)驗(yàn)課的訓(xùn)練，加深學(xué)生對(duì)課程內(nèi)容的理解，掌握用VB語言進(jìn)行程序開發(fā)的方法和技術(shù)。網(wǎng)上教學(xué)與教學(xué)進(jìn)度同步，輔以辦學(xué)試點(diǎn)單位教師的面授輔導(dǎo)，提高教學(xué)質(zhì)量。

四、考核

本課程的考核采用期末終結(jié)性考核和形成性考核兩種考核方式，期末終結(jié)性考核由中央電大根據(jù)教學(xué)大綱統(tǒng)一命題，占課程總成績(jī)的80%，形成性考核以平時(shí)作業(yè)的形式完成，占課程總成績(jī)的20%。

第三部分 教學(xué)內(nèi)容和教學(xué)要求

第一章可視化編程理論概述（2學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“加法運(yùn)算”應(yīng)用程序?qū)嵗治?/p>

2．VB集成開發(fā)環(huán)境介紹

3．幾種流行的可視化編程工具比較

4．面向?qū)ο蟮母拍?/p>

二、教學(xué)要求：

1．掌握VB工程的概念及管理方法

2．掌握在VB集成環(huán)境中獲得幫助的方法

3．理解可視化編程的概念和特點(diǎn)

4．了解目前流行的可視化語言的種類和主要特點(diǎn)

5．了解面向?qū)ο蟮母拍罴捌浠緳C(jī)制

第二章VB可視化編程初步（4學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．創(chuàng)建第一個(gè)應(yīng)用程序：時(shí)鐘程序

2．程序代碼分析

3．窗體及基本控件

3．事件驅(qū)動(dòng)

4．時(shí)鐘程序分析

二、教學(xué)要求：

1．掌握VB應(yīng)用程序開發(fā)的一般步驟。

2．掌握命令按鈕、文本框和標(biāo)簽的使用和MsgBox函數(shù)的用法。

3．理解賦值語句和變量的概念。

4．理解對(duì)象、屬性、方法和事件的概念及其之間的區(qū)別和聯(lián)系。

5．理解事件驅(qū)動(dòng)的原理。

6.了解時(shí)鐘程序的工作原理

第三章應(yīng)用程序接口設(shè)計(jì)及代碼編寫（6學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“簡(jiǎn)單的計(jì)算器”應(yīng)用程序任務(wù)

2．可視化界面設(shè)計(jì)基礎(chǔ)

3．可視化界面高級(jí)設(shè)計(jì)

4．代碼設(shè)計(jì)基礎(chǔ)

5．工程化思想及編程風(fēng)格

二、教學(xué)要求：

1．掌握可視化界面設(shè)計(jì)的方法

2．掌握變量和常量的作用域、作用范圍及用法

3．掌握運(yùn)算符及流程控制語句的用法

4．理解工程化思想和編程風(fēng)格

5．理解常用函數(shù)的使用方法

6．了解窗體設(shè)計(jì)的基本原則

7．了解“簡(jiǎn)單計(jì)算器”程序設(shè)計(jì)過程

第四章VB高級(jí)語言技巧（5學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“多功能計(jì)算器”應(yīng)用程序任務(wù)

2．?dāng)?shù)組的使用

3．過程和函數(shù)的定義和調(diào)用

4．鍵盤使用技巧

5．鼠標(biāo)使用技巧

二、教學(xué)要求：

1．掌握數(shù)組的使用方法

2．掌握鍵盤、鼠標(biāo)的使用技巧

3．掌握過程和函數(shù)的定義和調(diào)用方法

4．掌握API函數(shù)的調(diào)用方法

5．了解枚舉及自定義數(shù)據(jù)類型

6．了解“多功能計(jì)算器”程序設(shè)計(jì)過程

第五章文件處理應(yīng)用程序設(shè)計(jì)方法（3學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“文件管理器”應(yīng)用程序任務(wù)

2．文件系統(tǒng)控件及相關(guān)語句

3．標(biāo)準(zhǔn)文件輸入/輸出

二、教學(xué)要求：

1．掌握文件讀寫的基本方法

2．掌握與文件處理相關(guān)的語句和函數(shù)的用法

3．理解文件系統(tǒng)控件的基本功能

4．了解“文件管理器”應(yīng)用程序的開發(fā)過程

第六章圖形圖像和多媒體應(yīng)用程序設(shè)計(jì)方法（4學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“指針式時(shí)鐘”和“VCD播放器”應(yīng)用程序任務(wù)

2．VB坐標(biāo)系統(tǒng)和顏色

3．相關(guān)控件介紹

4．繪圖方法

5．圖像處理的基本方法

6．播放多媒體信息的基本方法

二、教學(xué)要求：

1．掌握?qǐng)D形圖像的基本處理方法。

2．理解VB坐標(biāo)系統(tǒng)的原理。

3．理解“指針式時(shí)鐘”程序的設(shè)計(jì)方法

4．理解“VCD播放器”程序設(shè)計(jì)的方法

5．了解播放多媒體信息的基本方法

第七章數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)方法（6學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“成績(jī)查詢”程序任務(wù)

2．VB數(shù)據(jù)對(duì)象及數(shù)據(jù)庫(kù)訪問機(jī)制概述

3．?dāng)?shù)據(jù)庫(kù)控件和可視化數(shù)據(jù)管理器

4．報(bào)表設(shè)計(jì)

二、教學(xué)要求：

1．掌握VB數(shù)據(jù)庫(kù)應(yīng)用程序的基本框架

2．掌握SQL操縱數(shù)據(jù)的方法

3．理解使用VB數(shù)據(jù)庫(kù)引擎操縱數(shù)據(jù)庫(kù)的方法

4．理解VB數(shù)據(jù)對(duì)象及數(shù)據(jù)庫(kù)訪問機(jī)制

5．理解數(shù)據(jù)綁定控件的基本用法

6．了解使用Excel輸出報(bào)表的方法

7．了解第三方報(bào)表控件的引用方法

8．了解DataReport、CrystalReport的使用方法

9．了解可視化數(shù)據(jù)管理器的使用方法

10．了解“成績(jī)查詢”程序的設(shè)計(jì)過程

第八章網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)方法（3學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．“網(wǎng)絡(luò)聊天”程序任務(wù)

3．Winsocket控件及網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)基礎(chǔ)

2．其他網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)

二、教學(xué)要求：

1．掌握Winsock控件的基本用法

2．了解網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)的基礎(chǔ)知識(shí)

3．了解“網(wǎng)絡(luò)聊天”應(yīng)用程序的開發(fā)過程

第九章調(diào)試與錯(cuò)誤處理（2學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．程序錯(cuò)誤分類

2．程序調(diào)試方法

3．錯(cuò)誤捕獲及處理方法

二、教學(xué)要求：

1．掌握程序調(diào)試的基本方法

2．掌握錯(cuò)誤捕獲及處理的基本方法

3．了解程序錯(cuò)誤的分類

第十章Com和ActiveX應(yīng)用（1學(xué)時(shí)）

一、教學(xué)內(nèi)容：

1．COM簡(jiǎn)介

2．ActiveX簡(jiǎn)介

3．COM對(duì)象的類型

4．ActiveX與COM的關(guān)系

二、教學(xué)要求：

1．了解ActiveXEXE組件開發(fā)應(yīng)用方法；

2．了解ActiveXDLL組件開發(fā)應(yīng)用方法；

3．了解ActiveX控件開發(fā)應(yīng)用方法

第四部分 實(shí)驗(yàn)內(nèi)容和實(shí)驗(yàn)要求

實(shí)驗(yàn)一：VisualBasic開發(fā)環(huán)境（2學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）VisualBasic6.0的安裝、啟動(dòng)與退出

（2）定制VisualBasiv6.0的集成開發(fā)環(huán)境

（3）創(chuàng)建一個(gè)簡(jiǎn)單應(yīng)用程序

二、實(shí)驗(yàn)要求：

1．了解VisualBasic（簡(jiǎn)稱VB）對(duì)計(jì)算機(jī)系統(tǒng)的軟、硬件要求。

2．練習(xí)VisualBasic6.0的安裝，掌握啟動(dòng)與退出VisualBasic6.0的方法。

3．熟悉VisualBasic集成開發(fā)環(huán)境，掌握工具欄、屬性窗口、工程資源管理器窗口、窗體布局窗口、代碼編輯器窗口的使用。

實(shí)驗(yàn)二：簡(jiǎn)單程序設(shè)計(jì)（2學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）球表面積和球的體積的程序設(shè)計(jì)

（2）窗體的新建、屬性設(shè)置

（3）身份驗(yàn)證程序設(shè)計(jì)

（4）創(chuàng)建“計(jì)時(shí)秒表”窗體程序

二、實(shí)驗(yàn)要求：

1．掌握建立和運(yùn)行VisualBasic應(yīng)用程序的基本步驟。

2．掌握文本框、標(biāo)簽、命令按紐的使用。

3．掌握MsgBox的使用和賦值語句的正確書寫規(guī)則。

實(shí)驗(yàn)三：菜單設(shè)計(jì)（2學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）下拉式菜單設(shè)計(jì)

（2）彈出式菜單

（3）工具欄設(shè)計(jì)

二、實(shí)驗(yàn)要求：

1．掌握菜單編輯器的使用

2．掌握下拉式菜單和彈出式菜單的設(shè)計(jì)方法。

3．了解工具欄的設(shè)計(jì)方法。

實(shí)驗(yàn)四：鼠標(biāo)、鍵盤、API函數(shù)調(diào)用（4學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）鍵盤錯(cuò)位程序

（2）實(shí)驗(yàn)鍵盤使用技巧

（3）鼠標(biāo)事件應(yīng)用

（4）窗體總在最前端實(shí)驗(yàn)

（5）百葉窗圖形特效實(shí)驗(yàn)

二、實(shí)驗(yàn)要求：

1.掌握鼠標(biāo)和鍵盤有關(guān)事件的使用方法

2.熟悉API函數(shù)的引用和調(diào)用方法

實(shí)驗(yàn)五：文件管理程序設(shè)計(jì)（5學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）Word文件查找顯示程序

（2）文件讀寫程序

二、實(shí)驗(yàn)要求：

1．掌握文件管理程序相關(guān)控件的使用方法

2．掌握文件管理程序相關(guān)函數(shù)和過程的使用方法

3．掌握文件管理類程序開發(fā)的方法 實(shí)驗(yàn)六：繪圖和多媒體應(yīng)用（5學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）三角函數(shù)曲線的繪制

（2）常見幾何圖形繪制

（3）CD播放器程序設(shè)計(jì)

（4）API函數(shù)在多媒體中的應(yīng)用

二、實(shí)驗(yàn)要求：

1．掌握建立圖形坐標(biāo)系的方法。

2．掌握VB的圖形控件和圖形方法以及常見幾何圖形的繪制。

3．掌握用多媒體控件制作簡(jiǎn)單多媒體播放器的方法。

4．了解API函數(shù)在多媒體中的應(yīng)用。

實(shí)驗(yàn)七：數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)（8學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）數(shù)據(jù)綁定控件的使用方法

（2）VB數(shù)據(jù)庫(kù)引擎訪問數(shù)據(jù)庫(kù)的方法

（3）SQL操縱數(shù)據(jù)庫(kù)的方法

二、實(shí)驗(yàn)要求：

1．掌握利用SQL語句，通過ADO數(shù)據(jù)對(duì)象管理數(shù)據(jù)庫(kù)的方法

2．理解數(shù)據(jù)庫(kù)實(shí)用程序的框架體系

3．了解數(shù)據(jù)報(bào)表的制作方法 實(shí)驗(yàn)八：網(wǎng)絡(luò)應(yīng)用程序設(shè)計(jì)（4學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

WinSocket控件的使用方法

二、實(shí)驗(yàn)要求：

1．掌握Winsock控件的使用方法

2．了解網(wǎng)絡(luò)聊天程序的原理

實(shí)驗(yàn)九：簡(jiǎn)單程序調(diào)試及錯(cuò)誤處理（2學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

（1）程序調(diào)試實(shí)驗(yàn)

（2）錯(cuò)誤捕獲及處理實(shí)驗(yàn)

二、實(shí)驗(yàn)要求：

1．掌握斷點(diǎn)的設(shè)置、監(jiān)視、跟蹤等程序調(diào)試方法

2．掌握OnErrorGoto、OnErrorResumeNext等語句的使用

3．理解Error對(duì)象的作用

實(shí)驗(yàn)十：ActiveX的簡(jiǎn)單應(yīng)用（2學(xué)時(shí)）

一、實(shí)驗(yàn)內(nèi)容：

1．ActiveXEXE組件編程

2．ActiveXDLL組件編程

二、實(shí)驗(yàn)要求：

1．了解ActiveXEXE組件的開發(fā)和使用方法

2．了解ActiveXDLL組件的開發(fā)和使用方法

第三篇：VB程序設(shè)計(jì)期末模擬試題及答案

0 《VB》期末復(fù)習(xí)題及答案

綜合復(fù)習(xí)題

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__________________、________________和_____________________。

2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的__________窗口中，把此文本框的_____________屬性設(shè)置成空白。

3．Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信息，可使用___________控件；若允許用戶輸入文本，則應(yīng)使用_____________控件。

4．窗體的常用方法有__________、___________、___________和___________。5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應(yīng)當(dāng)編寫的語句是____________________________________。

6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開一個(gè)窗口frm1，請(qǐng)對(duì)以下事件過程填空。

Private Sub Cmdopen_ ___________ _____________________ End Sub 7．Visual Basic 6種類型的表達(dá)式是______________、______________、______________、________________、_________________、____________________。Visual Basic根據(jù)表達(dá)式的___________來確定表達(dá)式的類型。8．表達(dá)式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And ca And Not b c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、編程題

1．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績(jī)填寫不完全，則給 4

出提示信息，否則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。

2．設(shè)計(jì)程序。要求：從文本框Text1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕（command1）時(shí)，如果該數(shù)據(jù)滿足條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框Text1中，選中其中的文本。

3．設(shè)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽（Label1）中的文字（歡迎您?。┑淖煮w變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。4．任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫出程序代碼?！禫B》期末復(fù)習(xí)參考答案

一、填空題

1．創(chuàng)建應(yīng)用程序界面 設(shè)置屬性 編寫代碼 2．屬性、text 3．Label TextBox 4．Load方法 Show方法 Hide方法 Unload方法 5．txtshow.text=“GOOD WORK” 6．Click()、frm1.show 7．算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式 運(yùn)算符 8．1 9．True False 10．12 11．Sin(x)^ 2 + Sqr(x ^ 2-y ^ 2)/(2 * x)12．Dim A(1 To 5，-2 To 6)As String 13．單擊 雙擊 裝載 多 響應(yīng)某個(gè)事件后所執(zhí)行的程序代碼 cmd1 Click 14．完成某種特定的功能 對(duì)象名.方法名 Form1.Show 15．AutoSize Stretch 16．FileCopy “c:command.com”，“d:command.com”

二、單項(xiàng)選擇題

1．B 2．C 3．C 4．D 5．D 6．B 7．B 8．D 9．D 10．C 11．D 12．A 13．C

三、指出下列句中的錯(cuò)誤，修改或者說明原因。1．int.sum 不正確。變量名中不能包括小數(shù)點(diǎn)。2．變量名的長(zhǎng)度最長(zhǎng)可達(dá)255個(gè)字符。3． 3.6，4 因?yàn)閍 不是整型變量。

4．不正確。程序不可以改變字符的長(zhǎng)度，這是VB規(guī)定。

5．不完全正確。Variant是一種特殊的數(shù)據(jù)類型，除了定長(zhǎng)字符串?dāng)?shù)據(jù)及用戶定義類型外，可以包含任何種類型的數(shù)據(jù)，這是VB規(guī)定。6．False。邏輯表達(dá)式計(jì)算結(jié)果。

7．不正確。兩個(gè)日期型數(shù)據(jù)相減，其結(jié)果是一個(gè)數(shù)值型數(shù)據(jù)。8．不正確。靜態(tài)變量為局部變量，只能在過程中聲明。9．正確。10．正確。

11．正確。

12．不正確。該屬性設(shè)為Ture時(shí)，Image控件不能自動(dòng)調(diào)整自己的尺寸與顯示的圖片匹配，而可以使圖片自動(dòng)擴(kuò)展以適應(yīng)控件的尺寸。

四、讀程序題，寫出程序運(yùn)行結(jié)果。

1．程序運(yùn)行后，單擊窗體，輸出結(jié)果為： 1 1 2 1 1 2 3 2 1 1 2 3 4 3 2 1 1 2 3 4 5 4 3 2 1 1 2 3 4 5 6 5 4 3 2 1 1 2 3 4 5 6 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 7 6 5 4 3 2 1 1 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 2．程序運(yùn)行后，單擊按鈕Command1，輸出結(jié)果為：120。3.* ** *** **** ***** 4.aabb-30 False aabb-30 False 30+60 90 30+60 90 5.11 13 9

五、編程題 1．

Private Sub Command1_Click()Text1.Text = “" Text2.Text = ”“ Text3.Text = ”“ Text4.Text = ”“ End Sub Private Sub Command2_Click()a = Trim(Text1.Text)b = Trim(Text2.Text)c = Trim(Text3.Text)If a = ”“ Or b = ”“ Or c = ”“ Then MsgBox ”成績(jī)填寫不完全！“, vbCritical Else Text4.Text =(Val(a)+ Val(b)+ Val(c))/ 3 6

End If End Sub Private Sub Command3_Click()Unload Me End Sub 2．

Private Sub Command1_Click()x = Val(Text1.Text)If x Mod 3 = 2 And x Mod 5 = 3 And x Mod 7 = 4 Then Print x Else Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text)End If End Sub 3．

Private Sub Check1_Click()If Check1.Value = 1 Then Label1.Font.Bold = True Else Label1.Font.Bold = False End If End Sub Private Sub Check2_Click()If Check2.Value = 1 Then Label1.Font.Italic = True Else Label1.Font.Italic = False End If End Sub Private Sub Command1_Click()Unload Me End Sub 4．

a = Val(InputBox(”輸入第一個(gè)數(shù)：“))b = Val(InputBox(”輸入第二個(gè)數(shù)：“))c = Val(InputBox(”輸入第三個(gè)數(shù)：“))If a < b Then t = a: a = b: b = t If a < c Then t = a: a = c: c = t If b < c Then t = b: b = c: c = t MsgBox(”求大小排第二的數(shù)是：" & b)

第四篇：VB程序設(shè)計(jì)期末模擬試題及答案

《VB》期末復(fù)習(xí)題及答案

綜合復(fù)習(xí)題

一、填空題

1．創(chuàng)建一個(gè)VB應(yīng)用程序三個(gè)主要的步驟是__創(chuàng)建應(yīng)用程序界面_、_設(shè)置屬性_和_編寫代碼_。2．當(dāng)程序運(yùn)行時(shí)，要求窗體中的文本框呈現(xiàn)空白，則在設(shè)計(jì)時(shí)，應(yīng)當(dāng)在此文本框的 屬性 窗

口中，把此文本框的__text__屬性設(shè)置成空白。

3．Label和TextBox控件用來顯示和輸入文本，如果僅需要讓應(yīng)用程序在窗體中顯示文本信 息，可使用___Label_____控件；若允許用戶輸入文本，則應(yīng)使用___TextBox___控件。4．窗體的常用方法有_Load方法 Show方法 Hide方法 Unload方法 5．要想在代碼中給名為txtshow的文本框賦予文本：GOOD WORK，應(yīng)當(dāng)編寫的語句是 txtshow.text=“GOOD WORK” 6．若命令按鈕的名稱為Cmdopen，程序要求單擊該命令按鈕時(shí)，打開一個(gè)窗口frm1，請(qǐng)對(duì)以

下事件過程填空。

Private Sub Cmdopen_ Click()、frm1.show End Sub 7．Visual Basic 6種類型的表達(dá)式是 算術(shù)表達(dá)式 字符串表達(dá)式 關(guān)系表達(dá)式 布爾表達(dá)式 日期表達(dá)式 對(duì)象表達(dá)式，Visual Basic根據(jù)表達(dá)式的_運(yùn)算符來確定表達(dá)式的類型。8．表達(dá)式93 7 Mod 2 ^ 2 的值是___________。

9．已知a=3，b=4，c=5，表達(dá)式a>b and Not c>a Or c>b And c

達(dá)式c>a And Not b

10．日期表達(dá)式 #2/24/02#1 > c2 End Sub 7．#12/31/1999#3 * I Print “ ”;Next j For k = 1 To I Print k;Next k For k = IX Print Tab(Y + 5);“*”;Next Y Print Next X 4．

Private Sub Form_Activate()Print “aa” & “bb”,-5 * 6,Not 2 <= 3 Print “aa” & “bb”;-5 * 6;Not 2 <= 3 Print Print “30+60”, Print 30 + 60 ？

？“30+60”;30 + 60 End Sub 5． X=1 Do While X<=10 If X Mod 7 =0 Then Y = X + 6 Else Z = X End If X = X + 2 Loop Print X,Y,Z

五、編程題

1．設(shè)計(jì)一個(gè)計(jì)算程序。該程序用戶界面如圖所示，由四個(gè)文本框：文本框1（text1）、文本框2（text2）、文本框3（text3）、文本框4（text4），和三個(gè)按鈕：命令按鈕1（command1）、命令按鈕2（command2）、命令按鈕3（command4）組成。程序運(yùn)行后，用戶單擊清除按鈕，則清除文本框中顯示的內(nèi)容。單擊計(jì)算按鈕，如果成績(jī)填寫不完全，則給出提示信息，否則計(jì)算三科平均成績(jī)。單擊退出按鈕則退出。

2．設(shè)計(jì)程序。要求：從文本框Text1中接收輸入的數(shù)據(jù)，當(dāng)單擊確定按鈕（command1）時(shí)，如果該數(shù)據(jù)滿足條件：除以3余2，除以5余3，除以7余4，則輸出；否則將焦點(diǎn)定位在文本框Text1中，選中其中的文本。

3．設(shè)計(jì)一個(gè)歡迎程序。該程序用戶界面如圖所示。要求程序運(yùn)行后，用戶選中粗體復(fù)選框時(shí)，標(biāo)簽（Label1）中的文字（歡迎您！）的字體變成粗體，用戶選中斜體復(fù)選框時(shí)，標(biāo)簽的字體變成斜體。若取消選中，則恢復(fù)原字體。單擊結(jié)束，則退出。4．任意輸入3個(gè)數(shù)，求大小排第二的那個(gè)數(shù)，寫出程序代碼。

第五篇：visualbasic程序設(shè)計(jì)教程-第四版-劉炳文編著-清華大學(xué)

Visual Basic 程序設(shè)計(jì)教程 部分習(xí)題參考

第四版劉炳文編著清華大學(xué)出版社 第五章

5.4、從鍵盤上輸入4個(gè)數(shù)，編寫程序，計(jì)算并輸出這4個(gè)數(shù)的和及平均值。通過inputbox函數(shù)輸入數(shù)據(jù)，在窗體上顯示和及平均值。Dim a as single For i=1 to 4

a=inputbox（“請(qǐng)輸入一個(gè)數(shù)：”，“數(shù)據(jù)輸入”）

sum=sum+a

n=n+1

avg=sum/n next i print “和是：”,sum print “平均值是：”，avg 5.5、編寫程序，要求用戶輸入下列信息：姓名、年齡、通信地址、郵政編碼、電話，然后將輸入的數(shù)據(jù)用適當(dāng)?shù)母袷皆诖绑w上顯示出來。Dim a as variant Fontsize=20 a=inputbox（“請(qǐng)輸入姓名：”，“數(shù)據(jù)輸入”）print “姓名：”；a a=inputbox（“請(qǐng)輸入年齡：”，“數(shù)據(jù)輸入”）print “年齡：”；a a=inputbox（“請(qǐng)輸入通信地址：”，“數(shù)據(jù)輸入”）print “通信地址：”；a a=inputbox（“請(qǐng)輸入郵政編碼：”，“數(shù)據(jù)輸入”）print “郵政編碼：”；a a=inputbox（“請(qǐng)輸入電話：”，“數(shù)據(jù)輸入”）print “電話：”；a 5.7．設(shè)a=5，b=2.5，c=7.8，編程序計(jì)算：

y=（πab）/（a+bc）程序：

Dim a as single，b as single，c as single a=5 b=2.5 c=7.8 pi=3.14 y=（pi*a*b）/（a+b*c）print “結(jié)果是：”;y 5.8、輸入以秒為單位表示的時(shí)間，編寫程序，將其轉(zhuǎn)換為幾日幾時(shí)幾秒。Dim a as long，d as integer，h as integer，s as integer a=inputbox（“請(qǐng)輸入秒數(shù)：”，“數(shù)據(jù)輸入”）d=int（a/86400）h=int（（a-d*86400）/3600）s=a-d*86400-h*3600 print d；“日”；h；“時(shí)”；s；“秒”

5.9、自由落體位移公式為：s=gt2/2+v0t 其中v0為初始速度，g為重力加速度，t為經(jīng)歷的時(shí)間，編寫程序，求位移量s。設(shè)v0=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定義為符號(hào)常量，用inputbox函數(shù)輸入v0和t兩個(gè)變量的值。

Dim v as single，t as single，s as single g=9.81 v= inputbox（“請(qǐng)輸入初始速度：”，“數(shù)據(jù)輸入”）v=val（v）t=inputbox（“請(qǐng)輸入經(jīng)歷的時(shí)間：”，“數(shù)據(jù)輸入”）t=val（t）s=g*t*t/2+v*t print “位移量是：”;s 第七章

7.1．編程計(jì)算并輸出S的值:s=2+4+6+8+?+100 dim i,s as integer s=0 for i=2 to 100 step 2 s=s+i next print s 7.2、我國(guó)現(xiàn)有人口為13億，設(shè)年增長(zhǎng)率為1%，編寫程序，計(jì)算多少年后增加到20億。Private Sub Form_click()Dim p As Double Dim r As Single Dim n As Integer p = 130000000 r = 0.01 n = 0 Do While p <= 200000000 p = p *(1 + r)n = n + 1 Loop Print n;“年后”;“中國(guó)人口增加到”;p End Sub 7.3、給定三角形的3條邊長(zhǎng)，計(jì)算三角形的面積。編寫程序：首先判斷給出的3條邊能否構(gòu)成三角形，如可以構(gòu)成，則計(jì)算并輸出三角形的面積，否則要求重新輸入。當(dāng)輸入-1時(shí)結(jié)束程序。

Dim a as single；b as single；c as single Start: a = inputbox(“請(qǐng)輸入第一條邊長(zhǎng)-1結(jié)束：”,”數(shù)據(jù)輸入”)a=val（a）if a=-1 then

end end if b=inputbox（“請(qǐng)輸入第二條邊長(zhǎng)”，“數(shù)據(jù)輸入”）b=val（b）c=inputbox（“請(qǐng)輸入第三條邊長(zhǎng)”，“數(shù)據(jù)輸入”）c=val（c）

if a+b<=c or a+c<=b or b+c<=a then

msgbox（“您輸入的三條邊長(zhǎng)不能構(gòu)成三角形，請(qǐng)重新輸入！”）

goto start else

l=（a+b+c）/2

s=sqr（l*（l-a）*（l-b）*（l-c））end if print “三角形的面積為：”；s 7.5、編寫程序，打印如下所示的“數(shù)字金字塔”

1 2 1

…… 2 3 4 5 6 7 8 9 8 7 6 5 4 3 2 1 Private Sub Form_Click()Dim a(1 To 5)As Integer For j = 1 To 5 a(j)= j Next j For i = 1 To 5 Print Tab(301 If j > i Then Print a(2 * i2

For J = I + 1 To Maxi)* 2);a(i, 3i

If w(j, 1)> w(j + 1, 1)Then

a1 = w(j, 0)

a2 = w(j, 1)

w(j, 0)= w(j + 1, 0)

w(j, 1)= w(j + 1, 1)

w(j + 1, 0)= a1

w(j + 1, 1)= a2

End If

Next j Next i For i = 0 To 9 Print w(i, 0)Next Print “名次” & “

運(yùn)動(dòng)員” & “

成績(jī)” For i = 0 To 9

Print “ ” & i + 1 & “

” & Format(w(i, 0), “000”)& “

” & w(i, 1)Next End Sub Private Sub Form_Load()For i = 0 To 9

w(i, 0)= InputBox(“請(qǐng)輸入第” & i + 1 & “運(yùn)動(dòng)員的編號(hào)”)

w(i, 1)= InputBox(“請(qǐng)輸入第” & i + 1 & “運(yùn)動(dòng)員的成績(jī)”)Next Command1.Caption = “名次排列” End Sub 8.10．VB編寫程序，建立并輸出一個(gè)10*10的矩陣，該矩陣兩條對(duì)角線元素為1，其余元素均為0 Private Sub Form_Click()

Dim a(1 To 10, 1 To 10)As Integer

For i = 1 To 10

For j = 1 To 10

a(i, j)= 0

If i = j Then a(i, j)= 1

If i + j = 11 Then a(i, j)= 1

Print a(i, j);“ ”;

Next j

Print

Next i End Sub 8.12.楊輝三角形每一行是(x+y)的n次方的展開式的各項(xiàng)系數(shù)。例如第一行系數(shù)是1；第二行1，1；第三行1，2，1??請(qǐng)編寫程序輸出n=10的楊輝三角形 Option Base 1 Private Sub Command1_Click()Dim a()As Double m = InputBox(“請(qǐng)輸入行數(shù) ”, “輸入”, 0)ReDim a(m, m)As Double For i = 1 To m a(i, 1)= 1 For j = 1 To m

a(j, j)= 1

If j >= 2 And j <= i1, j1, j)

End If Next j Next i For i = 1 To m For j = 1 To m

If i >= j Then Print Tab(j * 4);Str(a(i, j));

End If Next j Print Next i End Sub