三、简单应用题

　　(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年计算机等级考试报考指南