2. 计算机
  3. (1)在窗体上绘制一个名称为Textl的文本框，再绘制一个名称为Cmdl、标题为“计算”的命令按钮，如图44—3所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，并在文本框中显示结果，同时把结果存人文件out．txt中(在考生文件夹

(1)在窗体上绘制一个名称为Textl的文本框，再绘制一个名称为Cmdl、标题为“计算”的命令按钮，如图44—3所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，并在文本框中显示结果，同时把结果存人文件out．txt中(在考生文件夹

admin2010-07-13  50
问题 (1)在窗体上绘制一个名称为Textl的文本框，再绘制一个名称为Cmdl、标题为“计算”的命令按钮，如图44—3所示。要求程序运行后，单击命令按钮，将计算100～200之间所有素数之和，并在文本框中显示结果，同时把结果存人文件out．txt中(在考生文件夹中有标准模块mode．bas，其中的putdata过程可以把结果存入文件，而isprime函数可以判断整数X是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中)。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp，结果存入result．txt文件，否则没有成绩。
    (2)新建一个工程文件，在窗体Forml上绘制一个列表框。名称为Listl，并输入3个表项“6”、“21”、“43”；绘制一个文本框，名称为Textl。请编写适当的事件过程，使得程序运行时，在列表框内选中一个数字并双击，则计算出1500以内能被该数整除的所有数之和，并在Textl中显示出来。
    注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj4．vbp与sj4．frm。程序运行时的窗体界面如图44—4所示。
选项
答案(1)判断某数是否为素数，主要用到选择结构程序设计的思想。在窗体上建立好控件后，先设置控件的属性值，再编写事件过程。文本框中显示的内容通过Text属性设置，命令按钮的标题通过Captilon属性设置，单击命令按钮触发Click事件。 ①建立菜单项。程序中用到的控件及其属性见下表： [*] ②打开工程资源管理器，在其空白处右键添加模块mode．bas(此文件已在考生文件夹里)，模块代码如下： Option Explicit Sub putdata(t_FileName As String，T_Str As Variant) Dim sFile As String sFile="＼"&t FileName Open App．Path 8L sFile For Output As#1 Print#1，T Str Close#1 End Sub Function isprime(t_1 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 If J>t_I／2 Then isprime=True End Function ③打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下： Private Sub Cmdl Click() Dim i As Integer Dim temp As Long temp=0 For i=100 To 200 If isprime(i)Then temp=temp+i End If Next i Textl．Text=temp putdata"out．txt"，temp End Sub ④调试并运行程序。 ⑤按题目要求存盘。 (2)根据题意，新建“标准EXE”工程，将一个List控件和一个文本框控件添加到窗体中，列表框的名称为Listl，List属性添加以下3项：“6”、“21”和“43”，文本框的名称为Textl、Text属性为空。双击Listl进入代码窗口，编写如下代码： Private Sub Listl DblClick() Dim a As Integer Dim total As Long Dim i As Integer total=0 Fori=1 To 1500’利用For循环判断1—1500之间的数能否被一个数整除 If i Mod Val(Listl．List(Listl．ListIndex))=0 Then’如果该数能被选中的列表框的项的数整除 total=total+i’则进行相加 End If Next i Textl．Text=total’将结果显示在Textl中 End Sub 单击按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/6Gmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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