| 第 1 頁(yè)：選擇題 |
| 第 5 頁(yè)：操作題 |
| 第 6 頁(yè)：參考答案 |
二、基本操作題
(1)本題主要考查菜單的使用。在Visual Basic中，菜單也被看作控件，具有屬性和事件，菜單在“菜單邏輯器”對(duì)話(huà)框中建立。通過(guò)End語(yǔ)句結(jié)束程序的運(yùn)行。
�、俳⒔缑娌⒃O(shè)置控_牛屬性。菜單及控件屬性設(shè)置見(jiàn)下表：
②編寫(xiě)參考代碼如下：
Private Sub Dis Click()
Text1Text=”計(jì)算機(jī)考試”
End Sub
Private Sub Exit Click()
End
End Sub
�、壅{(diào)試并運(yùn)行程序。
④按題目要求存盤(pán)。
(2)①新建一個(gè)名為Form1的窗體。
�、趩螕艄ぞ呦渲械腃ommandButton控件圖標(biāo)，在窗體上拖拉出一個(gè)命令按鈕，在屬性窗13設(shè)置該命令按鈕名稱(chēng)為Cmd1，標(biāo)題為“顯示”。
③打開(kāi)代碼窗口輸入如下代碼：
Private Sub Cmd1_Click()
Form1.Print"計(jì)算機(jī)等級(jí)考試Visual Basic課程"
End Sut.
�、馨匆蟊４嫖募赐瓿杀绢}。
三、簡(jiǎn)單應(yīng)用題
(1)在窗體上建好控件后，先設(shè)置控件屬性，再編寫(xiě)事件過(guò)程和調(diào)試程序，并使其符合題目要求。當(dāng)運(yùn)行程序后，所彈出的對(duì)話(huà)框是通過(guò)調(diào)用函數(shù)InputBox來(lái)實(shí)現(xiàn)(通過(guò)Visual Basic系統(tǒng)本身提供的)。本題主
要是考查循環(huán)語(yǔ)句的應(yīng)用。計(jì)算一個(gè)數(shù)值的階乘時(shí)使用了for循環(huán)，最后調(diào)用了所給模塊中的過(guò)程將結(jié)果進(jìn)行保存。
�、俳⒔缑娌⒃O(shè)置控件屬性。程序中用到的控件及其屬性見(jiàn)下表：
�、诼暶鞔鎯�(chǔ)運(yùn)算結(jié)果的Long型變量。在編寫(xiě)程序代碼時(shí)要注意變量范圍的設(shè)定，題目要求將計(jì)算結(jié)果存入Long變量中，所以把最后放入文本框內(nèi)的變量設(shè)置為長(zhǎng)整型。(例如：Dim temp As Long)
③打開(kāi)工程資源管理器，在其空白處右鍵添加模塊mode.bas(此文件已在考生文件夾里)，模塊代碼如下：
Option Explicit
Sub putdata(t_FileName As String，T_Str As Variant)
Dim sFile As String
sFile="\"&t FileName
Open App.Path&sFile For Output As#1
Print#1，T Str
Close#1
End Sub
④打開(kāi)工程資源管理器，右擊窗體，選擇查看代碼項(xiàng)，在彈出的代碼窗口輸入代碼如下：
Private Sub Cmd1_Click()
Dim a As Integer
Dim temp As Long
Dim i As Integer
a=Val(InputBox("請(qǐng)輸入"))
temp=1
For i=1 To Val(a).
temp=temp*i
Next i
Text1.Text =temp
putdata"out.txt"，Text1.Text
End Sub
�、菡{(diào)試并運(yùn)行程序。
�、薨搭}目要求存盤(pán)。
(2)①打開(kāi)題目聽(tīng)給工程文件。
�、诖蜷_(kāi)代碼窗口輸入以下代碼：
Private Sub Cmd1 Click()
If Opt1.Value=True Then
Text1.Font="宋體"
Else
Text1.Font="隸書(shū)"
End If
If Chk1.Value=1 Then
Text1.FontUnderline=Ture
Else
Text1.FontUnderline=False
End If
If Chk2.Value=1 Then
Text1.FontItalic=True
Else
Text1.Fon tItalic=False
End If
End Sub
③按要求保存文件即完成本題。
相關(guān)推薦：
2014年全國(guó)計(jì)算機(jī)二級(jí)VB上機(jī)考試試題匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
