首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框,名字为Text1,以及两个命令按钮,名字分别为Command1和Command2,标题分别为Search和Save。还有一个函数过程Search(a),在程序中可以直接调用该
在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框,名字为Text1,以及两个命令按钮,名字分别为Command1和Command2,标题分别为Search和Save。还有一个函数过程Search(a),在程序中可以直接调用该
admin
2009-03-17
54
问题
在考生文件夹内(C:\ylc)有一个工程文件ylc.vbp。在窗体上有一个文本框,名字为Text1,以及两个命令按钮,名字分别为Command1和Command2,标题分别为Search和Save。还有一个函数过程Search(a),在程序中可以直接调用该函数,其功能为判断整型参数number是否为质数。如果是则返回True,否则返回False。编写一个事件过程,实现以下功能:运行时,在文本框内输入一个正整数。单击Search按钮后,找到小于该正整数的第一个素数,显示在 Text1中;单击“Save”,则把Text1中的计算结果存入考生文件夹下的out.txt文件中。程序运行后如图27所示。要求实现题目给出的功能,并将文件保存在考生文件夹下,工程文件名为 ylc.vbp。
选项
答案
(1)在工具箱中选择命令按钮控件,在窗体上创建两个命令按钮,名称分别为Command1和Command2,标题分别为Search和Save。 (2)双击Search按钮弹出代码窗口,在其中添加如下代码: Private Sub Command1_Click() Dim a As Integer number=Val(Text1. Text) Do While (Search(number)=False) number=number-1 Loop Text1.Text=number End Sub (3)双击“Save”按钮弹出代码窗口,在其中添加如下代码: Private Sub Command2_Click() Call savedata("out.txt", CInt(Text1.Text)) End Sub Sub savedata(filename As String, number As Integer) Open App. Path & "\" filename For Output As #1 Print #1, number Close #1 End Sub (4)按F5键运行程序。如图27所示。 (5)执行“文件”→“保存工程”命令,将工程文件命名为ylc.vbp,窗体文件命名为 ylc.frm。
解析
(1)该题答案第4部分中的代码调用了原始文件中的Search函数过程。当函数判断得到第一个质数时就会跳出Do循环体,并将该质数值赋给文本框的Text属性,显示在文本框中。(2)第5部分中编写了一个用于向文件out.txt写入数据的过程,并在Save按钮的单击事件中调用了这个过程。
转载请注明原文地址:https://kaotiyun.com/show/ek1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列关于Java程序结构描述不正确的是()。
在事件处理过程中,涉及的3类对象是事件、事件源和【】。
Swing组件中可以通过拖动控件来设置数值的是()。
下面程序的输出结果是()。publicclassSun{publicstaticvoidmain(Stringargs[]){inti=9;switc
下列选项中,不属于JDK文件子文件夹的是()。
软件需求分析阶段的工作,可以分为4个方面:需求获取、需求分析、编写需求分析说明书和()。
Swing的事件处理机制包括【】、事件和事件监听者。
【】是一个特殊的方法,是为对象初始化操作编写的方法,用它来定义对象的初始状态。
线性表若采用链式存储结构时,要求内存中可用存储单元的地址()
在下列关于二叉树的叙述中,正确的一项是()。
随机试题
女性,39岁,左前臂行石膏绷带包扎后1小时,出现手指剧痛,苍白发凉,桡动脉搏动减弱,应首先采取的措施是( )。
女性患者,32岁,近2月来出现进食减少,明显消瘦,多毛、痤疮、乳房萎缩、生须,血压180/120mmHg、血钾2.8mmml/L,诉腹痛,查尿17-羟120μmoL/24小时、尿17-酮186μmol/24小时
根据商检法,销售、使用未报经检验的属于法定检验进口商品的,检验检疫机构根据情况可以处以有关商品总值( )的罚款。
某投资者在期初以每股18元的价格购买C股票100股,半年后每股收到0.2元的现金红利,同时卖出股票的价格是20元,则在此半年期间,投资者在C股票上的百分比收益率应为()。
按照《商业银行资本管理办法(试行)》的规定,商业银行的核心一级资本不包括()。
下列不属于教育技术目的的是()。
设,其中f,g均可微,计算
ItwasClark’sfirstvisittoLondonUndergroundRailway.Against【C1】______adviceofhisfriends,hedecidedtogothereafter
Mostofyouwouldprobablysaythatwhatmakesyoutrulyhappyisyourfamilyandtheloveyoushareinyourrelationships,an
HarlemRenaissance(文艺复兴)—ABriefIntroductionImportantFeatures1.HarlemRenaissance(HR)isthenamegiventotheper
最新回复
(
0
)