二、基本操作題

　　(1)本題主要考查菜單的使用。在Visual Basic中，菜單也被看作控件，具有屬性和事件，菜單在“菜單邏輯器”對話框中建立。通過End語句結束程序的運行。

　　①建立界面并設置控_牛屬性。菜單及控件屬性設置見下表：

　�、诰帉憛⒖即a如下：

　　Private Sub Dis Click()

　　Text1Text=”計算機考試”

　　End Sub

　　Private Sub Exit Click()

　　End

　　End Sub

　�、壅{試并運行程序。

　�、馨搭}目要求存盤。

　　(2)①新建一個名為Form1的窗體。

　�、趩螕艄ぞ呦渲械腃ommandButton控件圖標，在窗體上拖拉出一個命令按鈕，在屬性窗13設置該命令按鈕名稱為Cmd1，標題為“顯示”。

　�、鄞蜷_代碼窗口輸入如下代碼：

　　Private Sub Cmd1_Click()

　　Form1.Print"計算機等級考試Visual Basic課程"

　　End Sut.

　�、馨匆蟊４嫖募赐瓿杀绢}。

　　三、簡單應用題

　　(1)在窗體上建好控件后，先設置控件屬性，再編寫事件過程和調試程序，并使其符合題目要求。當運行程序后，所彈出的對話框是通過調用函數InputBox來實現(通過Visual Basic系統本身提供的)。本題主

　　要是考查循環語句的應用。計算一個數值的階乘時使用了for循環，最后調用了所給模塊中的過程將結果進行保存。

　�、俳⒔缑娌⒃O置控件屬性。程序中用到的控件及其屬性見下表：

　�、诼暶鞔鎯\算結果的Long型變量。在編寫程序代碼時要注意變量范圍的設定，題目要求將計算結果存入Long變量中，所以把最后放入文本框內的變量設置為長整型。(例如：Dim temp As Long)

　　③打開工程資源管理器，在其空白處右鍵添加模塊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

　�、艽蜷_工程資源管理器，右擊窗體，選擇查看代碼項，在彈出的代碼窗口輸入代碼如下：

　　Private Sub Cmd1_Click()

　　Dim a As Integer

　　Dim temp As Long

　　Dim i As Integer

　　a=Val(InputBox("請輸入"))

　　temp=1

　　For i=1 To Val(a).

　　temp=temp*i

　　Next i

　　Text1.Text =temp

　　putdata"out.txt"，Text1.Text

　　End Sub

　�、菡{試并運行程序。

　�、薨搭}目要求存盤。

　　(2)①打開題目聽給工程文件。

　�、诖蜷_代碼窗口輸入以下代碼：

　　Private Sub Cmd1 Click()

　　If Opt1.Value=True Then

　　Text1.Font="宋體"

　　Else

　　Text1.Font="隸書"

　　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

　�、郯匆蟊４嫖募赐瓿杀绢}。

　　相關推薦：

　　2014年全國計算機二級VB上機考試試題匯總

　　考試吧考后首發2014年3月計算機等考真題及答案通知

　　考試吧推薦：2014年3月計算機二級考前沖刺備考專題