首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
admin
2009-02-25
42
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
下面不属于软件设计原则的是
将整个软件划分成若干单独命名和可编址的部分,称之为【】。
Object中定义的线程同步与交换的方法有几种?()
设一棵完全二叉树共有700个结点,则在该二叉树中有上【】个叶子结点。
当Applet程序中的init()方法为下列代码时,运行后用户界面会出现什么样的情况。publicvoidinit(){setLayout(newBorderLayout());add("North",n
t为int类型,进入下面的循环之前,t的值为0。while(t=1){...}则以下叙述中,正确的是()。
在结构化分析使用的数据流图(DFD)中,利用【】对其中的图形元素进行确切解释。
下面是一个Applet程序,其功能是接收用户输入的两个整数,比较它们的大小,并在用户按下“比较”按钮后,将Applet中的显示的“请先输入两个待比较的整数”,改为“两个整数中最大值:x”,x是两个数中的最大值。请改正程序中的错误(有下划线的语句)并将程序填
在对一个复杂表达式进行运算时,要按运算符的优先顺序从高到低进行,同级的运算符则按照【】进行。
和语句for(intx=0;x<15;x+=2)sum+=x+5;作用一样的语句是()
随机试题
基准日与报告日期是相同(或接近)的资产评估是指()
母犬,10岁,多食、多饮、多尿,体重减轻血糖浓度为10mol/L有效的治疗药物是()
1995-2003年应纳所得税总额()万元。2004年该企业应缴纳的所得税()万元。
女职工特殊生理期问保护中的“四期”保护是指()。
邓小平指出:“计划经济不等于社会主义,资本主义也有计划;市场经济不等于资本主义,社会主义也有市场。”这一论断表明()。
注:1.此表中部分数据因四舍五入的原因,存在总计与分项合计不等的情况。2.此表中“分行业”列举只给出部分行业统计数据。制造业中,民间固定资产投资同比增长量最大的是:
简述我国《刑法》中关于贪污罪的特别宽宥制度和终身监禁制度。
在列表框中当前被选中的列表项的序号是由下列哪个属性表示______。
Whatdoesthewomanaskhersontodo?
A、Thewhaleshark.B、Thegreatestwhiteshark.C、Thebullshark.D、Thetigershark.AWhichisprobablythelongestshark?
最新回复
(
0
)