三、簡單應用題

　　(1)【解題思路】在單擊單選按鈕數組事件過程中，首先向文本框1kt1中輸入一個不超過l0的正整數，通過Val函數實現字符向數值的轉換，然后選擇“N的階乘”或“(N+2)的階乘”單選按鈕，通過Select Case語句和單選按鈕數組的Index屬性，確定所調用函數的參數，從而調用Function fl()過程函數進行計算，將計算結果顯示在文本框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程序結束

　　參考答案

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

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

　　第5個?處填入：n

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。

　　(2)【解題思路】通過文件操作和“&”連接符將文件ins.txt中的文本讀出并顯示在文本框1鈕1中，在C0㈣dl eli&事件過程中，在文本框Text2中輸入一個英文字母，然后單擊“統計”命令按鈕，統計該字母(大小寫被認為是不同的字母)在文本中出現的次數，統計結果顯示在標簽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

　　程序結束

　　參考答案

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

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

　　步驟3：調試并運行程序，關閉程序后按題目要求存盤。四、綜合應用題

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

　　程序結束

　　參考答案

　　Private Sub Cl一Click()

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

　　Ⅱisprime(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：調試并運行程序，關閉程序后按題目要求存盤。

長按二維碼關注即可獲得等考資料

2016各科最新預測試卷

等考歷年真題及答案

2016等考成績查詢時間

2016等考各科通關技巧

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

　　相關推薦：

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

　　各地2016年計算機等級考試準考證打印時間匯總

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

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

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