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

　　(1)【解題思路】在單擊單選按鈕數(shù)組事件過程中，首先向文本框1kt1中輸入一個不超過l0的正整數(shù)，通過Val函數(shù)實現(xiàn)字符向數(shù)值的轉(zhuǎn)換，然后選擇“N的階乘”或“(N+2)的階乘”單選按鈕，通過Select Case語句和單選按鈕數(shù)組的Index屬性，確定所調(diào)用函數(shù)的參數(shù)，從而調(diào)用Function fl()過程函數(shù)進行計算，將計算結(jié)果顯示在文本框Te地中。

　　【操作步驟】

　　步驟1：打開本題工程文件。步驟2：分析并編寫程序代碼。程序提供代碼

　　Private Sub Optionl～Click(Index As Integer)Dim n AsInteger

　　n=ValfText1.Text)‘Select Case?

　　Case 0

　　Text2."rext=fl(?)Casel

　　Text2.Text=fl(?)End Select

　　End Sub

　　Public Function fl(n As Integer)A8 LongDim xAs Long

　　X=1

　　Th i=1 T0 7x2X十i

　　Next‘?=XEnd Function程序結(jié)束

　　參考答案

　　第1個?處填人：Index第2個?處填入：n

　　第3個?處填入：n+2.第4個?處填人：n

　　第5個?處填入：n

　　步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。

　　(2)【解題思路】通過文件操作和“&”連接符將文件ins.txt中的文本讀出并顯示在文本框1鈕1中，在C0㈣dl eli&事件過程中，在文本框Text2中輸入一個英文字母，然后單擊“統(tǒng)計”命令按鈕，統(tǒng)計該字母(大小寫被認(rèn)為是不同的字母)在文本中出現(xiàn)的次數(shù)，統(tǒng)計結(jié)果顯示在標(biāo)簽Imbel3中。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：分析并編寫程序代碼。程序提供代碼

　　Privale Sub Fonn_lJ0ad()

　　Open App.Path&”\in4.瞰”For Input As囂1

　　Line Input{I}1.S’Text1.Text=?Close#l

　　End Sub

　　Privatd Sub Commandl—Click()

　　Dim n AsIntegerS=Text1.Text

　　sl=RTrim(Text2.Text、Do

　　p=Instr(?)

　　IfP<>0 Then n=n+1s=Mid(S，P+I)

　　Loop While P?0

　　Labels.Caption=?

　　End Sub

　　程序結(jié)束

　　參考答案

　　第1個?處填人：S.第2個?處填入：S，sl

　　第3個?處填入：<>第4個?處填入：n

　　步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。四、綜合應(yīng)用題

　　【解題思路】函數(shù)過程isprime(a)的功能是通過Do While語句、Ⅱ判斷語句和Int函數(shù)，判斷參數(shù)a是否為素數(shù)，如果是素數(shù)，則函數(shù)返回True，否則函數(shù)返回False。在單擊“計算”按鈕事件過程中，通過For語句和調(diào)用函數(shù)過程isprime(a)，找出小于l8000的最大的素數(shù)，并將其顯示在Text1中;在單擊“存盤”按鈕事件過程中，通過文件操作把Text1中的計算結(jié)果存入考生文件夾下的0ut5.txt文件中。

　　【操作步驟】

　　步驟1：打開本題工程文件。

　　步驟2：分析并編寫程序代碼。程序提供代碼

　　Private Function isprime(a As Integer)As BooleanDim flag As Boolean

　　flag=Trueb%=2

　　DoWhile b%<=Int(a/2)And/lagIfInt(a/b%)=a/b%Then

　　flag=FalseElse

　　b%=b%+1End If

　　Loop

　　isprime=flagEnd Function

　　程序結(jié)束

　　參考答案

　　Private Sub Cl一Click()

　　DimiAsInteger\、For i=17999 T0 1 Step一1

　�、騣sprime(i)ThenTbxt1=i

　　Exit ForEndIf

　　NextEnd SubPrivate Sub C2一Click().

　　Open App.Path&”\out5.txt”For Output As鼻lPrint#1.Text1.Text

　　Close{}1End Sub步驟3：調(diào)試并運行程序，關(guān)閉程序后按題目要求存盤。

長按二維碼關(guān)注即可獲得等考資料

2016各科最新預(yù)測試卷

等考?xì)v年真題及答案

2016等考成績查詢時間

2016等考各科通關(guān)技巧

微信搜索"考試吧"獲取更多考試資訊、備考資料

　　相關(guān)推薦：

　　各地2016年全國計算機等級考試報名時間匯總

　　各地2016年計算機等級考試準(zhǔn)考證打印時間匯總

　　各地2016年全國計算機等級考試費用匯總

　　2016年計算機等級考試備考沖刺專題

　　考試吧特別策劃：2016年計算機等級考試報考指南