第一篇：VB上機試題及答案

1、在工程中添加一個窗體form1，當用戶單擊窗體時，在窗體上顯示九九乘法表程序。結果如下圖所示（本題編程解決，20分）

參考答案：

Private Sub Form_Click()

Cls

For i = 1 To 9

For j = 1 To i

Print i * j;“ ”;

Next j

Print

Next i End Sub

2、在工程中，添加一個窗體form2，在窗體上放置一個文本框text1（文本框中的文字為“改變字形”，居中顯示）。三個復選框check1,check2和check3，如圖設置屬性。

要求：當用戶單擊“加粗”、“斜體”、“下劃線”這三個復選框時（即當復選框被選中時）能將文本框的字形變為“粗體、斜體、加下劃線”（本題編程完成，滿分：30分）

參考答案：

Private Sub Check1_Click()

Text1.FontBold = Check1.Value End Sub

Private Sub Check2_Click()

Text1.FontItalic = Check2.Value End Sub

Private Sub Check3_Click()

Text1.FontUnderline = Check3.Value End Sub

3、在工程中添加一窗體form3，在窗體上按下圖放置兩個標簽和一個文本框，一個列表框和一個命令按鈕，各控件的名稱屬性取默認值。其他屬性按下圖進行設置。

要求：當用戶在文本框輸入他的籍貫后，單擊“添加籍貫”按鈕時，能夠將籍貫添加到列表框中。雙擊列表框中的某一項時將該項刪除.（本題：20分）

參考答案：

Private Sub Command1_Click()

List1.AddItem Text1.Text End Sub

Private Sub List1_DblClick()

List1.RemoveItem List1.ListIndex End Sub

4、在窗體form4中建立下圖所示的菜單,各菜單項的名稱如下：

文件：file，新建：NEW，-：kong1，打開：OPEN，關閉：CLOSE 編輯：EDIT，剪切：CUT，復制：COPY，粘貼：PASTE（本題不用編程，30分）

參考答案：略

第二篇：VB上機試題及答案

上機操作練習題

1．某數組有20個元素，其值為隨機產生的兩位整數?，F要求將前10個元素與后10個元素對換。即第1個元素與第20個元素互換，第2個數與第19個元素互換，…，第10個元素與第11個元素互換。在窗體上輸出數組原來各元素的值與對換后各元素的值。

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始數組是：” Randomize For i = 1 To 20

a(i)= Int(Rnd * 90)+ 10

Print a(i);If i Mod 10 = 0 Then Print Next i Print Print “現在數組是：” For i = 1 To 10

j = 211

a(k)= a(k + 1)

Next k

ReDim Preserve a(UBound(a)1 End If i = i + 1 Loop While(i <= UBound(a))If flag = False Then MsgBox n & “不在該數組中” Else Print “刪除” & n & “后的數組是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．數組a中存放著升序排列的數據，使用array賦值，將inputbox輸入的新數插入到數組中，插入后數組仍有序。

注意：要求利用動態數組，能夠實現多次插入 Private Sub Form_Load()Show n = 8: ReDim a(n)a = Array(5, 15, 23, 52, 68, 88, 90, 99)n = n + 1: ReDim Preserve a(n)m = InputBox(“請輸入要插入的數據:”)For i = 1 To n1)Next k a(k)= m For i = 1 To n

Print a(i);Next i Print End Sub 4．6個評委為4位歌手打分，分數介于1-100之間。去掉一個最高分，一個最低分，求出每位選手的最后得分。將4位歌手得分從高到低排列輸出，同時輸出該選手的編號。

如：

歌手3 95分 歌手 1 87分 歌手 4 80分 歌手 2 70分

/ 19

Option Base 1

Private Type geshou

xuhao As String

fenshu(6)As Integer

score As Integer

pingjun As Integer End Type Dim singer(1 To 4)As geshou Private Sub Command1_Click()For i = 1 To 4 For j = 1 To 6

singer(i).fenshu(j)= Int(Rnd * 100)

singer(i).xuhao = “歌手” & i Next Next Call paixu End Sub

Private Sub paixu()Dim p As geshou For i = 1 To 4

For j = 1 To 5

For k = j To 6

If singer(i).fenshu(j)> singer(i).fenshu(k)Then

t = singer(i).fenshu(j)

singer(i).fenshu(j)= singer(i).fenshu(k)

singer(i).fenshu(k)= t

End If

Next

Next Next For i = 1 To 4 For j = 2 To 5

singer(i).score = singer(i).score + singer(i).fenshu(j)Next singer(i).pingjun = singer(i).score / 4 Next

For i = 1 To 3 For j = i To 4

If singer(i).score < singer(j).score Then

p = singer(i): singer(i)= singer(j): singer(j)= p

End If Next

/ 19

Next For i = 1 To 4 Print singer(i).xuhao & “得分：” & singer(i).pingjun Next End Sub Private Sub Form_Load()End Sub 10個評委給10個選手打分 Private Sub Form_Load()Show n = UBound(b)For i = 1 To 10

For j = 1 To 10

a(i, j)= Val(InputBox(“請第” & j & “位評委給第” & i & “位選手打分：”))Next j Next i For i = 1 To 10

max = a(i, 1): sum = 0

min = a(i, 1): ave = 0

For j = 1 To 10

If a(i, j)> max Then max = a(i, j)

If a(i, j)< min Then min = a(i, j)

sum = sum + a(i, j)

Next j

ave =(summin)/(n1

For j = i + 1 To n

If b(i)< b(j)Then

t = b(i): b(i)= b(j): b(j)= t

End If

Next j Next i Print “選手的得分由高到低為：” For i = 1 To 10

Print b(i);Next i End Sub 5．編寫函數求一元二次方程ax2+bx+c=0的解。

注意：要求考慮方程有兩相等實根、兩不等實根和兩個虛根的情況。Dim a As Single, b As Single, c As Single Dim s As Single a = InputBox(“請輸入a”)

/ 19

b = InputBox(“請輸入b”)c = InputBox(“請輸入c”)s = b ^ 2Sqr(s))/ 2 * a End If End Sub 6.任意輸入一組字符，統計出大寫字母多少個，小寫字母多少個，數字多少個？要求用過程實現。

Call tongji(a, n, m, o)Print “數字：” & n & Chr(13)& “小寫：” & m & Chr(13)& “大寫：” & o End Sub Private Sub tongji(a As String, n As Integer, m As Integer, p As Integer)For i = 1 To Len(a)If Asc(Mid(a, i, 1))> 47 And Asc(Mid(a, i, 1))< 58 Then

n = n + 1 ElseIf Asc(Mid(a, i, 1))> 96 And Asc(Mid(a, i, 1))< 123 Then

m = m + 1 ElseIf Asc(Mid(a, i, 1))> 64 And Asc(Mid(a, i, 1))< 91 Then

p = p + 1 End If Next End Sub 7．隨機產生一個5*5的矩陣，將主對角線和次對角線元素都置為1，并求出矩陣的四周元素之和，顯示在列表框中。

Option Base 1 Private Sub Form_Load()Dim a(5, 5)As Integer Dim s As Integer For i = 1 To 5 For j = 1 To 5

If i = j Or i = 6Asc(Mid(s1, i, 1))+ 64)ElseIf Asc(Mid(s1, i, 1))< 123 And Asc(Mid(s1, i, 1))> 96 Then convert = convert & Chr(1235: g = e

For j = 1 To n

If j > i Then

a(i, j)= 0

Else

If i = j Then

a(i, j)= 1

Else

a(i, j)= a(i1, ji + 1);String(2 *(i1)/ 2 To 1 Step(-1)

c = c + 1

s = Chr(64 + ii + c + 1);String(2 *(j1)/ 2 Else

x = x / 2 End If i = i + 1 Loop

ReDim Preserve a(UBound(a))If y < 0 Then For i = 1 To UBound(a)convert = convert & a(i)Next convert = “-” & convert Else For i = 1 To UBound(a)

/ 19

convert = convert & a(i)Next End If

End Function Private Sub Command1_Click()Dim y As Integer Text1.Text = “" y = InputBox(”請輸入十進制數字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

End Sub 14．輸入一個整數N，產生N個隨機數（范圍1—10*N），然后采用任何2種算法實現由小到大的排序。將排序前后的數據顯示出來。

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”請輸入數列項數“)ReDim a(n)For i = 1 To n

a(i)= Int(Rnd * 10 * n + 1)

Print a(i);Next Print ReDim Preserve a(n)For i = 1 To n1 For j = 1 To n2)+ fact(n2 s = s1 + s2: t = s2: s2 = s: s1 = t Next End Function

Private Sub Command2_Click()n = InputBox(”請輸入n“)Print s(n)End Sub 17.編寫2個函數，分別采用遞歸法和遞推法求斐波納契數列的第n個月的兔子數，n使用inputbox輸入，調用函數的結果在窗體上顯示。Private Sub Command1_Click()List1.Clear Dim i As Integer For i = Val(Text1.Text)To Val(Text2.Text)If isprime(i)= True Then

List1.AddItem(i)

c = c + 1

If i Mod 10 = 9 Then

/ 19

List1.Selected(c1 If n Mod i = 0 Then

isprime = False

Exit For End If Next End Function 18 Dim sum As Long Private Sub Command1_Click()

Dim i As Integer, j As Integer, a(40)As Long

a(1)= 1

a(2)= 1

For i = 3 To 40

a(i)= a(i2)

Next i

sum = 0

For j = 1 To 40

sum = sum + a(j)

Next j End Sub

Private Sub Command2_Click()

Open ”out18.txt“ For Output As #1

Print #1, ”數列1，1，2，3，5，8…的前四十項的之和是：“

Print #1, sum

Close #1 End Sub 1.百錢買百雞

Option Explicit

Private Sub Command1_Click()Dim a As Integer, b As Integer For a = 1 To 34

For b = 1 To 20

If 3 * a + 5 * b +(100b)/ 3 = 100 Then

/ 19

Print a;

Print b;

Print 100b

End If

Next b Next a End Sub 2.分錢作業

Private Sub Command1_Click()Dim a As Single,b as single,c as single a = Text1.Text b = Fix(a / 100)Print ”100元：“;Print b c = ab * 50

b = Fix(c / 20)Print ”20元：“;Print b c = c0.05 * b b = Fix((c + 0.005)/ 0.02)Print ”0.02元：“;Print b c = c1

If a(i)= a(j)Then

GoTo aaa

End If

Next j

Next i For i = 1 To 10

Print a(i);Next i Print End Sub

Private Sub Command2_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 + i To 10

If a(i)> a(j)Then

t = a(j)

a(j)= a(i)

a(i)= t

End If

Next j Next i For i = 1 To 10

Print a(i);Next i Print

End Sub

Private Sub Command3_Click()Dim i As Integer, j As Integer, t As Integer For i = 1 To 9

For j = 1 To 10c)> 10 ^(-5)i =(a + b)/ 2

If i ^ 2c = 0 Then

Exit Do

Else

a = i

End If Loop MsgBox(i)End Sub 7.閏年

Option Explicit

Private Sub 計算_Click()Dim i As Integer i = InputBox(”請輸入一個年份“)If i Mod 4 = 0 And i Mod 400 = 0 Then

If i Mod 100 <> 0 Then

MsgBox ”NOT“

Else

MsgBox ”YES“

End If Else

MsgBox ”NOT“ End If

End Sub 8.三角

Option Explicit Private Sub Command1_Click()

/ 19

Dim a As Single Dim b As Single Dim c As Single Dim p As Single Dim s As Single

a = Text1.Text b = Text2.Text c = Text3.Text

p =(a + b + c)/ 2

s = Sqr((pb)* p +(p1

If n Mod i = 0 Then

MsgBox ”NOT“

Exit For

End If Next i If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command2_Click()

Dim a As Boolean, n As Double, i As Double a = False n = InputBox(”請輸入一個數：“)For i = 2 To n-1

If n Mod i = 0 Then

a = True

Exit For

End If Next i If a = True Then

/ 19

MsgBox ”NOT“ Else

MsgBox ”YES“ End If End Sub

Private Sub Command3_Click()Dim n As Double, i As Double n = InputBox(”請輸入一個數：“)i = 2 Do While i < n

If n Mod i = 0 Then

MsgBox ”NOT“

Exit Do

End If i = i + 1 Loop If i = n Then

MsgBox ”YES“ End If End Sub

Private Sub Command4_Click()Dim n As Double, i As Double, sushu As Boolean n = InputBox(”請輸入一個數：“)i = 2 sushu = True Do While i < n And sushu = True

If n Mod i = 0 Then

sushu = False

End If i = i + 1 Loop If sushu = True Then

MsgBox ”YES“ Else

MsgBox ”NOT" End If End Sub

/ 19

第三篇：VB上機考試習題以及答案

VB上機考試

1、利用隨機函數產生25個100到999之間的整數，構成5?5的矩陣，輸出該矩陣。Dim a(1 To 5, 1 To 5)Private Sub Form_Click()Randomize For i = 1 To 5 For j = 1 To 5 a(i, j)= Int(Rnd *(99910 + 1)+ 10)Print a;s = s + a Next i Print Avg = s / 25 Print Avg End Sub

3、在窗體上按下鼠標的右鍵，記錄其坐標。

Private Sub Form_Load()Label1.BorderStyle = 1 Label1.Alignment = 2 End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 2 Then Label1.Caption = X & “,” & Y End If End Sub

4、利用隨機函數產生25個10到99之間的整數，按從小到大的順序顯示。Dim a(1 To 25)Private Sub Form_Click()Cls For i = 1 To 25 a(i)= Int(Rnd *(991 For j = 1 To 251 + 1)+ 1)a(x)= a(x)+ 1 Next j For i = 1 To 6 Print i & “出現了” & a(i);“次” Next i

End Sub

6、在文本框中輸入一些英語單詞，統計空格的個數。

Dim n%, x As String, s% Private Sub Form_Click()n = Len(Text1.Text)x = Text1.Text For i = 1 To n If Mid(x, i, 1)= “ ” Then s = s + 1 Next i Print “共出現了” & s & “個空格” End Sub

7、編程計算下列公式的值，其中n(<10)為從鍵盤輸入的正整數。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“請輸入一個不大于10的整數”))s = 0 For i = 1 To 2 * n2 * i1 a = a + 1 Print Str(a);Next j Print Next i End Sub

10、用For …Next語句編程，雙擊窗體后，在屏幕上顯示如圖：

Private Sub Form_DblClick()For i = 1 To 3 Print Tab(113 * i);For j = 1 To 5 Print x;Next j Print Next i End Sub

12、從文本框輸入一個正整數，判斷該數是否為素數。Dim a As Long Private Sub Form_Click()a = Val(Text1.Text)If a = 2 Then Tag = True ElseIf a Mod 2 = 0 Then Tag = False Else Tag = True For i = 3 To Sqr(a)Step 2 If a Mod i = 0 Then Tag = False: Exit For Next i End If If Tag = True Then Print a;“是素數” Else Print a;“不是素數” End If

End Sub

13、利用隨機函數產生并顯示10個3位數的正整數，找出其中的最大數。Option Explicit Dim i%, max%, loc% Dim a(1 To 10)As Integer Private Sub Form_Click()Randomize Form1.Cls For i = 1 To 10 a(i)= Int(Rnd *(9991000 + 1)+ 1000)Print a(i)Next i min = 9999 For i = 1 To 10 If a(i)< min Then min = a(i): loc = i Next i Print “最小的數是”;min Print “在數組中是第”;loc;“個數” End Sub

15、當按下鼠標左鍵時，窗體的背景色變為紅色；松開鼠標左鍵時，窗體的背景色變為綠色。Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbRed

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Form1.BackColor = vbGreen End Sub

16、編制一個時鐘程序，如下圖

：Option Explicit

Private Sub Form_Load()Label1.BackColor = vbWhite Label1.BorderStyle = 1 Label1.Alignment = 2 Timer1.Enabled = True Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()Label1.Caption = Time End Sub

17、從鍵盤輸入10個數，按輸入的順序和按輸入順序相反的順序輸出。Option Explicit Dim i% Dim a(1 To 10)As Single Private Sub Form_Click()For i = 1 To 10 a(i)= Val(InputBox(“請輸入第” & i & “個數”))Print a(i);Next i Print For i = 10 To 1 Step-1 Print a(i);Next i

End Sub

18、計算圓面積的程序。程序運行時，單擊窗體，然后在下圖所示的輸入框中輸入圓的半徑，即可在窗體上顯示計算出的圓面積。

Option Explicit Dim r%, a As Single Const pi As Single = 3.14159 Private Sub Form_Click()r = Val(InputBox(“請輸入圓半徑” & vbCrLf & “（1-9）：”, “輸入”, 5))a = pi * r ^ 2 Print “半徑為”;r;“的圓面積為”;a End Sub

19、編寫一個時鐘程序，當選擇“24小時”時，以24小時的方式顯示如A，當選擇“12小時”時，以12小時的方式顯示如B。

Private Sub Form_Load()Timer1.Interval = 1000 End Sub

Private Sub Timer1_Timer()Select Case True Case Option1.Value Label1.Caption = Time Case Option2.Value Label1.Caption = Format(Time, “HH:MM:SS AM/PM”)End Select End Sub 20、設計一個程序，用戶界面如圖所示。程序運行后，用戶在文本框中輸入一段文字，然后按需要單擊選擇框，用以改變文本的字體、字型、顏色以及大小。

Option Explicit

Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontName = “黑體” Else Text1.FontName = “宋體” End If End Sub

Private Sub Check2_Click()If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End If End Sub

Private Sub Check3_Click()If Check3.Value = 1 Then Text1.FontSize = 20 Else

Text1.FontSize = 9 End If End Sub

Private Sub Check4_Click()If Check4.Value = 1 Then Text1.ForeColor = vbGreen Else Text1.ForeColor = vbBlack End If End Sub

Private Sub Command1_Click()Text1.Text = “" End Sub

Private Sub Command2_Click()End End Sub 20做出2個周期的正弦波形.Private Sub Form_Click()Dim i%, x#, y# Const pi As String = 3.1415926 Form1.Scale(-2 * pi, 1.2)-(2 * pi,-1.2)Form1.Line(-2 * pi, 0)-(2 * pi, 0)Form1.Line(0, 1.2)-(0,-1.2)For x =-2 * pi To 2 * pi Step 0.01

y = Sin(x)

Form1.PSet(x, y)Next x End Sub 21以窗體為中心,產生1000個半徑顏色隨機的同心圓.Private Sub Form_Click()For i = 1 To 1000

x = Form1.ScaleWidth / 2

y = Form1.ScaleHeight / 2

r = Int(Rnd * y)

c = RGB(255 * Rnd, 255 * Rnd, 255 * Rnd)

Form1.Circle(x, y), r, c Next End Sub 22.九九乘法表 Private Sub Form_Click()Dim i%, j% Form1.Caption = ”九九乘法表“ Print Tab(48);Caption Print Tab(48);”-------------“ For i = 1 To 9

For j = 1 To i

Print Tab((j-1)* 12 + 1);i;”*“;j;”=“;i * j;

Next j Print Next i End Sub 23求最大公約數和最小公倍數 Private Sub Command2_Click()Text1.Text = ”“ End Sub

Private Sub command1_Click()Dim m%, n%, r%, t% m = Val(Text1.Text)n = Val(Text2.Text)If m < n Then t = m: m = n: n = t t = m * n Do

r = m Mod n

m = n

n = r Loop Until r = 0 Text3.Caption = ”公約數:“ & m Text4.Caption = ”公倍數" & t / m End Sub 24.用隨機函數產生50個兩位數,保存于一個一維數組中,要求找出其中的最大值,最小值及所在位置.

第四篇：vb試題及答案

VB試卷

一、單項選擇題(每題2分,共40分)1.窗體的標題欄顯示內容由窗體對象的屬性決定。

A)BackColor B)BackStyle C)Text D)Caption 2.窗體的示意圖標可用屬性來設置。

A)Picture B)Image C)Icon D)MouseIcon 3.窗體的控制菜單的有無由窗體對象的屬性決定。

A)ControlBox B)MinButton C)MaxButton D)BorderStyle 4.若要取消窗體的最大化功能，則可設置屬性為False來實現。

A)ControlBox B)MinButton C)MaxButton D)Enabled 5.以下4個選項，不屬于VB的工作模式。

A)編譯 B)設計 C)運行 D)中斷 6.窗體的邊框樣式由窗體對象的屬性來設置。

A)BackStyle B)BorderStyle C)WindowState D)FillStyle 7.若要以程序代碼方式設置在窗體中顯示文本的字體大小，則可用窗體對象的屬性來實現。

A)FontName B)Font C)FontSize D)FontBold 8.命令按鈕的標題文字由屬性來設置。

A)Text B)Caption C)Name D)(名稱)9.VB是面向對象的程序設計，以下4個選項，不屬于面向對象的三要素。A)變量 B)屬性 C)事件 D)方法

10.若要將某命令按鈕設置為默認命令按鈕，可設置屬性為True來實現。A)Value B)Cancel C)Default D)Enabled 11.若要使命令按鈕不可見，可設置屬性為False來實現。

A)Value B)Enabled C)Visible D)Cancel 12.運行程序時，系統自動執行窗體的事件。

A)load B)click C)unload D)GotFocus 13.若要設置文本框最大可接收的字符數，可通過屬性來實現。

A)MultiLine B)Length C)Max D)MaxLength 14.若要使某命令按鈕獲得控制焦點，可使用方法來設置。

A)Refresh B)SetFocus C)GotFocus D)Value 15.若要使命令鈕可響應事件，可通過設置屬性的取值來實現。

A)Visible B)Enabled C)Default D)Value 16.在運行時，若要調用某命令按鈕的Click事件過程，可設置該命令按鈕對象的 屬性為True來實現。

A)Enabled B)Value C)Default D)Cancel 17.標簽框的邊框，由屬性的設置值決定。A)BorderStyle B)BackStyle C)BackColor D)AutoSize 18.標簽框文本的對齊方式由屬性來決定。

A)Align B)Alignment C)Autosize D)BackStyle 19.標簽框所顯示的內容，由屬性值決定。

A)Text B)Name C)Caption D)Alignment 20.在運行時，若要獲得用戶在文本框中所選擇的文本，可通過訪問屬性來實現。A)SelStart B)SelLength C)Text D)SelText

二、填空題(每題2分,共20分)1.Visual Basic是一種面向的可視化程序設計語言，采取了的編程機制。2.在VB集成開發環境中，運行應用程序的方法有兩種是：或。

3．Visual Basic的對象主要分為和兩大類。

4.在Visual Basic中，用來描述一個對象外部特征的量稱之為對象的。

5.在Visual Basic中，設置或修改一個對象的屬性的方法有兩種，它們分別是 和。

6.在Visual Basic中，最基本的對象是。

7.在Visual Basic中，默認窗體名為，默認工程名為。8.若用戶單擊了窗體Form1，則啟動的事件名為。9.調用方法的具體調用格式為。10．在代碼中設置對象屬性的格式為。

三、簡答題(每題8分,共40分)1.簡述VB的特點。

2.安裝Visual Basic系統程序應具備什么條件？ 3.啟動Visual Basic有幾種方法？ 4．退出Visual Basic有幾種方式？

5．什么是對象？什么是類？簡述它們之間的關系。參考答案:

一、單項選擇題

1.答：D 2.答：C 3.答：A 4.答：C 5.答：A 6.答：B 7.答：C 8.答：B 9.答：A 10.答：C 11.答：C 12.答：A 13.答：D 14.答：B 15.答：B 16.答：B 17.答：A 18.答：B 19.答：C 20.答：D

二、填空題

1.答：對象，事件驅動

2.答：編譯運行模式、解釋運行模式

3.答：窗體、控件 4.答：屬性

5.答：在設計階段利用屬性列表框進行設置、在程序中通過程序代碼進行設置 6.答：窗體

7.答：Form1、工程1 8.答：Click 9.答：對象名.方法名［參數名表］ 10．答：對象名.屬性名＝屬性值

三、簡答題

1.答：Visual Basic是Microsoft 公司與1991年推出的基于Windows環境的語言，其主要特點如下：

(1)方便、直觀的可視化的程序設計工具；

(2)面向對象的程序設計方法；

(3)事件驅動的編程機制；

(4)結構化程序設計語言；

(5)強大的數據庫訪問能力；

(6)提供強大的網絡功能，并具備完備的聯機幫助功能；

(7)強大的數據庫管理和存取操作的能力。2.答：任何一個軟件都要占用計算機系統一定的資源，因此對計算機系統都有一定的要求，Visual Basic系統程序對計算機系統的要求如下：

硬件要求：586以上CPU，16MB以上內存，100MB以上硬盤等。軟件要求：Windows 95/98/2000/XP或Windows NT。3.答：通常有以下三種啟動方式：

(1)通過“開始”按鈕：單擊桌面上的“開始”/“程序”菜單，然后打開“Microsoft Visual Studio 6.0中文版”子菜單中的“Microsoft Visual Basic 6.0中文版”程序，即可啟動VB 6.0。

(2)利用快捷方式：若桌面上有VB 6.0的快捷圖標，雙擊快捷圖標也可啟動VB 6.0。(3)利用運行命令：當VB系統軟件安裝在C盤默認路徑下時，可以在“開始”菜單的運行對話框中輸入如下命令來啟動VB 6.0。

C:Program FilesMicrosoft Visual StudioVB 98VB6.exe。4．答：通常有四種方式：

(1)利用文件菜單：單擊菜單“文件”/“退出”，即可退出VB環境。(2)利用快捷方式：利用快捷鍵Alt+F4，即可退出VB環境。(3)利用標題欄：鼠標右擊標題欄，選擇“關閉”，即可退出VB環境。

(4)利用關閉按鈕：鼠標單擊窗口右上方“關閉”按鈕，即可退出VB環境。

5．答：對象(Object)是包含現實世界物體特征的抽象實體，反映了系統為之保存信息和與之交互的能力。每個對象有各自的內部屬性和操作方法，整個程序是由一系列相互作用的對象構成的，對象之間的交互通過發送消息來實現。

類(class)是指具有相同的屬性和操作方法，并遵守相同規則的對象的集合。從外部看，類的行為可以用新定義的操作(方法)加以規定。

類是對象集合的抽象，規定了這些對象的公共屬性和方法；而對象是類的一個實例。

第五篇：VB試題及答案

VB試題及答案

一、基本概念及基本操作

1、如果要向工具箱中加入控件和部件，可以利用“工程”菜單中的______命令。

A、引用 B、部件 C、工程屬性 D、添加窗體

2、VB一共有設計、運行和中斷三種模式，要使用調試工具應該______。

A、進入設計模式 B、進入運行模式 C、進入中斷模式 D、不用進入任何模式

3、系統符號常量的定義可以通過______獲得。

A、對象瀏覽器 B、代碼窗口 C、屬性窗口 D、工具箱

4、在設計階段，當雙擊窗體上的某個控件時，所打開的窗口是______。

A、工程資源管理器窗口 B、工具箱窗口 C、代碼窗口 D、屬性窗口

5、以下敘述中錯誤的是______。

A、用Shell函數可以調用能夠在Windows下運行的程序 B、用Shell函數可以調用可執行文件，也可調用Visual Basic 的內部函數 C、調用Shell函數的格式應為：<變量名>=Shell(......)D、用Shell函數不能執行DOS命令

6、以下敘述中錯誤的是______。

A、在工程資源管理器窗口中只能包含一個工程文件及屬于該工程的其他文件 B、以.BAS為擴展名的文件是標準模塊文件 C、窗體文件包含該窗體及其控件的屬性 D、一個工程中可以含有多個標準模塊文件

以下不屬于Visual Basic系統的文件類型是______。

A、.frm B、.bat C、.vbg D、.vbp

7、VB中窗體文件的擴展名是______。

A、VBP B、FRM C、VBW D、PDM

8、以下敘述中錯誤的是______。

A、打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件 B、保存Visual Basic程序時，應分別保存窗體文件及工程文件 C、Visual Basic應用程序只能以解釋方式執行 D、事件可以由用戶引發，也可以由系統引發

9、以下敘述中錯誤的是______。

A、一個工程可以包括多種類型的文件 B、Visual Basic應用程序既能以編譯方式執行，也能以解釋方式執行 C、程序運行后，在內存中只能駐留一個窗體

D、對于事件驅動型應用程序，每次運行時的執行順序可以不一樣

10、在Visual Basic工程中，可以作為“啟動對象”的程序是______。

A、任何窗體或標準模塊 B、任何窗體或過程

C、Sub Main過程或其他任何模塊 D、Sub Main過程或任何窗體

11、假定一個Visual Basic應用程序由一個窗體模塊和一個標準模塊構成。為了保存該應用程序，以下正確的操作是。

A、只保存窗體模塊文件

B、分別保存窗體模塊、標準模塊和工程文件 C、只保存窗體模塊和標準模塊文件 D、只保存工程文件

12、以下敘述中錯誤的是______。

A、打開一個工程文件時，系統自動裝入與該工程有關的窗體、標準模塊等文件 B、當程序運行時，雙擊一個窗體，則觸發該窗體的DblClick事件 C、Visual Basic應用程序只能以解釋方式執行 D、事件可以由用戶引發，也可以由系統引發

13、要顯示當前過程中的所有變量及對象的取值，可以利用______窗口。

A、監視 B、調用堆棧 C、立即 D、本地

14、當我們輸入代碼時，Visual Basic可以自動檢測______錯誤。A、語法錯誤 B、編譯錯誤 C、運行錯誤 D、邏輯錯誤

15、Microsoft Visual Basic 6.0包括三種版本，其中不包括______。

A、通用版 B、企業版 C、學習版 D、專業版

16、Visual Basic窗體設計器的主要功能是：______。

A、建立用戶界面 B、編寫源程序代碼 C、畫圖 D、顯示文字

17、以下關于Visual Basic特點敘述中，錯誤的是______。

A、Visual Basic是采用事件驅動編程機制的語言 B、Visual Basic程序既可以編譯運行，也可以解釋運行 C、構成Visual Basic程序的多個過程沒有固定的執行順序

D、Visual Basic程序不是結構化程序，不具備結構化程序的三種基本結構

18、以下敘述中，錯誤的是______。

A、一個Visual Basic應用程序可以含有多個標準模塊文件 B、一個Visual Basic工程可以含有多個窗體文件 C、標準模塊文件可以屬于某個指定的窗體文件 D、標準模塊文件的擴展名是.bas

19、以下敘述中錯誤的是______。A、打開一個工程文件時，系統自動裝入與該工程有關的窗體文件 B、保存Visual Basic程序時，應分別保存窗體文件及工程文件 C、Visual BaSic應用程序只能以解釋方式執行 D、窗體文件包含該窗體及其控件的屬性