2014年計(jì)算機(jī)二級(jí)考試VB專家預(yù)測(cè)試卷及答案4

　　三、簡(jiǎn)單應(yīng)用題

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

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

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

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

　�、艽蜷_工程資源管理器，右擊窗體，選擇查看代碼項(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)行程序。

　�、薨搭}目要求存盤。

　　(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

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

　　相關(guān)推薦：

　　2014計(jì)算機(jī)等級(jí)《二級(jí)VB》上機(jī)預(yù)測(cè)題及答案匯總

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

　　考試吧推薦：2014年3月計(jì)算機(jī)二級(jí)考前沖刺備考專題