大二上期末復(fù)習(xí)題vb考題_第1頁(yè)
大二上期末復(fù)習(xí)題vb考題_第2頁(yè)
免費(fèi)預(yù)覽已結(jié)束,剩余1頁(yè)可下載查看

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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表中的書名、書

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論