首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
admin
2009-02-25
21
问题
注意:下面出现的“考生文件夹”均为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://jikaoti.com/ti/k6q0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
McCall提出的软件质量模型包括______个软件质量特性。
在下列方法的定义中,正确的是()
在Java语言中,类按照程序设计所需要的常用方法和接口封装成【】。
在创建线程时可以显式地指定线程组,此时可供选择的线程构造方法有()种。
在数据库管理技术的发展过程中,经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是()。
软件生命周期可分为多个阶段。一般分为定义阶段、开发阶段和维护阶段。编码和测试属于【】阶段。
下面程序中需要对Employee的对象进行存储,请在下划线处填入正确选项。classEmployeeimplements______{……}
创建一个显示“选项”的菜单项对象mi的正确语句是______。
数据处理的剐、单位是_________。
Mid("HelloEveryone",7,3)的执行结果是()。
随机试题
若有定义语句:inta[2][3],*P;则以下语句中正确的是()。
下列哪些情形可以成立抢劫致人死亡?
针对工种特点,环境条件,项目部应从()等方面采取管理措施,确保项目安全施工。
下列关于基金投资风格分析的说法,错误的是()。
中国公民张某有一件拍卖品为经文物部门认定是海外回流文物,财产原值凭证内容填写没有封顶,转让收入额为15万元,应缴纳个人所得税( )元。
阅读下面这首诗,回答问题。无题(唐)李商隐
某图书公司招聘了77名管理培训生,拟分配到该公司的5个部门进行轮岗学习。如果先到发行部门轮岗学习的管理培训生比其他部门都多,而到其他四个部门轮岗学习的人数尽可能地均匀,则发行部门分得的管理培训生至少为多少名?()
【26】【39】
--DoesTomdohisnewjobwell’?--______hisoldjob.Howstupid!Ithinkthereisnohopeforhim.
AnewstudysaysancientsnowontopofMountKilimanjaroinTanzaniacouldbegoneinabout20years.Hugelayersoficeformed
最新回复
(
0
)