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

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

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件。步驟2：分析并編寫(xiě)程序代碼。程序提供代碼

　　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)閉程序后按題目要求存盤(pán)。

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

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件。

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

　　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)閉程序后按題目要求存盤(pán)。四、綜合應(yīng)用題

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

　　【操作步驟】

　　步驟1：打開(kāi)本題工程文件。

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

　　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)閉程序后按題目要求存盤(pán)。

掃描/長(zhǎng)按二維碼幫助考試通關(guān)

2018年等考報(bào)考資訊

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

2018各科最新預(yù)測(cè)試卷

2018等考各科備考資料

微信搜索"考試吧"了解更多考試資訊、下載備考資料

　　相關(guān)推薦：

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試必做試題匯總(各科目)

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試復(fù)習(xí)知識(shí)點(diǎn)匯總(各科目)

　　2018計(jì)算機(jī)等級(jí)考試報(bào)名時(shí)間|各地報(bào)名入口|報(bào)名條件

　　2018年全國(guó)計(jì)算機(jī)等級(jí)考試時(shí)間|教材目錄（2018年版）

　　2018全國(guó)計(jì)算機(jī)等級(jí)考試備考經(jīng)驗(yàn)及應(yīng)試技巧匯總

　　報(bào)名方法|考試內(nèi)容|考試大綱|2018計(jì)算機(jī)等級(jí)考試科目

　　歷年真題匯總|考試吧策劃：2018年計(jì)算機(jī)等級(jí)考試報(bào)考指南