期末復(fù)習(xí)之VB編程題匯總

1、第2章補(bǔ)充實(shí)驗(yàn)1、設(shè)計(jì)程序， 在窗體上建立3個(gè)命令按鈕，隱藏最小化、最大化按鈕，如圖1所示。單擊3個(gè)命令按鈕后分別使窗體最大化、還原或最小化。最后將工程文件、窗體文件分別以ch2-1.vbp、ch2-1.frm為文件名保存在D:ch2文件夾下。圖1參考代碼：Private Sub Command1_Click() Form1.WindowState = 2End SubPrivate Sub Command2_Click() Form1.WindowState = 0End SubPrivate Sub Command3_Click() Form1.WindowState = 1End Sub

2、2、設(shè)計(jì)程序， 在窗體上建立3個(gè)命令按鈕，3個(gè)文本框，如圖2、圖3所示。利用2個(gè)文本框輸入兩個(gè)數(shù)，單擊“計(jì)算”按鈕時(shí)，將兩個(gè)數(shù)的平方和顯示在第三個(gè)文本框中；單擊“清除”按鈕，清除所有文本框的內(nèi)容；單擊“定位”按鈕，將光標(biāo)定位到第二個(gè)文本框中。最后將工程文件、窗體文件分別以ch2-2.vbp、ch2-2.frm為文件名保存在D:ch2文件夾下。圖2圖3參考代碼：Private Sub Command1_Click() Text3 = Text1 2 + Text2 2End SubPrivate Sub Command2_Click() Text1 = Text2 = Text3 = End S

3、ubPrivate Sub Command3_Click() Text2.SetFocusEnd Sub3、設(shè)計(jì)一個(gè)調(diào)色板程序， 在窗體上建立5個(gè)命令按鈕，1個(gè)標(biāo)簽，如圖4所示。單擊對(duì)應(yīng)的顏色按鈕，將在標(biāo)簽中顯示對(duì)應(yīng)的顏色。最后將工程文件、窗體文件分別以ch2-3.vbp、ch2-3.frm為文件名保存在D:ch2文件夾下。圖4參考代碼：Private Sub Command1_Click() Label1.BackColor = vbRedEnd SubPrivate Sub Command2_Click() Label1.BackColor = vbGreenEnd SubPrivate

4、Sub Command3_Click() Label1.BackColor = vbBlueEnd SubPrivate Sub Command4_Click() Label1.BackColor = vbBlackEnd SubPrivate Sub Command5_Click() Label1.BackColor = vbWhiteEnd Sub第5章補(bǔ)充實(shí)驗(yàn)1、設(shè)計(jì)一個(gè)程序，要求如下：產(chǎn)生10個(gè)2位隨機(jī)正整數(shù)；在窗體上分別輸出10個(gè)2位隨機(jī)正整數(shù)的正序和逆序；求出這10個(gè)數(shù)的平均值ave、最大值max和最小值min，并輸出到一個(gè)標(biāo)簽上；窗體的參考運(yùn)行結(jié)果界面如圖1所示。最后將工程文件、

5、窗體文件分別以ch5-1.vbp、ch5-1.frm為文件名保存在D:ch5文件夾下。圖1 參考運(yùn)行結(jié)果界面參考代碼：Option Base 1Private Sub Command1_Click() Dim a(10) As Integer, ave!, max%, min%, i% Randomize Print 10個(gè)數(shù)的正序?yàn)椋? For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 ave = ave + a(i) Print a(i); Next ave=ave/10 Print Print 10個(gè)數(shù)的逆序?yàn)椋? For i = 10 To 1 Ste

6、p -1 Print a(i); Next Print max = a(1): min = a(1) For i = 2 To 10 If a(i) max Then max = a(i) Else min = a(i) End If Next Label1 = 平均值： & ave & vbCrLf & 最大值： & max & vbCrLf & 最小值： & minEnd SubPrivate Sub Command2_Click() EndEnd Sub2、編寫(xiě)程序產(chǎn)生44矩陣A，輸出矩陣A，以及矩陣A的上三角矩陣和下三角矩陣。程序參考運(yùn)行結(jié)果界面如圖2所示。最后將工程文件、窗體文件分別

7、以ch5-2.vbp、ch5-2.frm為文件名保存在D:ch5文件夾下。圖2 參考運(yùn)行結(jié)果界面參考代碼：Option Base 1Private Sub Command1_Click() Dim a%(4, 4), b%(4, 4), i%, j% For i = 1 To 4 產(chǎn)生數(shù)組A For j = 1 To 4 a(i, j) = 4 * (i - 1) + j Next j Next i Print 產(chǎn)生的矩陣A為：; 輸出數(shù)組A For i = 1 To 4 For j = 1 To 4 Print Tab(10 + j * 4); a(i, j); Next j Print N

8、ext i Print 它的上三角矩陣為： 輸出數(shù)組A的上三角矩陣 For i = 1 To 4 For j = i To 4 Print Tab(10 + j * 4); a(i, j); Next j Print Next i Print 它的下三角矩陣為： 輸出數(shù)組A的下三角矩陣 For i = 1 To 4 For j = 1 To i Print Tab(10 + j * 4); a(i, j); Next j Print Next iEnd Sub第3章補(bǔ)充實(shí)驗(yàn)11、設(shè)計(jì)程序，求出VB系統(tǒng)賦給各種類型變量的默認(rèn)值，將工程文件、窗體文件分別以ch31-1.vbp、ch31-1.frm

9、為文件名保存在D:ch31文件夾下，并根據(jù)程序的運(yùn)行結(jié)果及所學(xué)的知識(shí)填寫(xiě)表1。表1類 型類型名類型符默認(rèn)值字節(jié)型Byte無(wú)0整型Intege%0長(zhǎng)整型Long&0單精度型Single!0雙精度型Double#0貨幣型Currency0字符串型String$“”邏輯型Boolean無(wú)False日期型Date無(wú)0:00:00對(duì)象型Object無(wú)無(wú)變體型Variant無(wú)“”參考結(jié)果與代碼：Private Sub Command1_Click() Dim a As Byte, b%, c&, d!, e#, f, g$ Dim h As Boolean, i As Date, j As Object,

10、 k As Variant Print a=; a, b=; b, c=; c, d=; d, e=; e Print f=; f, g=; g, h=; h, i=; i, k=; kEnd Sub第3章補(bǔ)充實(shí)驗(yàn)21、設(shè)計(jì)程序，求解一元二次方程ax2+bx+c=0的實(shí)根（假定判別式0），窗體參考界面如圖1、圖2所示。最后將工程文件、窗體文件分別以ch32-1.vbp、ch32-1.frm為文件名保存在D:ch32文件夾下。圖1 窗體界面圖2 參考運(yùn)行結(jié)果界面參考代碼：Private Sub Command1_Click() Dim a!, b!, c!, d!, x1!, x2! a = T

11、ext1 b = Text2 c = Text3 d = b * b - 4 * a * c x1 = (-b + Sqr(d) / 2 / a x2 = (-b - Sqr(d) / 2 / a Text4 = x1 Text5 = x2End SubPrivate Sub Command2_Click() EndEnd Sub2、修改題1中程序，改用inputbox函數(shù)輸入a,b,c的值，輸出x1、x2的值改用msgbox函數(shù)，程序參考界面如圖3、圖4所示。最后將工程文件、窗體文件分別以ch32-2.vbp、ch32-2.frm為文件名保存在D:ch32文件夾下。圖3 輸入界面圖4 參考運(yùn)

12、行結(jié)果界面參考代碼：Private Sub Form_Click() Dim a!, b!, c!, d!, x1!, x2! a = InputBox(a=) b = InputBox(b=) c = InputBox(c=) d = b * b - 4 * a * c x1 = (-b + Sqr(d) / 2 / a x2 = (-b - Sqr(d) / 2 / a MsgBox (x1= & x1 & , x2= & x2)End Sub3、設(shè)計(jì)程序，從鍵盤(pán)上輸入3位的正整數(shù)，單擊“求解”按鈕，則能分解出該3位數(shù)的個(gè)位、十位和百位，單擊“退出”按鈕，則結(jié)束程序運(yùn)行。窗體參考界面如圖5

13、、圖6所示。最后將工程文件、窗體文件分別以ch32-3.vbp、ch32-3.frm為文件名保存在D:ch32文件夾下。圖5 窗體界面圖6 參考運(yùn)行結(jié)果界面參考代碼：Private Sub Command1_Click() Dim n%, x%, y%, z% n = Text1 x = n 100 y = (n - x * 100) 10 z = n - 100 * x - y * 10 Text2 = x: Text3 = y: Text4 = zEnd SubPrivate Sub Command2_Click() EndEnd Sub第4章補(bǔ)充實(shí)驗(yàn)11、設(shè)計(jì)程序，計(jì)算如下函數(shù)的值：y=

14、lnx x0ex x0要求如下：(1)使用inputbox函數(shù)輸入x的值，使用msgbox顯示函數(shù)y的值。(2)使用單分支if-then-end if語(yǔ)句實(shí)現(xiàn)分支功能。(3)窗體參考界面如圖1、圖2所示。(4)將工程文件、窗體文件分別以ch41-1.vbp、ch41-1.frm為文件名保存在D:ch41文件夾下。圖1 窗體運(yùn)行界面圖2 參考運(yùn)行結(jié)果界面參考代碼：Private Sub Form_Click() Dim x!, y! x = Val(InputBox(x=) If x 0 Then y = Log(x) End If If x 0 Then y = Log(x) Else y =

15、 Exp(x) End If MsgBox (x= & x & ,y= & y)End Sub3、設(shè)計(jì)程序，求解一元二次方程ax2+bx+c=0，要求如下：(1)當(dāng)判別式0時(shí)，用msgbox顯示“判別式0，方程無(wú)實(shí)根！”，單擊“確定”按鈕后清空三個(gè)文本框；當(dāng)判別式0時(shí)，求出兩實(shí)根。(2)使用if-then-else-end if語(yǔ)句實(shí)現(xiàn)分支功能。(3)窗體參考界面如圖3、圖4、圖5所示。(4)將工程文件、窗體文件分別以ch41-3.vbp、ch41-3.frm為文件名保存在D:ch41文件夾下。圖3 窗體界面圖4 參考運(yùn)行結(jié)果界面1圖5 參考運(yùn)行結(jié)果界面2參考代碼：Private Sub Co

16、mmand1_Click() Dim a!, b!, c!, d!, x1!, x2! a = Val(Text1) b = Val(Text2) c = Val(Text3) d = b * b - 4 * a * c If d 0 Then MsgBox (判別式0，方程無(wú)實(shí)根！) Text1 = : Text2 = : Text3 = Else x1 = (-b + Sqr(d) / 2 / a x2 = (-b - Sqr(d) / 2 / a Text4 = x1 Text5 = x2 End IfEnd SubPrivate Sub Command2_Click() EndEnd

17、Sub4、修改題3中程序，要求如下：(1)改用inputbox函數(shù)輸入a,b,c的值，輸出x1、x2的值改用msgbox函數(shù)。(2) 當(dāng)a=0時(shí)，用msgbox顯示“a=0,不是一元二次方程！”；當(dāng)判別式0時(shí)，用msgbox顯示“判別式0，方程無(wú)實(shí)根！”；當(dāng)判別式0時(shí)，求出兩實(shí)根，并用msgbox顯示。(3)使用if-then-elseif-end if語(yǔ)句實(shí)現(xiàn)分支功能。(4)窗體參考界面如圖6、圖7、圖8、圖9所示。(5)將工程文件、窗體文件分別以ch41-4.vbp、ch41-4.frm為文件名保存在D:ch41文件夾下。圖6輸入界面圖7 參考運(yùn)行結(jié)果界面1圖8 參考運(yùn)行結(jié)果界面2圖9 參

18、考運(yùn)行結(jié)果界面3參考代碼：Private Sub Form_Click() Dim a!, b!, c!, d!, x1!, x2! a = InputBox(a=) b = InputBox(b=) c = InputBox(c=) d = b * b - 4 * a * c If a = 0 Then MsgBox (a=0,不是一元二次方程！) ElseIf d 的最小n值。要求使用While Wend語(yǔ)句編寫(xiě)程序?qū)崿F(xiàn)，窗體界面自行設(shè)定。最后將工程文件、窗體文件分別以ch42-4.vbp、ch42-4.frm為文件名保存在D:ch42文件夾下。參考代碼：Private Sub Form_

19、Click() Dim n%, s& While s 0 Then Label1.Left = Label1.Left - 50 Else Label1.Left = Form1.Width End IfEnd Sub3、修改題2中的程序代碼，使標(biāo)簽?zāi)茉诖绑w內(nèi)向左向右來(lái)回循環(huán)滾動(dòng)。最后將工程文件、窗體文件分別以ch73-3.vbp、ch73-3.frm為文件名保存在D:ch73文件夾下。參考代碼1：Private Sub Form_Load() 初始化計(jì)時(shí)器 Timer1.Enabled = True Timer1.Interval = 100 Timer2.Enabled = False T

20、imer2.Interval = 100End SubPrivate Sub Timer1_Timer() 編寫(xiě)計(jì)時(shí)器的Timer 事件使標(biāo)簽向左移動(dòng) If Label1.Left = 0 Then Label1.Left = Label1.Left - 50 Else Timer1.Enabled = False Timer2.Enabled = True End IfEnd SubPrivate Sub Timer2_Timer() 編寫(xiě)計(jì)時(shí)器的Timer 事件使標(biāo)簽向右移動(dòng) If Label1.Left + Label1.Width = 0 And Label1.Left + Label

21、1.Width = Form1.Width Then Label1.Left = Label1.Left - t ElseIf Label1.Left Form1.Width Then Label1.Left = Form1.Width - Label1.Width t = -t End IfEnd Sub第7章補(bǔ)充實(shí)驗(yàn)41、圖片框的應(yīng)用。在窗體上創(chuàng)建1個(gè)列表框、1個(gè)文本框、3個(gè)標(biāo)簽、2個(gè)命令按鈕，窗體運(yùn)行界面如圖1所示。要求如下：(1)文本框用于輸入選課學(xué)生姓名，列表框用于顯示并選擇課程，圖片框用于輸出選課信息。 (2)單擊“選課”按鈕，將文本框中輸入及列表框中選定的信息在圖片框中輸出；單擊

22、“清空”按鈕，將清除文本框及圖片框中的信息。(3)最后將工程文件、窗體文件分別以ch74-1.vbp、ch74-1.frm為文件名保存在D:ch74文件夾下。圖1參考代碼：Private Sub Command1_Click() Picture1.Print 學(xué)生姓名: Picture1.Print Tab(4); Text1 Picture1.Print 已選課程: For i = 0 To List1.ListCount - 1 If List1.Selected(i) Then Picture1.Print Tab(4); List1.List(i) End If NextEnd Sub

23、Private Sub Command2_Click() Text1 = Picture1.ClsEnd SubPrivate Sub Form_Load() List1.AddItem 電子商務(wù) List1.AddItem 網(wǎng)頁(yè)制作 List1.AddItem 計(jì)算機(jī)網(wǎng)絡(luò) List1.AddItem 多媒體技術(shù) List1.AddItem VB程序設(shè)計(jì) List1.AddItem C程序設(shè)計(jì)End Sub2、圖片框及圖像框的應(yīng)用。給出8個(gè)圖像文件，創(chuàng)建圖2的窗體，窗體運(yùn)行時(shí)能在圖片框中循環(huán)，運(yùn)行界面如圖3所示。要求如下：(1)計(jì)時(shí)器控制每秒顯示一張圖像。 (2)單擊“暫?！卑粹o，暫停瀏覽人物

24、圖像；單擊“繼續(xù)”按鈕，繼續(xù)瀏覽人物圖像；單擊“結(jié)束”按鈕，結(jié)束窗體運(yùn)行。(3)最后將工程文件、窗體文件分別以ch74-2.vbp、ch74-2.frm為文件名保存在D:ch74文件夾下。圖2圖3參考代碼：Private Sub Command1_Click() Timer1.Enabled = FalseEnd SubPrivate Sub Command2_Click() Timer1.Enabled = TrueEnd SubPrivate Sub command3_Click() EndEnd SubPrivate Sub Timer1_Timer() Static i If i =

25、8 Then i = 0 Picture1.Picture = Image1(i).Picture 圖形框裝入某張圖片 Else Picture1.Picture = Image1(i).Picture 圖形框裝入某張圖片 End If i = i + 1End Sub實(shí)驗(yàn)二 VB可視化語(yǔ)言編程基礎(chǔ)三、實(shí)驗(yàn)舉例 按要求完成以下的各實(shí)例操作，并將所有生成的文件保存在D:EX2文件夾下?！緦?shí)例2.1】窗體的常用事件練習(xí)。創(chuàng)建一個(gè)新的工程，窗體使用默認(rèn)名稱Form1。程序運(yùn)行時(shí)，要求如下：1）啟動(dòng)程序時(shí)，窗體的背景色變?yōu)榧t色。2）當(dāng)單擊窗體時(shí)，窗體的背景色變?yōu)榫G色。3）當(dāng)雙擊窗體時(shí)，窗體的背景色變?yōu)?/p>

26、藍(lán)色。窗體文件保存為f1.frm，工程文件保存為L(zhǎng)1.vbp?！緦?shí)例2.2】新建工程，在窗體上創(chuàng)建4個(gè)命令按鈕Command1、Command2、Command3、Command4，要求如下：1）在屬性窗口中設(shè)置4個(gè)命令按鈕上的文字分別為“向上移動(dòng)”、“向下移動(dòng)”、“向左移動(dòng)”和“向右移動(dòng)”。2）編寫(xiě)事件過(guò)程，運(yùn)行程序后，每次單擊“向上移動(dòng)”則窗體向上移動(dòng)100twip；每次單擊“向下移動(dòng)”則窗體向下移動(dòng)100twip；每次單擊向左移動(dòng)”則窗體向左移動(dòng)50twip；每次單擊“向右移動(dòng)”則窗體向右移動(dòng)50twip。窗體文件保存為f2.frm，工程文件保存為L(zhǎng)2.vbp?！緦?shí)例2.3】新建工程，在

27、窗體上創(chuàng)建兩個(gè)命令按鈕Command1、Command2，一個(gè)標(biāo)簽Label1，要求如下：1）在屬性窗口中設(shè)置兩個(gè)命令按鈕上的文字分別為“隱藏”和“顯示”，標(biāo)簽上文字為“可以隱藏的控件”。 2）編寫(xiě)事件過(guò)程，運(yùn)行程序后，單擊“隱藏”按鈕，標(biāo)簽不可見(jiàn)，單擊“顯示”按鈕，標(biāo)簽重新可見(jiàn)。3）編寫(xiě)事件過(guò)程，運(yùn)行程序后，單擊窗體，窗體的標(biāo)題欄上顯示“隱藏/顯示控件”。窗體文件保存為f3.frm，工程文件保存為L(zhǎng)3.vbp?！緦?shí)例2.4】創(chuàng)建一個(gè)新工程，窗體名稱為Form1；其Caption屬性設(shè)置為“Move方法練習(xí)”。單擊窗體時(shí)，窗體向屏幕的右下角移動(dòng)，同時(shí)窗體的長(zhǎng)、寬也縮小為原來(lái)的一半。窗體文件保存

28、為f4.frm，工程文件保存為L(zhǎng)4.vbp。【實(shí)例2.5】設(shè)計(jì)一個(gè)如圖2-3所示的窗體，單擊確定按鈕時(shí)，在窗體的標(biāo)題欄顯示用戶輸入的各項(xiàng)數(shù)據(jù)。窗體文件保存為F5.frm，工程文件保存為L(zhǎng)5.vbp。四、實(shí)驗(yàn)題目 按要求完成以下的各操作，并將所有生成的文件保存在D:EX2文件夾下?！绢}目 2.1】練習(xí)在窗體上添加、刪除多個(gè)控件對(duì)象，并調(diào)整控件的位置、大小，利用“格式”菜單中的命令對(duì)齊控件?！绢}目 2.2】新建工程，在窗體上創(chuàng)建兩個(gè)命令按鈕Command1、Command2，一個(gè)標(biāo)簽Label1，界面如圖2-5所示，程序運(yùn)行要求如下：1）單擊“改變顏色”按鈕，標(biāo)簽上的文字內(nèi)容改為“顏色已經(jīng)改變”，

29、文字顏色改為紅色。2）單擊“改變字體”按鈕，標(biāo)簽上的字體改為“黑體”。圖2-5程序運(yùn)行界面最后將工程文件、窗體文件分別以lx2-2.vbp、lx2-2.frm為文件名保存在D:EX2文件夾下。參考代碼：Private Sub Command1_Click() Label1 = 顏色已經(jīng)改變 Label1.ForeColor = vbRed 或者 rgb(255,0,0)End SubPrivate Sub Command2_Click() Label1.FontName = 黑體End Sub【題目 2.4】設(shè)計(jì)一個(gè)留言薄。新建一個(gè)工程，在窗體上創(chuàng)建2個(gè)標(biāo)簽，2個(gè)文本框，1個(gè)命令按鈕，屬性設(shè)置如圖2-6所示，。要求單擊“提交”按鈕后，上面的文本框內(nèi)容復(fù)制到下面的文本框中，且下面文本框中的