首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
admin
2009-02-25
34
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
在下列方法的定义中,正确的是()
Java语言中,下列标识符错误的是()
结构化设计方法(SD)与结构化分析方法(SA)一样,遵循______模型,采用逐步求精技术,SD方法通常与SA相联,即依据数据流图设计程序的结构。
每个使用Swing构件的程序必须有一个()。
在顺序表(3,6,8,10,12,15,16,18,21,25,30)中,用二分法查找关键码值11,所需的关键码比较次数为()。
算法的空间复杂度是指算法执行过程中所需要的【】。
算法的空间复杂度是指()。
下列Applet在窗口中放置一个按钮,并用这个按钮控制弹出窗口的显示和隐藏。请在横线处填写正确的程序。importjava.applet.Applet;importjava.awt.*;importjava.awt.even
Mid("HelloEveryone",7,3)的执行结果是
索引属于______。
随机试题
艾滋病病人出现神经系统症状的原因包括
A、内膝眼B、攒竹C、阴陵泉D、太阳E、阳陵泉屈膝,位于髌韧带内侧凹陷处的腧穴是
半夏厚朴汤适用于郁证的哪一证型( )。
按《公路桥涵设计通用规范》(JTGD60--2004)的规定,指出下述荷载组合中______种荷载组合是错误的?
地籍图上表示建筑物时,下面说法不正确的是()。
自动化仪表工程连续()小时开通投入运行正常后,即具备交接验收条件。
作为一种国际货币体系,布雷顿森林体系的运行特征有()。
科技馆举办科技展览。组织小学生进行参加。假如你是教育局负责人,你要怎么组织?
我国《宪法》第67条规定:“全国人民代表大会常务委员会行使下列职权……(六)监督国务院、中央军事委员会、最高人民法院和最高人民检察院的工作……”试根据这一规定,分析全国人大常委会监督权的具体内容。
钱某由于生意失败,而欲跳楼轻生。围观群众李某起哄大喊:“不跳就不是男人”,钱某受到刺激而跳下摔死。此时恰巧六爷路过,极为气愤,抄起板砖砸向李某,致李某轻伤。关于本案说法正确的是()
最新回复
(
0
)