2013年3月計(jì)算機(jī)二級(jí)VB考前沖刺試卷及答案(4)

　　2.簡(jiǎn)單應(yīng)用題

　　在考生文件夾下，完成如下簡(jiǎn)單應(yīng)用：

　　(1)打開(kāi)程序文件progerr.prg，按文件中給出的功能要求改正其中的錯(cuò)誤，以文件名為prognew.prg重新保存該文件并運(yùn)行程序。

　　(2)表單文件名為myform.scx，控件名為myform，表單標(biāo)題為“頂層表單”。

　　(3)為頂層表單建立菜單mymenu。

　　單擊“退出”菜單時(shí)，關(guān)閉釋放此頂層菜單，并返回到系統(tǒng)菜單(在過(guò)程中完成)。

　　【參考答案】

　　(1)具體步驟如下：

　�、� 打開(kāi)progerr.prg文件。

　�、� 將程序修改如下：

　　OPEN DATABASE ordersmanage

　　CREATE view viewes AS SELECT職工號(hào),SUM(金額)AS總金額FROM orders;

　　GROUP BY職工號(hào)

　　SELECT * FROM viewes WHERE總金額>=30000 ORDER BY總金額DESC;

　　into dbf newtable

　�、� 執(zhí)行“文件”菜單中的“另存為”命令，將程序另存為prognew.prg。

　　(2)具體步驟如下：

　�、� 從“文件”菜單中選擇“新建”命令，在彈出的“新建”對(duì)話框中選中“菜單”單選按鈕，單擊“新建文件”按鈕。

　�、� 彈出“新建菜單”對(duì)話框，單擊“菜單”按鈕，進(jìn)入“菜單設(shè)計(jì)器”窗口。

　　③ 在“菜單設(shè)計(jì)器”窗口中輸入三個(gè)菜單名稱“文件”、“編輯”、“退出”，并在“退出”菜單項(xiàng)的“結(jié)果”下拉列表中選擇“過(guò)程”選項(xiàng)，單擊“創(chuàng)建”按鈕，在彈出的代碼窗口中輸入如下代碼：

　　myform.release

　　set sysmenu to default

　　④ 執(zhí)行“顯示”菜單中的“常規(guī)選項(xiàng)”命令，在彈出的“常規(guī)選項(xiàng)”對(duì)話框中選中“頂層表單”復(fù)選框。

　�、� 單擊“保存”按鈕，將菜單保存為mymenu.mnx。

　　⑥ 執(zhí)行“菜單”菜單中的“生成”命令，在彈出的對(duì)話框中單擊“生成”按鈕。

　�、� 關(guān)閉“菜單設(shè)計(jì)器”窗口。

　�、� 從“文件”菜單中選擇“新建”命令，在彈出的“新建”對(duì)話框選中“表單”單選按鈕，單擊“新建文件”按鈕。

　　⑨ 在打開(kāi)的“表單設(shè)計(jì)器”窗口中更改表單的Caption屬性為“頂層表單”。

　　⑩ 修改表單的ShowWindow屬性為“2-作為頂層表單”。

　　給表單的Init事件添加如下代碼：

　　do mymenu.mpr with this,”mymenu”

　　將表單保存為myform.scx，并運(yùn)行表單。

　　3.綜合應(yīng)用題

　　在考生文件夾下，完成如下綜合應(yīng)用：

　　打開(kāi)表單文件sapp，并完成如下操作(不得有多余操作)：

　　(1)將“課程”表添加到表單的數(shù)據(jù)環(huán)境中;

　　(2)使列表框List1中的數(shù)據(jù)項(xiàng)為“課程”表中的課程名稱(課程.課程名);

　　(3)單擊列表框中的數(shù)據(jù)項(xiàng)時(shí)，統(tǒng)計(jì)選修了所選課程的學(xué)生人數(shù)(從“考試成績(jī)”表)，并將結(jié)果存儲(chǔ)在以課程名命名的表中，表中只有一個(gè)字段“人數(shù)”;

　　(4)添加一個(gè)命令按鈕Command1，單擊該按鈕時(shí)關(guān)閉表單。

　　【參考答案】

　�、� 打開(kāi)表單文件sapp，單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“數(shù)據(jù)環(huán)境”命令。

　�、� 在打開(kāi)的“數(shù)據(jù)環(huán)境設(shè)計(jì)器”窗口中單擊鼠標(biāo)右鍵，在彈出的快捷菜單中選擇“添加”命令。

　�、� 系統(tǒng)彈出“打開(kāi)”對(duì)話框，選擇“課程”表，單擊“確定”按鈕。

　�、� 選擇列表框List1，在“屬性”窗口中設(shè)置RowSourceType屬性為“6-字段”，設(shè)置RowSource屬性為“課程.課程名”。

　�、� 為列表框List1的Click事件添加如下代碼：

　　filename=this.value

　　select count(考試成績(jī).學(xué)號(hào))as 人數(shù) from 課程inner join考試成績(jī);

　　on 課程.課程編號(hào)=考試成績(jī).課程編號(hào);

　　where 課程.課程名=this.value into dbf &filename

　�、� 在控件工具欄中選擇命令按鈕，在表單中的合適位置單擊，添加一個(gè)Command1按鈕，并為其Click事件添加如下代碼：

　　Thisform.release

　　⑦ 將表單保存，并運(yùn)行表單。