首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
admin
2009-02-25
33
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”和“存盘”,名称分别为 vbNew、vbOpen和vbSave。要求程序运行后,如果选中“文件”下的某个菜单项,则通过MsgBox对话框显示该菜单项的标题,如图3-3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt3.frm,工程文件名为sjt3.vbp。
(2)在窗体上建立一个名称为Text1的文本框,再建立一个名称为Cmd1,标题为“计算”的命令按钮,如图3-4所示。要求程序运行后,单击命令按钮,将计算100-200之间所有素数之和,在文本框中显示结果,同时把结果存入文件out.txt中。 (在考生文件夹中有标准模块mode.bas,其中的putdata过程可以把结果存入文件,而isprime函数可以判断整数x是否为素数,如果是素数,则函数返回True,否则返回 False,考生可以把该模块文件添加到自己的工程中。)
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp,结果存入out.txt文件。
选项
答案
(1)在Visual Basic中,菜单项通过菜单编辑器来建立;选择菜单则是触发其Click事件。 MsgBox函数在对话框中显示消息,等待用户单击按钮,并返回1个Integer告诉用户单击哪一个按钮。 语法:MsgBox(prompt[,buttons][,title][,helpfile,context]) MsgBox函数的语法具有以下几个命名参数: Prompt必需的。字符串表达式,作为显示在对话框中的消息。 Buttons可选的。数值表达式是值的总和,指定显示按钮的数目及形式。 Title可选的。在对话框标题栏中显示的字符串表达式。如果省略title,则将应用程序名放在标题栏中。 Helpfile可选的。字符串表达式,识别用来向对话框提供上下文相关帮助的帮助文件。 Context可选的。数值表达式,由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。解题步骤: 第一步:建立菜单项。程序中用到的菜单项及其属性见表3-2。 [*] 第二步:编写程序代码。 参考代码: Private Sub vbNew_Click() MsgBox“新建”,vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox“打开”,vbOKOnly End Sub Private Sub vbSave_Click() MsgBox“存盘”,vbOKOnly End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)在窗体上建立好控件后,先设置控件的属性值,再编写事件过程。 文本框中显示的内容由Text属性设置,命令按钮的标题由Caption属性设置,单击命令按钮触发Click事件。解题步骤:第一步:建立菜单项。程序中用到的控件及其属性见表3-3。 [*] 第二步:编写程序代码。 参考代码: Private Sub Cmd1_Click() Dim i As Integer Dim temp As Long temp = 0 For i = 100 To 200 If isprime(i) Then temp = temp + i End If Next Text1.Text = temp putdata "out.txt",temp End Sub 标准模块代码: 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 # 1 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 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/IQ1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下面程序后输出的正确结果是publicclassTest{publicstoicvoidmain(Stringargs[]){bytex=3,y=4;longr=80L;Sys
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
下列关于数据的逻辑结构的叙述中,正确的是()
下列WindowListener接口方法中当窗口被激活时调用的方法是()。
以下各选项中能正确声明一个表示50个值为null的字符串数组的是()。
在数据库的概念结构设计中,常用的描述工具是【】。
下列叙述中正确的是
软件生命周期可分为多个阶段。一般分为定义阶段、开发阶段和维护阶段。编码和测试属于【】阶段。
数组中各个元素的数据类型是
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()。
随机试题
余秋雨在其散文《________》中提到了“贬官文化”。
社区全科医生通过会诊、转诊和咨询等措施调动整个医疗保健体系和社会其他力量,共同解决人们的健康问题,这体现了社区卫生服务的哪一特征
A.腋动脉B.臂动脉C.尺侧副动脉D.正中动脉E.肘横动脉分布于腕和指伸肌的动脉是
下列属于我国境内单位的是()。
投资是指实际资本的形成,可以看作是以牺牲当前消费来增加未来消费的行为。根据以上定义,下面不属于投资行为的是()。
下列各句中,没有语病的一句是()
A、卐卍♀卐卍♀♂♂B、※※№∷∷№⊙⊙C、▽△〇◇◇〇口口D、∞∝∮∧∧∮∵∵B题干排列规律为:AABCCBDD,只有B项符合。
筐里共有30个桃子,如果不一次拿出,也不一个个地拿,要求每次拿出的个数相同多,最后要正好拿完,共有()种不同的拿法。
新生儿的头部大小是成年时头部大小的70%,占体长的。1/4,对于这种现象,下列哪一个概念能够给予解释
Hegaveapledge______(以友好的方式来处理这些事务).
最新回复
(
0
)