三、簡單應用題

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

　　要是考查循環(huán)語句的應用。計算一個數(shù)值的階乘時使用了for循環(huán)，最后調(diào)用了所給模塊中的過程將結(jié)果進行保存。

　�、俳�立界面并設置控件屬性。程序中用到的控件及其屬性見下表：

　�、诼暶鞔鎯�運算結(jié)果的Long型變量。在編寫程序代碼時要注意變量范圍的設定，題目要求將計算結(jié)果存入Long變量中，所以把最后放入文本框內(nèi)的變量設置為長整型。(例如：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

　�、菡{(diào)試并運行程序。

　�、薨搭}目要求存盤。

　　(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》上機預測題及答案匯總

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

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