首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
admin
2009-03-17
36
问题
在窗体上创建两个单选按钮,名称分别为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/
下列命令中用于为远程对象生成stub和skeleton的是()。
如果一个JavaApplet源程序文件中只定义了一个类,该类的类名为MyApplet,则存储该源程序文件的文件名应为【】。
假设a是int类型的变量,并初始化为1,则下列各项中属于合法条件语句的是()。
在一个有n个元素的顺序表的第i个元素(1≤i≤n)之前插入一个新元素时,需要向后移动【】个元素。
下列不属于更新数据库操作步骤的是()。
下列各项中不是JDBCAPI向JDBCDriverManager发出请求的内容的是()。
一棵二叉树第六层(根结点为第一层)的结点数最多为【】个。
随机试题
清胃散中不含有哪味药
下列关于钢筋焊接连接,叙述不正确的是()。
“增值税专用发票”税款抵扣联上记录的进项税额可以在购货单位作为“进项税额”列账。()
申报单证可以分为报关单和随附单证两大类,其中随附单证包括基本单证和特殊单证。以下属于特殊单证的有:
下列各项中,应计入增值税一般纳税人收回委托加工物资成本的有()。
甲、乙、丙、丁以普通合伙企业形式开了一家餐馆。就该合伙企业事务的执行,下列表述正确的有()。
九门口自古为兵家必争之地,发生在此地的战事有()。
某化学教师在一次化学测验中设计了下列试题,测试后对部分学生的作答情况进行了统计,并选取了典型的解题过程加以分析。【试题】分步骤写出加热高锰酸钾制取氧气的化学反应方程式。【考试结果】经统计分析,下列的书写过程具有普遍性。第一步:KMnO4—K2MnO4
由全国人大及其常委会制定和发布的教育法规称为()。
TheStruggleAgainstSuperbugsARarelydoesabacteriumbecomethefuelforanationalelectioncampaign.Staphylococcusaureu
最新回复
(
0
)