2. 计算机
  3. 在考生目录下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；还有一个命令按钮，名称为Commandl，标题为“输出结果”，如图64—6所示。并有一个函数isPrimeNum可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数

在考生目录下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；还有一个命令按钮，名称为Commandl，标题为“输出结果”，如图64—6所示。并有一个函数isPrimeNum可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数

admin2010-07-13  40
问题 在考生目录下有一个工程文件sj5．vbp，其窗体上有一个文本框，名称为Textl；还有一个命令按钮，名称为Commandl，标题为“输出结果”，如图64—6所示。并有一个函数isPrimeNum可以在程序中直接调用，其功能是判断参数a是否为素数，如果是素数，则返回true，否则返回false。请编写适当的事件过程，使得在运行时，单击“输出结果”按钮，则找出大于2 000的最小素数，并显示在Textl中。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。
选项
答案本题重点考查函数调用、For循环语句、If判断语句。素数的判断准则就是看该数除了1及其本身外是否别无其他约数。要找出大于2 000的最小素数，可以用FOR循环语句逐个对大于2 000的整数通过调用原题提供的isPrimeNum()函数判断其是否为素数，若找到第一个素数，这就是最小素数，将其赋给Textl的Text属性，并用Exit For结束循环。 根据题意，双击Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() Dim a As Integer Dim b AS Boolean a=2000 b=isPrimeNum(a) Wbile b=False a=a+1 b=isPrimeNum(a) Wend Textl．Text=a End Sub Function isPrimeNum(num As Integer)As Boolean isP rimeNum=True Dim i AS Integer For i=2 To hum-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/iGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)