首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在窗体上绘制一个名称为Textl的文本框,再绘制一个名称为Cmdl、标题为“计算”的命令按钮,如图44—3所示。要求程序运行后,单击命令按钮,将计算100~200之间所有素数之和,并在文本框中显示结果,同时把结果存人文件out.txt中(在考生文件夹
(1)在窗体上绘制一个名称为Textl的文本框,再绘制一个名称为Cmdl、标题为“计算”的命令按钮,如图44—3所示。要求程序运行后,单击命令按钮,将计算100~200之间所有素数之和,并在文本框中显示结果,同时把结果存人文件out.txt中(在考生文件夹
admin
2010-07-13
25
问题
(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全国计算机二级
相关试题推荐
下列代码的执行结果是()。PublicclassTest{Publicstaticvoidmain(Stringargs[]){System.out.println(5/2);System.out.p
Java对文件类提供了许多操作方法,能获得文件对象父路径名的方法是()。
设计程序时,应采纳的原则之一是()。
若有如下程序:publicclassTest{publicstaticvoidmain(String[]args){intx=20;if(x>10)System.out.print(x-=5);if(x>5)Syste
Applet运行时,被浏览器或AppletViewer调用的第一个方法是( )。
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
Graphic提供的绘图方法可以分为:绘制【】的方法和绘制文本的方法。
在文件类提供的方法中,用于创建目录的方法是( )。
通过类MyClass中的不含参数的构造函数,生成该类的一个对象obj,可通过以下语句实现:______。
下列程序的功能是创建了一个显示5个"Hello!"的线程并启动运行,请将程序补充完整。publicclassThreadTestextendsThread{publicstaticvoidmain(Stringargs[]){Thre
随机试题
下面关于Flash的遮罩动画的叙述,错误的是_______。
脑干内一般躯体感觉核有____________,____________和____________核。
某人持有一公司的优先股,每年年末可获得10000元股息,若利率为8%,则该人持有的优先股的现值是()元。
生产者为防止需求不确定性和供应不确定性带来的缺口而设置的一定数量的存货,被称为()。
企业为外购存货发生的下列各项支出中,应计入存货成本的有()。
甲公司为增值税一般纳税人,适用的增值税税率为13%,2019年11月份发生的与职工薪酬有关的事项如下:(1)11月1日,支付本月职工宿舍的租金20万元,该宿舍为免费提供给生产人员的福利。(2)11月3日,公司销售部门发生固定资产修理费
“葬我于高山之上兮,望我大陆。大陆不可见兮,只有痛哭!葬我于高山之上兮,望我故乡。故乡不可见兮,永不能忘!天苍苍,野茫茫。山之上,国有殇!”原国民党元老于右任在《望大陆》这首诗中对祖国大陆的魂牵梦绕体现了()。
病例:患者,男,76岁,脑卒中导致昏迷10天。为提高插胃管成功率的做法有()。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
BritishteachingunionsSundaycautiouslywelcomedgovernmentplanstoextendschoolopeninghoursforpupilsagesunder14that
最新回复
(
0
)