首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
admin
2009-03-17
54
问题
在窗体上创建两个单选按钮,名称分别为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[]){bytey=4;long
下列Applet计算数组元素的和,并在窗口坐标(50,50)处输出该结果。请在横线处填写正确的代码。importjava.awt.Graphics;importjava.applet.Applet;publicclassTe
数据库DB,数据库系统DBS,数据库管理系统DBMS,这3者之间的关系是()。
下列叙述中正确的是()。
用来导入已定义好的类或包的语句是()。
和AWT有关的所有事件类都是从类()派生而来。
在一个长度为n的线性表中插入一个元素,最坏情况下需要移动的数据元素数目为()。
下列叙述中正确的是
如果在Applet中要访问一个HTML文件,可以请示浏览器实现相应HTML文本的显示。通过AppletContext的【】方法,Applet可以通知浏览器在哪个窗口中显示哪个URL中的文件。
结构化程序设计所规定的3种基本控制结构是()。
随机试题
在_______年内生产任何车辆的识别代号不得相同。
A.吸气性呼吸困难B.呼气性呼吸困难C.混合性呼吸困难D.劳力性呼吸困难E.静息呼吸困难下列疾病可产生哪种类型的呼吸困难?男性,18岁,5岁时患麻疹后咳嗽迁延不愈,渐出现喘息,反复发作,体检:呼气延长,
A.1~2个月B.3~6个月C.6~12个月D.12~18个月E.2岁以后腭裂修复术的时间是()
A.射干麻黄汤B.麻黄汤合华盖散C.二陈汤合三子养亲汤D.三拗汤合止嗽散E.生脉散合补肺汤治疗喘证痰浊阻肺证,应首选的方剂是()
经行吐衄的发病机理主要是
小于购买了一只前端收费的基金,申购金额为50000己,申购费率为1.5%,当日基金单位净值为1.6元,则价外法计算的申购份额为()份。
甲公司是一家历史悠久的英国奶制品公司,业务遍布欧洲、亚洲和美洲,其规模在英国同行业排行第二。甲公司生产的主要产品包括婴儿奶粉、全脂成人奶粉、各类乳酪制品,并一直使用单一品牌在各地市场上销售。甲公司在英国总部聘用了400余名营销人员,分别负责各地区的销售业务
账户的基本结构在会计实务中被形象地称为()账户。
某省以“三项活动”为抓手,省直部门组织开展“走访基层活动”,省直部门一把手纷纷深入农村社区,厂矿企业,走近下岗职工,进城务工人员中,广泛征询群众意见和建议,同时开展调研走访,结对帮扶困难群众等活动,走访期间,深入企业群众n户,帮助群众n户,形成调研报告n篇
你对以后有什么打算?
最新回复
(
0
)