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

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

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

　　(1)在考生文件夾下有一個(gè)工程文件sjt3.vbp，其窗體上有一個(gè)名稱為Label1的控件數(shù)組，含三個(gè)標(biāo)簽，標(biāo)題分別是“開始時(shí)間”、“結(jié)束時(shí)間”和“通話費(fèi)用”;有一個(gè)名稱為Text1 的控件數(shù)組，含三個(gè)初始值為空的文本框;此外還有二個(gè)名稱分別為Cmd1和Cmd2的命令按鈕，標(biāo)題分別是“通話開始”和“通話結(jié)束”。其中通過屬性窗口對“通話結(jié)束”命令按鈕的初始狀態(tài)設(shè)置為禁用，如圖所示。該程序的功能是計(jì)算公用電話計(jì)時(shí)收費(fèi)。計(jì)時(shí)收費(fèi)標(biāo)準(zhǔn)為：通話時(shí)間在3分鐘以內(nèi)時(shí)，收費(fèi)0.5元; 3分鐘以上時(shí)，每超過1分鐘加收0.15元，不足1分鐘按1分鐘計(jì)算。程序執(zhí)行的操作如下：

　　1)如果單擊“通話開始”按鈕， 則在“開始時(shí)間”右側(cè)的文本框中顯示開始時(shí)間， 且“通話結(jié)束”命令按鈕變?yōu)榭捎脿顟B(tài)，“通話開始”命令按鈕不可用;

　　2)如果單擊“通話結(jié)束”按鈕， 則“結(jié)束時(shí)間”右側(cè)的文本框中顯示結(jié)束時(shí)間，同時(shí)計(jì)算通話費(fèi)用， 并將其顯示在“通話費(fèi)用”右側(cè)的文本框中，“通話開始”命令按鈕變?yōu)榭捎脿顟B(tài)， “通話結(jié)束”命令按鈕不可用。

　　在窗體文件中已經(jīng)給出了全部控件(如圖所示)和程序，但程序不完整，要求去掉程序中的注釋符，把 ?改為正確的內(nèi)容，以實(shí)現(xiàn)上述功能。

　　注意：

　　不得修改已經(jīng)存在的內(nèi)容和控件屬性，最后將修改后的文件按原文件名存盤。

　　解題思路：

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

　　由于所提供的窗體控件不完整，通過“通話結(jié)束”的屬性窗口將Enabled屬性設(shè)為False。

　　由于所提供的窗體程序不完整，在“通話開始”按鈕的Private Sub Cmd1_Click()事件過程中，有一處地方需要修改。

　　1) 將語句

　　'? = Str(Time())

　　改為

　　Text1(0).Text = Str(Time())

　　在“通話結(jié)束”按鈕的Private Sub Cmd2_Click()事件過程中，有三處地方需要修改。

　　1) 將語句

　　's = ? + (m - 3) * 0.15

　　改為

　　s = s + (m - 3) * 0.15

　　2) 將語句

　　'? = True

　　改為

　　Cmd1.Enabled = True

　　3) 將語句

　　'? = False

　　改為

　　Cmd2.Enabled = False

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

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

　　(2)在考生文件夾下有一個(gè)工程文件sjt4.vbp，文件in4.txt中有5組數(shù)據(jù)，每組10個(gè)，依次代表語文、英語、數(shù)學(xué)、物理、化學(xué)這 5門課程10個(gè)人的成績。程序運(yùn)行時(shí)，單擊“讀入數(shù)據(jù)”按鈕，可從文件 in4.txt中讀入數(shù)據(jù)放到數(shù)組a中。單擊“計(jì)算”按鈕，則計(jì)算5門課程的平均分(平均分取整)，并依次放入Text1 文本框數(shù)組中。單擊“顯示圖形”按鈕，則顯示平均分的直方圖，如圖所示。窗體文件中已經(jīng)有了全部控件，但程序不完整，要求去掉程序中的注釋符，把程序中的 ?改為正確的內(nèi)容。

　　注意：

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

　　解題思路：

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

　　由于所提供的窗體控件不完整，在"讀入數(shù)據(jù)"按鈕的Private Sub Command1_Click()事件過程中，有一處地方需要修改。

　　1) 將語句

　　'Open App.Path & "\in5.txt" For ? As #1

　　改為

　　Open App.Path & "\in5.txt" For Input As #1

　　在"計(jì)算"按鈕的Private Sub Command2_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　's(i) = ?

　　改為

　　s(i) = a(i, j) + s(i)

　　2) 將語句

　　☆國家教育部考試中心題庫☆ 222

　　'? = CInt(s(i) / 10)

　　改為

　　s(i) = CInt(s(i) / 10)

　　在"顯示圖形"按鈕的Private Sub Command3_Click()事件過程中，有二處地方需要修改。

　　1) 將語句

　　'Shape1(k - 1).Top = ? - Shape1(k - 1).Height

　　改為

　　Shape1(k - 1).Top = m - Shape1(k - 1).Height

　　2) 將語句

　　'Shape1(k - 1).? = True

　　改為

　　Shape1(k - 1).Visible = True

　　參考文件：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)名時(shí)間及入口匯總