首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“编辑”,名称分别为vbFile和vbEdit,在“文件,,菜单下有三个子菜单项,标题分别为“打开”、“保存”和“关闭”,名称分别为vbOpen、vbSave和vbClose。要求程序运
(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“编辑”,名称分别为vbFile和vbEdit,在“文件,,菜单下有三个子菜单项,标题分别为“打开”、“保存”和“关闭”,名称分别为vbOpen、vbSave和vbClose。要求程序运
admin
2009-08-26
49
问题
(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“编辑”,名称分别为vbFile和vbEdit,在“文件,,菜单下有三个子菜单项,标题分别为“打开”、“保存”和“关闭”,名称分别为vbOpen、vbSave和vbClose。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgB0x对话框显示该菜单项的标题,如图6—3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为si3.vbp。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm。该程序是不完整的。在窗体上建立一个名称为Comrnand1,标题为“计算”的命令按钮,再建立一个名称为Text1的文本框。运行界面如图6—4所示。要求程序运行后,若单击“计算”按钮,将计算200~350之间所有素数的和,在文本框中显示结果,同时把结果存入文件out.txt中。(在考生文件夹中有标准模块mode.bas,其中的writedata过程可以把结果存入文件,而isprinlenum函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回False,考生可以把该模块文件添加到自己的工程中。)
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
(1)本题主要考查MsgBox函数的使用。MsgBox函数用于在对话框中显示消息,等待用户单击按钮,并返回一个Integer告诉用户单击哪一个按钮。其格式为:MsgBox(prompt[,buttons][,title][,helpfile,conText])。Prompt参数是必选的,是字符串表达式,作为显示在对话框中的消息;Buttons是可选的,是数值表达式值的总和,指定显示按钮的数目及形式;Title是可选的,是在对话框标题栏中显示的字符串表达式。如果省略title,则将应用程序名放在标题栏中;Helpfile是可选的,是字符串表达式.识别用来向对话框提供上下文相关帮助的帮助文件;ConText是可选的,是数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。 在窗体空白处单击右键,按“Ctrl+E”组合键打开菜单编辑器,添加菜单项如下: [*] 单击“确定”按钮,菜单建立完成后,进入代码窗口编写以下代码: Private Sub vbClose_Click() ’关闭命令调用的函数
MsgBox("关闭")
End Sub Private Sub vbOpen_Click() ’打开命令调用的函数
MsgBox("打开")
End Sub Private Sub vbSave_Click() ’保存命令调用的函数
MsgBox("保存")
End Sub 单击[*]按钮运行程序,并按要求保存。 (2)先按要求将一个文本框控件和一个命令按钮添加到窗体中,文本框的名称为Text1,命令按钮的名称为Command1、Caption属性为计算。然后将mode.bas模板加人到工程当中,模板的代码如下: Function isPrimeNum(num As Integer)As Boolean ’判断输入是否为素数 isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function Function writeData(total As Long) ’将结果写入out.txt文件中 Open App.Path&."\out.txt"For Output As#1 Write#1,total Close#1 End Function 然后单击Commandl,进入代码窗口,编写以下代码: Private Sub Commandl_Click() Dim n As Integer Dim total As Long total=0 For n=200 To 350 If
isPrimeNum(n)=True
Then’如果是素数则累加到total中 total=total+n End If Next n Textl.
Text
=Iotal writeData(total) ’将结果写入out.txt文件中 End Sub 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/qc1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
用鼠标点击菜单项(Menultem)产生的事件是()。
软件(程序)调试的任务是()。
下列组件中不能用addItemListener()方法注册ItemListener监听器的是()。
下列说法中,正确的是()。
1下列程序创建了一个线程并运行,请填空,使程序完整。publicclassThreadTest{publicstaticvoidmain(Stringargs[]){Helloh=newHello();
若二维数组a有m列,则在a[i][j]前的元素个数为()。
阅读下列代码:publicclassTest{publicstaticvoidmain(Stringargs[]{System.out.println(100%3);System.out.pnntln(100%3.0);}}程序运行结果为()。
如下的代码段中,如果方法unsafe()正常运行,那么结果是()。publicvoidexample(){try{unsafe();System.out.pri
用树形结构来表示实体之间联系的模型称为()。
若按层次顺序将一棵有n个结点的完全二叉树的所有结点从1到n编号,那么当i为偶数且小于n时,结点i的右兄弟是结点【】,否则结点i没有右兄弟。
随机试题
读下面这段话,分析它揭示的是艺术活动中的什么现象。江馆清秋,晨起看竹,烟光日影露气,皆浮动于疏枝密叶之间。胸中勃勃,遂有画意。其实胸中之竹并不是眼中之竹也。因而磨墨展纸,落笔倏作变相。手中之竹又不是胸中之竹也。总之,意在笔先者,定则也;趣在法外者,化机也
依据()的规定,出租是出租人将权利租给承租人使用一定的年限,只是自己不直接使用土地。
该银行第一笔业务应纳营业税( )万元该银行第二笔业务应纳营业税( )万元
某企业现着手编制2013年6月份的现金收支计划。预计2013年6月月初现金余额为8000元;月初应收账款4000元,预计月内可收回80%;本月销货50000元,预计月内收款比例为50%;本月采购材料8000元,预计月内付款70%;月初应付账款余额5000元
下列有关辞退福利的表述中不正确的是()。
某企业的人力资源主管调查发现,提高应聘标准并不是引起目前企业员工短缺的主要原因。引起企业员工短缺的主要原因,是近年来企业工作设备的改进缓慢,以及员工的工资增长未能与其他企业同步。以下哪项如果为真,最能加强上述断定?()
有三个关系R、S和T如下:则关系T是由关系R和S通过某种操作得到,该操作为( )。
请在【答题】菜单下选择【进入考生文件夹】命令,并按照题目要求完成下面的操作。注意:以下的文件必须都保存在考生文件夹下。在考生文件夹下打开文档WORD.DOCX。【背景素材】为了更好地介绍公司的服务与市场战略,市场部助理小王需要协助制作完成公司战略规
Incollege,Iencounteredaruleofthumb:Foreverycredithourperweek,youshouldbestudyingtwotothreehours【C1】________
Theuseoffireimprovedearlyman’slifeinmanyways.【B1】______madehisfoodmore【B2】______.Smokingand【B3】______foodmad
最新回复
(
0
)