首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
admin
2009-03-17
34
问题
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为 “计算”和“保存数据”。编写事件过程,程序运行后,单击“计算”按钮,则计算出该单选按钮标题所指明的所有质数之和,并在文本框中输出。单击“保存数据”,存入out.txt文件中,该文件必须放在考生文件夹中(在考生文件夹中有标准模块module1.bas,其中的savedata过程可以把计算结果写入指定文件,用check函数可以判断某整数是否为质数,是则返回True,否则返回False。)程序运行界面如图30所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为ylc.vbp。
选项
答案
(1)Visual Basic集成环境中,执行“文件”→“打开工程”命令,选择ylc.vbp文件打开。 (2)执行“工程”→“添加模块”命令,在“打开模块”对话框中,打开“标准模块” modulel.bas。 (3)在工具箱中选择单选按钮控件,在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”。 (4)在窗体上创建命令按钮名称分别为Command1和Command2,标题分别为“计算”和“存盘”。 (5)定义模块级数组,在模块的声明段声明,其代码如下: Dim a(1 To 100) As Integer Dim count As Integer (6)双击“计算”按钮,弹出代码窗口,在其中添加如下代码: Dim count As Integer Private Sub Command1_Click() Dim i As Integer If Optionl,Value Then For i=100 To 300 If module1.check(i) Then count=count+i End If Next i Else For i=200 To 400 If module1.check(i) Then count=count+i End If Next i End If Text1.Text=count End Sub (7)调用savedata过程,把文件中的数值读到指定的数组中保存事件。其代码如下: Private Sub Command2_Click() Dim str As Integer str=CStr(count) Call module1.SaveData("out.txt", count) End Sub (8)双击“保存数据”按钮弹出代码窗口,在其中添加如下代码: Private Sub Command3_Click() Call SaveData(Text1.Text) End Sub Sub SaveData(str As String) Open app.Path & "\"&"out.txt"For Output As #1 Print count Close#1 End Sub (9)按F5键运行程序。如图30所示。 (10)执行“文件”一“保存工程”命令,将工程文件命名为ylc.vbp,窗体文件命名为 ylc.frm。
解析
(1)本题是一个综合应用题,根据题目的要求添加模块、创建单选按钮、命令按钮及文本框,并设置其属性。(2)在命令按钮的单击事件中,调用模块中的函数过程,判断质数,并累计某段区间的质数总和。在文本框中输出结果,并将该结果写入指定文件中。
转载请注明原文地址:https://kaotiyun.com/show/7k1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序的执行结果是()。publicclassTest{publicstaticvoidmain(Stringargs[]){System.out.println(5/
创建一个名为MyPackage的包的语句是【】。
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){intn=4,sum=0;
类中限定为()的成员变量和成员方法可以被除了不同包中的非子类访问。
从对象流中读取对象,请在画线处加入代码完成此程序【】。importjava.util.*;importjava.io.*;publicclassUnSerializeDate{Dated=nul
下列方法中设置Swing容器JFrame大小为20×30的语句是()。
字符串常量"hello"的字符个数是()。
在Java中,表示换行符的转义字符是()。
在深度为5的满二叉树中,叶子结点的个数为()。
表达式(10*49.3)的类型是______型。
随机试题
[*]
患者,男性,80岁,有慢性支气管炎病史20年。1周前受凉后再次出现咳嗽、咳痰,痰白质黏,伴有呼吸困难、胸闷、乏力。以“慢性阻塞性肺疾病”入院治疗。入院后,患者出现口唇发绀,呈端坐呼吸,护理人员应重点监测
脾虚气陷型脱肛用:脾气亏虚型直肠息肉用:
男性,64岁,进行性无痛性黄疸1月,上腹胀痛,体重减轻。检查:巩膜及周身皮肤黄染,P90次/分,BP140/,70mmHg,血清总胆红素为70μmol/L,Courvoisier征阳性为进一步确诊应首先选用
检验检疫机构对法定检验以外的出口食品可以在生产、经营单位检验的基础上,定期或不定期地抽查检验。( )
经省、自治区、直辖市人民政府批准,经济落后地区的城镇土地使用税适用税额标准可以适当降低,但降低额不得超过规定的最低税额的()。
某百货公司(增值税一般纳税人)黄金饰品部2016年2月直接零售金首饰3000克,每克零售价200元;采用以旧换新方式向消费者个人销售金首饰600克.收回旧首饰200克,收取差价80000元,并收取旧首饰折价补偿20元/克。该黄金饰品部当月应缴纳消费税金额为
书法艺术始于春秋战国时期,据考证,发现于唐代的秦国作品()是我国早期书法作品的优秀代表。
情绪异常是一种非常复杂的现象,长期以来,各个领域的学者从自己的学科出发。对此现象纷纷做出各自的解释,但是始终未获解决。现在生物学家也开始涉足这个问题,并从生物学的角度加以探讨,他们的见解让人耳目一新。我们经常说人的情绪多变,其实我们往往不是自己情绪的真正主
明治政府的三大建国政策包括()。①殖产兴业②富国强兵③文明开化④废藩置县
最新回复
(
0
)