2012年計(jì)算機(jī)二級VB上機(jī)試題及解題思路第46套

　　2. 簡單應(yīng)用(2小題，每題20分，計(jì)40分)

　　注意：下面出現(xiàn)的“考生文件夾”均為%USER%

　　(1)在考生文件夾下有一個工程文件sjt3.vbp，含有名稱分別為Form1、Form2的兩個窗體。 其中Form1上有兩個控件(圖像框和計(jì)時器)和一個菜單項(xiàng)“操作”，含有三個菜單命令( 如圖 1所示 )。Form2 上有一個名稱為Command1、標(biāo)題為“返回”的命令按鈕(如圖 2所示)。要求當(dāng)單擊“窗體2”菜單命令時，隱藏Form1，顯示Form2。 單擊“動畫”菜單命令時，使小汽車開始移動，一旦移到窗口的右邊界時自動跳到窗體的左邊界重新移動。單擊“退出”菜單命令時，結(jié)束程序運(yùn)行。請去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

　　考生不得修改窗體文件中已經(jīng)存在的程序。最后程序按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt3.vbp，相應(yīng)的窗體文件名為sjt31.frm

　　和sjt32.frm。

　　由于sjt31.frm所提供的窗體程序不完整，單擊子菜單命令，即運(yùn)行Private Sub mnuOper_Click(Index As Integer)事件過程，在該事件過程中，有二處地方需要修改。

　　1) 將語句

　　'Select Case ?

　　改為

　　Select Case Index

　　2) 將語句

　　'Timer1.Enabled =?

　　改為

　　Timer1.Enabled = True

　　在計(jì)時器的Private Sub Timer1_Timer()事件過程中，有二處地方需要修改。

　　1) 將語句

　　'If Picture1.Left + Picture1.Width >= ? Then

　　改為

　　If Picture1.Left + Picture1.Width >= Width Then

　　2) 將語句

　　'Picture1.Left = ?

　　改為

　　Picture1.Left = 0

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt3.vbp、sjt31.frm、sjt31.frx、sjt32.frm、sjt3.vbw

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt3.vbp文件并運(yùn)行。

　　(2)在考生文件夾下有一個工程文件sjt4.vbp。其窗體上已有部分控件，請按照如圖 1所示添加框架和單選按鈕。 要求： 畫二個框架， 名稱分別為Frame1、Frame2，在Frame1 中添加一個名為Option1的單選按鈕數(shù)組，含二個單選鈕，標(biāo)題分別為“古典音樂”、“流行音樂”，在名稱為Frame2中添加二個單選按鈕，名稱分別為Option2、Option3，標(biāo)題分別為“籃球”、“羽毛球”。剛運(yùn)行程序時，“古典音樂”和“籃球”單選鈕為選中狀態(tài)。單擊 “選擇” 按鈕，將把選中的單選鈕的標(biāo)題顯示在標(biāo)簽Label2中，如圖 2所示。如果“音樂”或“體育”未被選中，相應(yīng)的單選鈕不可選。

　　要求：

　　按照題目要求添加控件，去掉程序中的注釋符，把程序中的 ? 改為正確的內(nèi)容。

　　注意：

　　不能修改程序的其他部分和控件屬性。最后把修改后的文件按原文件名存盤。

　　解題思路：

　　啟動Visual Basic系統(tǒng)，打開考生文件夾下需編輯的工程文件sjt4.vbp，相應(yīng)的窗體文件名為sjt4.frm。

　　由于所提供的窗體控件不完整，需畫二個框架控件，通過其屬性窗口將名稱分別設(shè)為Frame1和Frame2。在Frame1中畫一個單選按鈕數(shù)組控件，含有二個單選鈕，通過其屬性窗口將名稱設(shè)為Option1，標(biāo)題(Caption屬性)分別設(shè)為“古典音樂”和“流行音樂”。在Frame1中畫二個單選按鈕控件，通過其屬性窗口將名稱分別設(shè)為Option2和Option3，標(biāo)題(Caption屬性)分別設(shè)為“籃球”和“羽毛球”。

　　由于所提供的窗體程序不完整，在Private Sub Command1_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　'If ? = True Then

　　改為

　　If Option1(0).Value = True Then

　　2) 將語句

　　'If ? = True Then

　　改為

　　If Option2.Value = True Then

　　3) 將語句

　　'Label2.Caption = ?

　　改為

　　Label2.Caption = s

　　參考文件：c:\wexam\26990001\hlpsys\參考答案\sjt4.vbp、sjt4.frm、sjt4.vbw

　　請把這些文件復(fù)制到c:\wexam\26990001中，然后打開sjt4.vbp文件并運(yùn)行。

　　相關(guān)推薦：

　　2012年計(jì)算機(jī)等考四級數(shù)據(jù)庫工程師備考筆記匯總

　　2012年計(jì)算機(jī)等級考試二級VB重點(diǎn)知識匯總

　　2012年下半年計(jì)算機(jī)等級考試報(bào)名時間及入口匯總