首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
在窗体上创建两个单选按钮,名称分别为Option1和Option2,标题分别为“100到300之间的质数”和“200到400之间的质数”,以及一个文本框,名称为Text1。在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为
admin
2009-03-17
38
问题
在窗体上创建两个单选按钮,名称分别为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://jikaoti.com/ti/Fdq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
对于长度为n的线性表,若进行顺序查找,则时间复杂度为【】。
表达式42<<4的值为【】。
将整个软件划分成若干单独命名和可编址的部分,称之为【】。
下列赋值语句中错误的是()。
下列叙述中,正确的是()
对于构造方法,下列叙述正确的是______。
若a是float型变量,且a=6,则表达式a/2+(int)(a+1)%2的值为【】。
现有两个类A,B,以下描述中表示B继承自A的是()
下列关于正则表达式的说法,不正确的是
一个结点的子结点个数称为该结点的【】。
随机试题
检查诊断时应先检查如果病人说明仅在大张口时易掉,应该检查的是
建设单位应当在工程竣工后()个月内,向城建档案馆报送一套符合规定的建设工程档案。
洗钱罪的犯罪对象不包括()。
①只有真正做到对知识智力资源的有效配置和运用,才可能______科技创新能力。②经济学家认为,金融体系脆弱、法制体系不______、政府保护、体制惰性等弱点对中国“入世”后融入国际经济构成不小的阻力。③这件事情盘根错节,个中______绝非
对时间流逝的不安全感为何愈加强烈?恐怕与不少人对待成功的态度有关。无可否认,在竞争激烈的商业社会中,人们容易被一种“速成功”的理念所_________________,渴望“一夜成名”的神话,期待“_________________”的胜利。填入
已知a,b,c是3个正整数,且a>b>c,若a,b,c的算术平均值为,几何平均值是4,且b,c之积恰为a,则a,b,c的值依次为().
以下程序拟实现计算s=1+2*2+3*3+…+n*n+…,直到s>1000为止。 #include<stdio.h> main() {ints,n; s=1; n=1; do {n=n+1;s=s+n*n;}
在数据库管理系统提供的数据语言中,负责数据的查询、增加、删除和修改等操作的是
Itisclearthatsomepeoplewhoparticipateinexercisetrainingwilldevelopinjuriestotheirbones,muscles,andjoints(关节)
Beforethe20thcenturythehorseprovideddaytodaytransportationintheUnitedStates.Trainswereusedonlyforlong-distan
最新回复
(
0
)