全國(guó)計(jì)算機(jī)二級(jí)vb考試內(nèi)容

時(shí)間：2017-07-10 09:57:25 偉文27由分享

　　全國(guó)計(jì)算機(jī)二級(jí)vb考試內(nèi)容

　　一、建立多重窗體應(yīng)用程序

　　(一)與多重窗體程序設(shè)計(jì)有關(guān)的語(yǔ)句和方法

　　1.Load語(yǔ)句

　　格式ood窗體名稱

　　2.Unload語(yǔ)句

　　格式:Unload窗體名稱

　　3.Show方法

　　格式:[窗體名稱.]Show[模式]

　　4.Hide方法

　　格式:[窗體名稱.]Hide

　　(二)建立界面

　　1.封面窗體

　　2.列表窗體

　　3.HX2000A微機(jī)窗體

　　(三)編寫(xiě)程序代碼

　　程序代碼是針對(duì)每個(gè)窗體編寫(xiě)的，其編寫(xiě)方法與單一窗體相同。只要在工程資源管理器窗口中選擇所需要的窗體文件，然后單擊“查看代碼”按鈕，就可以進(jìn)入相應(yīng)窗體的程序代碼窗口。該程序的執(zhí)行順序如下:

　　(1)顯示封面窗體;

　　(2)單擊“繼續(xù)”命令按鈕，封面窗體消失，顯示列表窗體;此時(shí)如果單擊“結(jié)束”命令按鈕，Examda提示:則程序結(jié)束;

　　(3)列表窗體在列表框中列出目錄，雙擊某種機(jī)型后，列表窗體消失，顯示相應(yīng)的窗體。例如，雙擊“HX2000A微型機(jī)”，將顯示“HX2000A臺(tái)式機(jī)”窗體;

　　(4)顯示某種機(jī)型的窗體后，如果單擊“返回”按鈕，則該窗體消失，回到列表窗體;

　　(5)在列表窗體中，如果單擊“返回”按鈕，則列表窗體消失，回到封面窗體。

　　二、多重窗體程序的執(zhí)行與保存

　　(一)指定啟動(dòng)窗體

　　(二)多窗體程序的存取

　　1.保存多窗體程序

　　2.裝入多窗體程序

　　3.多窗體程序的編譯

　　三、Visual Basic工程結(jié)構(gòu)

　　(一)標(biāo)準(zhǔn)模塊

　　標(biāo)準(zhǔn)模塊也稱全局模塊或總模塊，由全局變量聲明、模塊層聲明及通用過(guò)程等幾部分組成。其中全局聲明放在標(biāo)準(zhǔn)模塊的首部，因?yàn)槊總€(gè)模塊都可能要求有它自己的具有惟一名字的全局變量。全局變量聲明總是在啟動(dòng)時(shí)執(zhí)行。

　　(二)窗體模塊

　　窗體模塊包括3部分內(nèi)容，即聲明部分、通用過(guò)程部分和事件過(guò)程部分。在聲明部分中，用Dim語(yǔ)句聲明窗體模塊所需要的變量，因而其作用域?yàn)檎麄€(gè)窗體模塊，包括該模塊內(nèi)的每個(gè)過(guò)程。注意，在窗體模塊代碼中，聲明部分一般放在最前面，而通用過(guò)程和事件過(guò)程的位置沒(méi)有嚴(yán)格限制。

　　(三)Sub Main過(guò)程

　　在一個(gè)含有多個(gè)窗體或多個(gè)工程的應(yīng)用程序中，Examda提示:有時(shí)候需要在顯示多個(gè)窗體之前對(duì)一些條件進(jìn)行初始化，這就需要在啟動(dòng)程序時(shí)執(zhí)行一個(gè)特定的過(guò)程。在Visual Basic中，這樣的過(guò)程稱為啟動(dòng)過(guò)程，并命名為Sub Main，它類似于C語(yǔ)言中的Main函數(shù)。

　　四、閑置循環(huán)與DoEvents語(yǔ)句

　　Visual Basic提供了閑置循環(huán)(Idle Loop)和DoEvents語(yǔ)句。DoEvents既可以作為語(yǔ)句，也可以作為函數(shù)使用，一般格式為

　　[窗體號(hào)=]DoEvents[()]

　　全國(guó)計(jì)算機(jī)二級(jí)vb考試習(xí)題及答案

　　1.在窗體上畫(huà)一個(gè)名稱為L(zhǎng)abel1、標(biāo)題為"VisualBasic考試"的標(biāo)簽，兩個(gè)名稱分別為Command1和Command2、標(biāo)題分別為"開(kāi)始"和"停止"的命令按鈕，然后畫(huà)一個(gè)名稱為T(mén)imer1的計(jì)時(shí)器控件，并把其Interval屬性設(shè)置為500。編寫(xiě)如下程序：

　　Private Sub Form_Load( )

　　Timer1.Enabled=False

　　End Sub

　　Private Sub Command1_Click( )

　　Timer1.Enabled=True

　　End Sub

　　Private Sub Timer1_Timer( )

　　If Label1.Left< Form1.Width Then

　　Label1.Left = Label1.Left + 20

　　Else

　　Label1.Left=0

　　End If