| 第 1 頁：選擇題 |
| 第 3 頁：基本操作題 |
| 第 4 頁：簡單應(yīng)用題 |
| 第 5 頁：綜合應(yīng)用題 |
| 第 6 頁：參考答案及解析 |
三、簡單應(yīng)用題
(1)【解題思路】在單擊單選按鈕數(shù)組事件過程中，首先向文本框1kt1中輸入一個(gè)不超過l0的正整數(shù)，通過Val函數(shù)實(shí)現(xiàn)字符向數(shù)值的轉(zhuǎn)換，然后選擇“N的階乘”或“(N+2)的階乘”單選按鈕，通過Select Case語句和單選按鈕數(shù)組的Index屬性，確定所調(diào)用函數(shù)的參數(shù)，從而調(diào)用Function fl()過程函數(shù)進(jìn)行計(jì)算，將計(jì)算結(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個(gè)?處填人：Index第2個(gè)?處填入：n
第3個(gè)?處填入：n+2.第4個(gè)?處填人：n
第5個(gè)?處填入：n
步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
(2)【解題思路】通過文件操作和“&”連接符將文件ins.txt中的文本讀出并顯示在文本框1鈕1中，在C0㈣dl eli&事件過程中，在文本框Text2中輸入一個(gè)英文字母，然后單擊“統(tǒng)計(jì)”命令按鈕，統(tǒng)計(jì)該字母(大小寫被認(rèn)為是不同的字母)在文本中出現(xiàn)的次數(shù)，統(tǒng)計(jì)結(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個(gè)?處填人：S.第2個(gè)?處填入：S，sl
第3個(gè)?處填入：<>第4個(gè)?處填入：n
步驟3：調(diào)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。四、綜合應(yīng)用題
【解題思路】函數(shù)過程isprime(a)的功能是通過Do While語句、Ⅱ判斷語句和Int函數(shù)，判斷參數(shù)a是否為素?cái)?shù)，如果是素?cái)?shù)，則函數(shù)返回True，否則函數(shù)返回False。在單擊“計(jì)算”按鈕事件過程中，通過For語句和調(diào)用函數(shù)過程isprime(a)，找出小于l8000的最大的素?cái)?shù)，并將其顯示在Text1中;在單擊“存盤”按鈕事件過程中，通過文件操作把Text1中的計(jì)算結(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)試并運(yùn)行程序，關(guān)閉程序后按題目要求存盤。
微信搜索"考試吧"獲取更多考試資訊、備考資料
相關(guān)推薦：
各地2016年全國計(jì)算機(jī)等級考試報(bào)名時(shí)間匯總
各地2016年計(jì)算機(jī)等級考試準(zhǔn)考證打印時(shí)間匯總
| 北京 | 天津 | 上海 | 江蘇 | 山東 |
| 安徽 | 浙江 | 江西 | 福建 | 深圳 |
| 廣東 | 河北 | 湖南 | 廣西 | 河南 |
| 海南 | 湖北 | 四川 | 重慶 | 云南 |
| 貴州 | 西藏 | 新疆 | 陜西 | 山西 |
| 寧夏 | 甘肅 | 青海 | 遼寧 | 吉林 |
| 黑龍江 | 內(nèi)蒙古 |
