大二上期末復(fù)習(xí)題vb考題

1、設(shè)計(jì)題1在考生文件夾下創(chuàng)建一個(gè)工程，按圖Picture1所示添加控件。窗體的標(biāo)題為顯示時(shí)間。要求窗體運(yùn)行后，焦點(diǎn)置于退出按鈕上，文本框每隔一秒鐘顯示一次當(dāng)前的時(shí)間。單擊退出按鈕將退出窗體。將窗體保存為“設(shè)計(jì)題1.frm, 工程保存為工程1.vbp。Private Sub Command1_Click()EndEnd SubPrivate Sub Form_activate()Command1.SetFocusEnd SubPrivate Sub Timer1_Timer()Text1 = Time()End Sub設(shè)計(jì)題2在考生文件夾下創(chuàng)建一個(gè)工程，在窗體中添加兩個(gè)命令按鈕，其標(biāo)題分別為“背景

2、1”與“背景2”。編寫命令按鈕的Click事件代碼。要求點(diǎn)擊命令按鈕后，窗體顯示相應(yīng)的背景圖片back1.jpg與back2.jpg。背景圖片在考生文件夾中。窗體保存為設(shè)計(jì)題2.frm, 工程保存為工程2.vbp。編程題1在考生文件夾下創(chuàng)建一個(gè)工程，窗體界面如圖Picture3所示,在窗體上有一個(gè)名稱為Check1的復(fù)選框數(shù)組（含4個(gè)復(fù)選框），還有一個(gè)名稱為Text1的文本框，初始內(nèi)容為空。程序運(yùn)行時(shí)，單擊任何復(fù)選框，文本框中顯示所有選中的選項(xiàng)。編程題2在考生文件夾下創(chuàng)建一個(gè)工程，窗體界面如圖Picture4所示,編寫確定命令按鈕的Click事件代碼。實(shí)現(xiàn)以下功能：在110000之間找出所有滿

3、足條件“被7除余5、被5除余3、被3除余2”的數(shù)，并在窗體上輸出，每行輸出8Private Sub Command1_Click()Dim n%, m%For n = 2 To 10000 Step 3If n Mod 7 = 5 And n Mod 5 = 3 ThenPrint n;m = m + 1If m Mod 8 = 0 Then PrintEnd IfNext nEnd Sub調(diào)試題1 “調(diào)試題1.frm”的功能是隨機(jī)生成10個(gè)0100之間的整數(shù)，返回10個(gè)數(shù)中的最大數(shù)和最小值。程序有錯(cuò)，請(qǐng)修改。工程保存為“工程5.vbp”Private Sub Command1_Click()

4、 Dim max%, min%, i% Dim a(10) As Integer Randomize max = 0 min = 100 For i = 1 To 10 a(i) = Rnd * 100 Print a(i); If max a(i) Then min = a(i) Next i Print Print 最大數(shù)為 & max Print 最小數(shù)為 & minEnd Sub調(diào)試題2運(yùn)行窗體“調(diào)試題1.frm”后，產(chǎn)生Fibonacci數(shù)列的前20項(xiàng)，放在一維數(shù)組中，在文本框1中輸入項(xiàng)數(shù)，點(diǎn)擊確定按鈕，用msgbox命令顯示相應(yīng)項(xiàng)的數(shù)列值。程序有錯(cuò)，請(qǐng)修改。工程保存為“工程6.vb

5、p”Dim a(20) As IntegerPrivate Sub Command1_Click()Dim n%n = Text1MsgBox Fibonacci數(shù)列的第 & n & 項(xiàng)為 & a(n)End SubPrivate Sub Form_Load()Rem Dim a(20) As Integera(1) = 1a(2) = 1Rem For i = 1 To 20For i = 3 To 20a(i) = a(i - 1) + a(i - 2)Next iEnd Sub數(shù)據(jù)庫(kù)1在D盤根文件夾下有一個(gè)Access數(shù)據(jù)庫(kù)books.mdb，該數(shù)據(jù)庫(kù)中有一個(gè)表book。要求在考生文件夾下創(chuàng)建一個(gè)工程，使用DataGrid控件顯示book表中的書(shū)名、書(shū)