首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上绘制一个名称为Textl的文本框,再绘制一个名称为Cmdl、标题为“计算”的命令按钮,如图44—3所示。要求程序运行后,单击命令按钮,将计算100~200之间所有素数之和,并在文本框中显示结果,同时把结果存人文件out.txt中(在考生文件夹
(1)在窗体上绘制一个名称为Textl的文本框,再绘制一个名称为Cmdl、标题为“计算”的命令按钮,如图44—3所示。要求程序运行后,单击命令按钮,将计算100~200之间所有素数之和,并在文本框中显示结果,同时把结果存人文件out.txt中(在考生文件夹
admin
2010-07-13
40
问题
(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://kaotiyun.com/show/6Gmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
当浏览器能够解释<APPLET>标记但不能运行Applet时,将显示【】标记中的内容。
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
下面程序段的输出结果是( )。publicclassTest{publicstaticvoidmain(String[]args){intj=2,i=5;whi
两个或两个以上的模块之间关联的紧密程度称为( )。
通过类MyClass中的不含参数的构造函数,生成该类的一个对象obj,可通过以下语句实现:______。
运行下面的程序时,会产生( )。publicclassTest{publicstaticvoidmain(Stringargs[]){intx=0;inty
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
下列基本命令中,属于类文件分解器命令的是
随机试题
我国工会具有的基本职能包括()
ThescientistsattheUniversityofBerninSwitzerlandhaveusedaweakenedvirusthatisnotinfectiousandhasprovedsafean
手的功能位是
下列除哪项外,常可引起肝细胞性黄疸
下列有关有限责任公司出资的表述中,正确的有()。
《恶臭污染物排放标准》所列的恶臭污染物中包括()。
第九届全国人民代表大会第十六次会议通过了《关于修改(中华人民共和国海关法)的决定》,新修订的海关法于()起施行。
()与《木兰诗》合称“乐府双璧”。
读“全球平均气温距平均变化”图,回答下列问题。最暖的年份是在______。
Theyoungerperson’sattractiontostereos______(不仅能从熟悉技术的角度来解释).
最新回复
(
0
)