第一篇：vb上機心得體會

心得體會：

剛開始學習vb的時候，我就覺得大一的計算機基礎根本不值一提，難度相去甚遠。我問過很多以前的同學，他們都說vb是編程語言中最簡單的，但是在這次上機實習過程中，我發(fā)現(xiàn)要完成學生成績管理系統(tǒng)實在有很大難度。平時看課本的時候，覺得還能夠理解，看得懂，然而“紙上得來終覺淺”，一旦自己調(diào)試程序，總會犯很多錯誤，如前面說的“文件未找到”“下標越界”等等，都是平時沒有機會解決和一些曾經(jīng)被自己忽視的問題。有時候，為了找到代碼中錯誤或不符合要求的地方，我不得不一遍又一遍地仔細檢查程序，甚至標點符號都不能放過。細節(jié)決定成敗，一個小小的分號也會起著扭轉(zhuǎn)乾坤的作用。

在實習之前，我妄想從網(wǎng)站上下載一個或者請論壇上的好友幫忙，后來我發(fā)現(xiàn)這條路走不通，他們從來都不給別人提供實質(zhì)性的幫助，只是象征性地說：“不會問老師?！庇谑俏掖蛳诉@個念頭，開始自己動手做。

當我無數(shù)次調(diào)試總算讀出文件的時候，那種高興勁可想而知。我慢慢覺得，其實自己調(diào)試程序蠻有意思的。既彌補了在vb學習中的漏洞，還學到了新內(nèi)容，積累了一定的實戰(zhàn)經(jīng)驗，對以后的期末考試和等級考試起到了相當大的促進作用。

實習過程中，多虧指導老師幫助我找出錯誤的地方。如果不是他們的細心講解，我很難完成這次實習任務。當然，我在編程方面還有很大不足，今后我定會加倍努力，為等級考試的順利通過打下牢固的基礎。

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

上機操作練習題

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

Option explicit Dim a(1 to 20)as integer, I as integer, j as integer, t as integer Private Sub Form_Load()Show Print “原始數(shù)組是：” 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 “現(xiàn)在數(shù)組是：” 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 & “不在該數(shù)組中” Else Print “刪除” & n & “后的數(shù)組是:” For i = 0 To UBound(a)Print a(i);Next i End If End Sub 3．數(shù)組a中存放著升序排列的數(shù)據(jù)，使用array賦值，將inputbox輸入的新數(shù)插入到數(shù)組中，插入后數(shù)組仍有序。

注意：要求利用動態(tài)數(shù)組，能夠?qū)崿F(xiàn)多次插入 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(“請輸入要插入的數(shù)據(jù):”)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位歌手打分，分數(shù)介于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．編寫函數(shù)求一元二次方程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.任意輸入一組字符，統(tǒng)計出大寫字母多少個，小寫字母多少個，數(shù)字多少個？要求用過程實現(xiàn)。

Call tongji(a, n, m, o)Print “數(shù)字：” & 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．隨機產(chǎn)生一個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(”請輸入十進制數(shù)字“)Text1.Text = convert(y)

End Sub

Private Sub Form_Load()

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

Option Base 1 Private Sub Command1_Click()Dim a()As Integer, n As Integer n = InputBox(”請輸入數(shù)列項數(shù)“)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個函數(shù)，分別采用遞歸法和遞推法求斐波納契數(shù)列的第n個月的兔子數(shù)，n使用inputbox輸入，調(diào)用函數(shù)的結(jié)果在窗體上顯示。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, ”數(shù)列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.分錢作業(yè)

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(”請輸入一個數(shù)：“)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(”請輸入一個數(shù)：“)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(”請輸入一個數(shù)：“)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上機試題及答案

1、在工程中添加一個窗體form1，當用戶單擊窗體時，在窗體上顯示九九乘法表程序。結(jié)果如下圖所示（本題編程解決，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，如圖設置屬性。

要求：當用戶單擊“加粗”、“斜體”、“下劃線”這三個復選框時（即當復選框被選中時）能將文本框的字形變?yōu)椤按煮w、斜體、加下劃線”（本題編程完成，滿分：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，在窗體上按下圖放置兩個標簽和一個文本框，一個列表框和一個命令按鈕，各控件的名稱屬性取默認值。其他屬性按下圖進行設置。

要求：當用戶在文本框輸入他的籍貫后，單擊“添加籍貫”按鈕時，能夠?qū)⒓炋砑拥搅斜砜蛑小ｋp擊列表框中的某一項時將該項刪除.（本題：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上機實習第五、六章

165

6.2.1題目

一、選擇題

1.以下敘述中，錯誤的是（）。

A.雙擊鼠標可以觸發(fā)DbiClick事件

B.窗體或控件的事件名稱可以由編程人員確定

C.移動鼠標時會觸發(fā)MouseMove事件

D.控件的名稱可由編程人員確定

2.程序運行后，先將焦點移到文本框中，按A鍵，然后單擊窗體，則在窗體上顯示的內(nèi)容是（）。

A．MouseDownB。MouseUpC。LoadD。Click

3.窗體的MouseDown事件過程如下：

From_MouseDown（button As Integer，shift，xAs Single，y As Single）

其中有4個參數(shù)，正確的描述是（）。

A． 通過button參數(shù)可判定當前按下的是哪一個鼠標按鍵

B． Shoft參數(shù)只能用來確定是否按下Shift鍵

C． Shift參數(shù)只能用來確定是否按下Alt鍵與Ctel鍵

D． 參數(shù)x、y是用來設置鼠標當前位置的坐標

4.當用戶按下并釋放一個鍵后觸發(fā)KeyPress、KeyUp和KeyDown事件，這3個事件的發(fā)生順序是（）

A．KeyPress、KeyUp、KeyDown

B．KeyDown、KeyUp、KeyPress

C．KeyPress、KeyDown、KeyUp

D．KeyDown、KeyPress、KeyUp

5.設窗體的KeyPreview屬性為True，并且有下列程序。當焦點在窗體上的文本框上時，按下X鍵，文本框接收到的字符是（）。

Private Sub From_keyDown（keycode AS Integer，Shift As Integer）

Keycode=keycode+1

End Sub

A.XB.YC.空格D.沒有接收到字符

6.下列關于鍵盤事件的說法中，正確的是（）。

A.按下鍵盤上的任意一個鍵和數(shù)字鍵盤的1鍵的keycode碼相同

B.大鍵盤上的1鍵和數(shù)字鍵盤的1鍵的keycode碼相同

C.keyDown和KeyUp事件過程中都有keyascii參數(shù)

D.大鍵盤上的4鍵的上檔字符是“￥”，當同時按下Shift鍵和大鍵盤上的4鍵時，Key-Press事件過程中的keyascii參數(shù)值是“$”的ASCII值。

7.在KeyDown或KeyUp事件過程中，能用來檢查Ctrl和F3鍵是否同時被按下的表達式是（）。

A.（button=vbCtrlMask）And(keycode=vbKeyF3)

B.Keycode=vbKeyControl+vbKeyF3

C.(keycode=vbKeyF3)And(shift And vbCtrlMask)

D.(shift And VBCtrlMask)And(keycode And vbKeyF3)

1.2.3.4.5.6.7.在執(zhí)行KeyPress事件過程時，keyascii是所按鍵____ 值。對于有上檔字符和下檔字符的鍵，當執(zhí)行KeyPress事件過程中，keycode是____ 字符的____ 值在KeyDown和KeyUp事件過程中，當參數(shù)shift的值為____，____，____，時，分別代表____，____，____ 鍵 在MouseDown和KeyUp事件過程中，當參數(shù)shift值為____，____，____，時，分別代表鼠標的____，____，____，鍵 當用戶單擊鼠標右鍵時，MouseDown,MouseUp和MouseMove事件過程中的button參數(shù)值為____當用戶同時按下Ctrl和Shift鍵時，單擊鼠標，MouseDown,MouseUp和MouseMove事件過程中的shift參數(shù)為____，如果要在程序運行期間改變鼠標的形狀必須先將MousePointer設置為vbCustom,然后在程序中用LoadPicture函數(shù)將需要的圖標文件《。Ico》或指針文件《.cur》裝入____ 屬性中。7.只要將MousePointer屬性設置為______，鼠標指針就會恢復原樣。

1．在菜單中放置分隔欄的方法是將該菜單項的Caption設為()

A．連字符(-)B．下劃線(__)

C．連接符(&)D．兩個連續(xù)的下劃線(_ _)

2．以下陳述中正確的是()(多選)

A．分隔欄可以出現(xiàn)在頂級菜單項中

B．頂級菜單項的Checked屬性不能為True

C．對同一個菜單項，為其指定訪問鍵后，就不能再為其指定快捷鍵

D．菜單項的Enabled屬性設為False后，它會被灰化顯示

3．菜單項數(shù)組必須滿足()(多選)

A．Name屬性值可以不同 B．有相同的行首縮進

C．所有元素在菜單中可以不連續(xù) D．各元素必有惟一索引值

4．為了響應工具欄上的多個按鈕的單擊事件，可以通過按鈕的()屬性識別是由哪個按鈕引發(fā)。

A．Button B．Key C．Index D．B 和C均可

5．在使用菜單編輯器創(chuàng)建菜單時，可在菜單名稱中某字母前插入()符號，那么在運行程序時按Alt鍵和該字母鍵就可以打開該命令菜單。

A．下劃線 B．& C．$ D．@

6．如果要在兩個菜單命令項之間加一條分隔線，可在標題文本框中鍵入()。

A．– B．+ C．& D．#

7．在用菜單編輯器設計菜單時，必須輸入的項是()。

A．快捷鍵 B．標題 C．索引 D．名稱

8．菜單控件僅支持以下()事件。

A．Click B．MouseDown C．KeyPress D．Load

9．在使用彈出菜單時，下面說法不正確的情況是()。

A．只能同時顯示一個彈出菜單

B．使用PopupMenu 方法來顯示彈出菜單

C．在設計時，應該將彈出菜單的頂層菜單項的Visible屬性設為False

D．在顯示彈出菜單以后，將執(zhí)行以后的代碼

10．下列不能打開菜單編輯器的操作是()。

A．按Ctrl+E

B．單擊工具欄中的“菜單編輯器”按鈕

C．執(zhí)行“工具”菜單中的“菜單編輯器”命令

D．按Shift + Alt + M

11．假定有一個菜單項，名為MenuItem，為了在運行時使該菜單項失效(變灰)，應使用的語句為()。

A．MenuItem.Enabled=False B．MenuItem.Enabled=True

C．MenuItem.Visible=True D．Menultem.Visible=False

12．以下關于菜單編輯器中“索引”項的敘述中，錯誤的是()。

A．“索引”確定了菜單項顯示的順序

B．“索引”是控件數(shù)組的下標

C．使用“索引”時,可有一組菜單項具有相同的“名字”

D．使用“索引”后,在單擊菜單項的事件過程中可以通過“索引”引用菜單項

13．用戶通過設置菜單項的()屬性值為False來使該菜單項不可見。

A．Hide B．Checked C．Visible D．Enabled

14．下列關于菜單的說法中，錯誤的是()。

A．每個菜單項都是一個控件，與其他控件一樣也有其屬性和事件

B．除了Click事件之外，菜單項不可以響應其他事件

C．菜單項的索引號可以不連續(xù)

D．菜單項的索引號必須從1開始

17．以下有關由多個窗體和標準模塊組成的應用程序設計方法的敘述中，錯誤的是()。

A．在缺省情況下，設計時的第一個窗體被指定為啟動窗體

B．通過人為設置，可指定任一窗體為啟動窗體

C．通過人為設置，可指定標準模塊中的Main()過程為啟動過程

D．通過人為設置，可指定窗體模塊中的Main()過程為啟動過程

18．以下陳述中正確的是()。(多選)

A．一個應用程序中只能有一個MDI父窗體

B．MDI父窗體上可以放置任意控件

C．可以用Print方法在MDI父窗體上顯示信息

D．一個MDI子窗體最小化后，其圖標顯示在MDI父窗體中

19．要在工程中創(chuàng)建一個MDI父窗體只要()。(多選)

A．在菜單中選擇“工程”—“添加MDI窗體”

B．在工具欄的添加按鈕的下拉菜單中選擇“MDI窗體”

C．新建一個窗體，其將MDIChild屬性設為True

D．新建一個窗體，其將MDIChild屬性設為False

20．要使MDI子窗體在加載時就自動顯示出來，應()。

A．將Scrollbars屬性設為True

B．將Scrollbars屬性設為False

C．將AutoShowChildren屬性設為True

D．將AutoShowChildren屬性設為False

21．使用MDI窗體時，對于下面的說法選擇正確的選項()。

A．能在MDI窗體中打開多個文檔界面

B．子窗體是模式窗口

C．子窗體的和父窗體能夠同時顯示自己的菜單

D．如果子窗體的BorderStyle屬性為vbFixedToolWindow,其大小將不能改變

22．多窗體程序由多個窗體組成。在缺省情況下，VB在執(zhí)行應用程序時，總是把()指定為啟動窗口。

A．不包含任何控件的窗口 B．設計時的第一個窗體

C．命名為Frm1的窗體 D．包含控件最多的窗體

23．要使自定義的對話框Form1退出，可以在該對話框的“退出”按鈕的Click事件過程中使用以下()中的一個語句。(多選)

A．Form1.Unload B．UnloadForm1

C．Form1.Hide D．Unload Me

24．MDI窗體的QueryUnload事件將在()時候被觸發(fā)。(多選)

A．在代碼中使用Unload語句

B．當前Windows操作結(jié)束

C．利用Windows任務管理器關閉應用程序

D．MDI窗體正在關閉

E．窗體的所有者正在關閉

F．雙擊窗體圖標或選擇控制菜單中的“關閉”命令

二、填空題

1．菜單編輯器的“標題”選項對應于菜單控件的____________屬性。

菜單編輯器的“名稱”選項對應于菜單控件的____________屬性。

菜單編輯器的“可見”選項對應于菜單控件的____________屬性。

菜單編輯器的“索引”選項對應于菜單控件的____________屬性。

菜單編輯器的“復選”選項對應于菜單控件的____________屬性。

菜單編輯器的“有效”選項對應于菜單控件的____________屬性。

2．菜單分為______菜單和______菜單，菜單總與__________相關聯(lián)，設計菜單需要在______中設計。

3．不可以給______級菜單設置快捷鍵。

4．菜單中的分隔條是一種菜單控件，但不響應__________事件，也不能被選中。

5．為顯示彈出式菜單，可以使用__________方法。

6．如果菜單標題的某個字母前輸入一個“&”符號，那么該字母就成了熱鍵字母；如果在建立菜單時在標題文本框中輸入一個“______”，那么顯示時形成一個分隔符。

7．如果把菜單項的______屬性設置為True，則該菜單項成為一個選項。

8．不管是在窗口頂部菜單條上顯示的菜單，還是隱藏的菜單，都可以用______方法把它們作為菜單在程序運行期間顯示出來。

9．菜單設計中每一個菜單項是一個控件，這些控件都只有一個______事件。

10．為了能夠通過鍵盤訪問主菜單項，可在菜單編輯器的“標題”選項中的某字母前插入_______符號。運行時，該字母會帶有下劃線，按Alt鍵和該字母就可以訪問相應的主菜單項。

11．彈出式菜單在___________中設計，且一定要使其______級菜單不可見。

12．要使用工具欄控件設計工具欄，應先在“部件”對話框中選擇__________，然后從工具箱中選__________控件。

13．設置工具欄控件的__________屬性可以改變工具欄在窗體上的位置。

14．要給工具欄按鈕添加圖像，應首先在__________控件中添加所需要的圖像，然后在工具欄的屬性頁中選擇與該控件相關聯(lián)。

15．運行時，要使工具欄ToolBar1中索引值為5的按鈕無效，應使用語句：________________________________。

16．要使工具欄控件的某按鈕呈菜單的式樣，可以在其屬性頁中設置其______選項為5-tbrDropDown。

17．要使用狀態(tài)欄控件設計狀態(tài)欄，應首先在“部件”對話框中選擇________________，然后從工具箱中選擇__________控件。

18．狀態(tài)欄由多個“窗格”對象組成，“窗格”對象的特征是通過狀態(tài)欄的_____屬性決定的。

19．要在運行時給狀態(tài)StstusBar1的第二個窗格添加一幅圖片，該圖片由文件“c:windowsglass.ico”指定，應使用語句：______________________________。

20．SDI指__________界面，MDI指__________界面。

21．要將某窗體定義為一個MDI子窗體，需要將其__________屬性設置為True

22．在一個MDI應用程序中，可以含有________、_______、______這3類窗體。

23．一個應用程序最多可以有__________個MDI父窗體。

24．在運行時，MDI父窗體中的子窗體最小化時，其圖標將顯示在_________中。

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

VB上機考試

1、利用隨機函數(shù)產(chǎn)生25個100到999之間的整數(shù)，構(gòu)成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、利用隨機函數(shù)產(chǎn)生25個10到99之間的整數(shù)，按從小到大的順序顯示。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 & “出現(xiàn)了” & a(i);“次” Next i

End Sub

6、在文本框中輸入一些英語單詞，統(tǒng)計空格的個數(shù)。

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 “共出現(xiàn)了” & s & “個空格” End Sub

7、編程計算下列公式的值，其中n(<10)為從鍵盤輸入的正整數(shù)。S=1!+3!+5!+……+(2*n-1)!Private Sub Form_Click()n = Val(InputBox(“請輸入一個不大于10的整數(shù)”))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、從文本框輸入一個正整數(shù)，判斷該數(shù)是否為素數(shù)。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;“是素數(shù)” Else Print a;“不是素數(shù)” End If

End Sub

13、利用隨機函數(shù)產(chǎn)生并顯示10個3位數(shù)的正整數(shù)，找出其中的最大數(shù)。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 “最小的數(shù)是”;min Print “在數(shù)組中是第”;loc;“個數(shù)” End Sub

15、當按下鼠標左鍵時，窗體的背景色變?yōu)榧t色；松開鼠標左鍵時，窗體的背景色變?yōu)榫G色。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個數(shù)，按輸入的順序和按輸入順序相反的順序輸出。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 & “個數(shù)”))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以窗體為中心,產(chǎn)生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求最大公約數(shù)和最小公倍數(shù) 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 = ”公約數(shù):“ & m Text4.Caption = ”公倍數(shù)" & t / m End Sub 24.用隨機函數(shù)產(chǎn)生50個兩位數(shù),保存于一個一維數(shù)組中,要求找出其中的最大值,最小值及所在位置.