2. 计算机
  3. 在名称为Form1的窗体上画两个单选按钮，名称分别为Optl和Opt2，标题分别为“100～200之间素数”和“200～400之间素数”；一个文本框，名称为Textl；两个命令按钮，其名称分别为Cmdl和Cmd2，标题分别为“计算”和“存盘”，如图22-5

在名称为Form1的窗体上画两个单选按钮，名称分别为Optl和Opt2，标题分别为“100～200之间素数”和“200～400之间素数”；一个文本框，名称为Textl；两个命令按钮，其名称分别为Cmdl和Cmd2，标题分别为“计算”和“存盘”，如图22-5

admin2010-07-13  55
问题  在名称为Form1的窗体上画两个单选按钮，名称分别为Optl和Opt2，标题分别为“100～200之间素数”和“200～400之间素数”；一个文本框，名称为Textl；两个命令按钮，其名称分别为Cmdl和Cmd2，标题分别为“计算”和“存盘”，如图22-5所示。程序运行后，如果选中一个单选按钮并单击“计算”按钮，则计算出该单选按钮标题所指明的所有素数之和，并在文本框中显示出来。如果单击“存盘”按钮，则把计算结果存入out．txt文件中，该文件必须放在考生文件夹中(在考生文件夹中有标准模块nrode．has，其中的putdata过程可以把结果存人指定的文件，而’isprime函数可以判断整数X是否为素数，如果是素数，则函数返回True，否则返回False，考生可以将该模块文件添加到自己的工程中)。

    注意：必须把素数之和存入考生文件夹下的out．txt文件中，否则没有成绩。保存程序时必须存放在考生文件夹下，窗体文件名为sj5．frm，工程文件名为sj5．vbp。
选项
答案 本题主要考查的知识点有文本框及选项按钮的使用，在程序代码设计中用到了循环结构设计的思想。素数的判断准则为看该数除了1和其本身之外，还有无其他约数，若有，表示该数不是素数，否则该数为素数。 文本框用Text属性来显示计算结果；命令按钮的标题通过Caption属性来设置，单击命令按钮触发Click事件；为了检测单选按钮是否被选中，可以通过检测Value属性来实现，当Value的属性为True时，表示单选按钮被选中，否则未被选中。 ①建立界面并设置控件属性。题目提供了程序用到的控件及其属性，见下表。 [*] ②打开工程资源管理器，在其空白处右键添加模块mode．bas(此文件已在考生文件夹里)，模块代码如下： Option Explicit Sub putdata(t_FileName As String，T_Str As Variant) Dim sFile As String sFile="＼"&t_FileName Open App．Path＆sFile For Output As#1 Print#1，T Str Close#1 End Sub Function isprime(t_I As Integer)As Boolean Dim J As Integer isprime=False For J=2 To t_I／2 Ift_I Mod J=0 Then Exit For Next J IfJ>t_I／2 Then isprime=True End Function ③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Private Sub Cmdl Click() Dim i As Integer Dim temp As Long temp=0 If Opt2．Value Then For i=200 To 400 If isprime(i)Then temp=temp+i End If Next i Else For i=100 To 200 If isprime(i)Then temp=temp+1 End If Next i End If Textl．Text=temp End Sub Private Sub Crod2 Click() putdata"＼out．txt"，Textl．Text End Sub ④调试并运行程序。 ⑤按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/wGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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