首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即,号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下: 在名称为Form1的窗体上
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即,号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下: 在名称为Form1的窗体上
admin
2009-02-25
74
问题
在考生文件夹中有工程文件sjt5.vbp及其窗体文件sjt5.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即,号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在名称为Form1的窗体上有两个单选按钮,名称分别为Opt1和Opt2,标题分别为“100-200之间素数”和“200-400之间素数”,一个文本框,名称为Text1,和两个命令按钮,其名称分别为Cmd1和Cmd2,标题分别为“计算”和“存盘”,如图1-5所示。程序运行后,如果选中一个单选按钮并单击“计算”按钮,则计算出该单选按钮标题所指明的所有素数之和。并在文本框中显示出来。如果单击“存盘”按钮,则把计算结果存入“out.txt”文件中,该文件必须放在考生文件夹中。(在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入指定的文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回 True,否则返回False,考生可以将该模块文件添加到自己的工程中。)
注意:必须把200-400之间的素数之和存入考生文件夹下的out.txt文件中,否则没有成绩。保存程序时必须存放在考生文件夹下,窗体文件名为sjt5.frm,工程文件名为. sjt5.vbp。
选项
答案
素数的判断准则就是看是否该数除了1和其本身外别无其他约数即可。 文本框用丁Text属性来显示计算结果:命令按钮的标题由Caption属性来设置,单击命令按钮触发Click事件;为了检测单选按钮是否选中,可以通过检测Value属性来实现,当Value为了me时,表示单选按钮被选中,否则未被选中。解题步骤: 第一步:建立界面并设置控件属性。题目提供了程序用到的控件及其属性,见表1-4。 [*] 第二步:编写程序代码。 程序提供的代码: 标准模块代码 Option Explicit Sub putdata( t_FileName As String,T_Str As Variant) Dim sFile As String SFile = "\" & t FileName Open App.Path & SFile For Output As #l Print #1, T Str Close #1 End Sub Function isprime(t_I As Integer) As Boolean Dim J As Integer isprime = False For J = 2 To t I / 2 If t_I Mod J = 0 Then Exit For Next J If J > t I / 2 Then isprime = True End Function 窗体代码 Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long ’ temp = ? If Opt2.Value Then For i = 200 To 400 ’ If isprime(?) Then temp = temp + i End If Next Else For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next End If ’ Text1.? = temp End Sub Private Sub Cmd2 Click() putdata "\out.txt", Text1.Text End Sub 参考代码: Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 If Opt2.Value Then For i = 200 To 400 If isprime(i) Then temp = temp + i End If Next Else For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next End If Text1.Text = temp End Sub Private Sub Cmd2 Click() putdata "\out.txt", Text1.Text End Sub 第三步:调试并运行程序。第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/Ah1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
面向数据流的设计方法可以直接把数据流图映射成软件结构。对于变换流,除了输入模块、变换模块和输出模块外还需要一个()。
执行以下程序段后:a=________,b=__________。inta=5,b;b=++a*3;
在Java语言中,将后缀名为_________的源代码文件编译后形成后缀名为.class的字节码文件。
下面语句会产生编译错误的是
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
ODL转换关系时,若为原子类型属性,类的每个属性对应关系的一个属性;若为结构类型,其每个元素为关系的一个属性;若为数组,则按元素的个数即可扩展为______,也可扩展为多个属性。
运行下列程序,会产生什么结果?()publicclassXexlendsThreadimplementsRunable{publicvoidrun(){System.out.println
下面说法不正确的是()
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inti=1;
随机试题
前庭韧带的形成是
A、个案护理B、功能制护理C、小组护理D、责任制护理E、整体护理一名护理人员护理一位病人属于
结核病最重要的传染源是
首先进行的检查是病人入院3天后,确诊为腹膜返折以下的低分化直肠癌,拟行Miles手术,下列术前胃肠道准备措施中,不正确的是
生活垃圾填埋场泥质防水层施工控制要点有()
下面属于幼儿德育要素的是()
毫无疑问,在今日武断批判中医的人中,不乏以“科学”代言人自居者,将各种自己不懂的知识系统一棍子打死,归入________。这种态度不能不使人怀疑其言论与知识的讨论无关,另有用意。不过,在抗拒这种学霸的同时,我们也不必非要陷入相反的________。坦率地说
文章第一段中加点词语理解不恰当的一项是______。对本文写作的主要对象判断准确的一项是______。
(05年)设F(x)是连续函数f(x)的一个原函数,表示“M的充分必要条件是N”,则必有
Acarismadeupofmorethan30000parts.Eachpartinanewcarisasweakasababy.Soanewcarrequirespropercareands
最新回复
(
0
)