首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
admin
2009-03-17
63
问题
在窗体上创建两个单选按钮,名称分别为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全国计算机二级
相关试题推荐
下面哪条语句在编译时不会出现错误或警告()。
采用面向对象技术开发的应用系统的特点是()。
树L中度为1、2、3、4、5和6的结点个数为6、4、3、3、5、1,则L中叶子的个数是【】。
下列安全控制命令中,属于现实证书缓存区和密钥表项命令的是()。
对于建立良好的程序设计风格,下面有关数据说明描述错误的是()。
关于集合,下列叙述错误的是______。
如果在Applet中要访问一个HTML文件,可以请示浏览器实现相应HTML文本的显示。通过AppletContext的【】方法,Applet可以通知浏览器在哪个窗口中显示哪个URL中的文件。
下列关于正则表达式的说法,不正确的是
具有3个结点的二叉树有()。
随机试题
背景某工程包括四幢完全相同的砖混住宅楼,以每个单幢为一个施工流水段组织单位工程流水施工。已知:(1)地面±0.00m以下部分有四个施工过程:土方开挖、基础施工、底层预制板安装、回填土,四个施工过程流水节拍均为2周。(2)地上部分有三个施工过程:主体结
慢性根尖周炎的诊断主要依靠
光明公司与四海公司合同纠纷一案.一审法院判决光明公司赔偿违约金及其他损失20万元,并进入强制执行程序。请问执行过程中的下列做法,错误的是:()
投资者申购缴款结束后,发行人应聘请具有证券相关业务资格的会计师事务所对申购资金进行验证,并出具验资报告。()
金融债券可以采用的发行方式有()。Ⅰ.在全国银行间债券市场公开发行Ⅱ.定向发行Ⅲ.一次足额发行Ⅳ.限额内分期发行
某个体工商户,2008年12月列支招待费用5000元,其中1000元为业主为其儿子购买液晶显示器支出,则正确的会计分录应为( )。
下列有关股票分割的表述中,正确的是()。
战略管理的主要特点是()。
Theroughguidetomarketingsuccessusedtobethatyougotwhatyoupaidfor.Nolonger.Whiletraditional"paid"media—sucha
某市行政审批服务中心大楼内涉及几类网络:互联网Internet、市电子政务专网、市电子政务外网、市行政审批服务中心大楼内局域网以及各部门业务专网。行政审批服务中心网络规划工作组计划以市电子政务专网为基础,建设市级行政审批服务中心专网(骨干万兆、桌面千兆)。
最新回复
(
0
)