三、簡單應用題

　　(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月計算機二級考前沖刺備考專題