首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在名称为Form1的窗体上建立两个主菜单,其标题分别为“文件”和“帮助”,名称分别为vbFile和vbHelp,在“文件”菜单下有3个子菜单项,标题分别为“新建”、“打开”
admin
2009-02-25
46
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
在一个有n个元素的顺序表的第i个元素(1≤i≤n)之前插入一个新元素时,需要向后移动【】个元素。
【】是指反映数据元素之间逻辑关系的数据结构。
Java语言有自动收集垃圾的功能,会周期性地回收一些长期不用的对象占用的内存。下列选项中为对象清除路径的是()。Ⅰ.依靠Java的垃圾回收机制回收内存Ⅱ.调用System.gc(),请求垃圾回收Ⅲ.Java系统开始运行时,自
JDK中,用()命令对其源文件进行编译,生成字节码文件。
下面代码段的输出是()。if(5&7>0&&5|2)System.out.println("true");
switch语句中,在每个case子句后进行跳转的语句是:【】。
设JDK安装在“D:\JDK”文件夹下,应在PATH环境变量中设置“%PATH%;D:\JDK\bin”及在CLASSPATH环境变量中设置【】,才能保证在任何文件夹下均可以进行Java程序的编译及运行。
移位运算符可以起到对操作数乘2或者除2的作用,那么对操作数除2的移位运算符是【】。
如果对一个关系实施了一种关系运算后得到了一个新的关系,而且新的关系中属性个数少于原来关系中属性个数,这说明所实施的运算关系是()
使用驱动器列表框的_______属.性可以返回或设置驱动器列表中当前选中的磁盘驱动器的索引值。
随机试题
患者,男,21岁。反复干咳、胸闷3年,可自行缓解,每逢雾霾天气时、打扫卫生、郊外活动时病情复发。2小时前症状再发。查体:双肺散在哮鸣音,心率87次/分。该患者最可能的诊断是
请判断以下哪种闭经是继发性闭经( )。
根据五行相克规律确定的治疗方法是
关于城市空间布局的表述中,错误的有()
生产经营单位的主要负责人因未履行安全生产管理职责,导致发生生产安全事故,被判处有期徒刑的,根据我国《安全生产法》的规定,自刑罚执行完毕之日起( )。
根据共命运条款的规定,分出保险人( )行为的后果不是由合同双方当事人共同承担。
期货公司的负债是指期货公司的对外负债,并包含客户权益。()
()能够促进脂溶性维生素的吸收。
Duringthetraditionalweddingceremony,thebridalcouplepromiseseachotherlifelong【M1】______
TomJohnsoncametoa(11).Hewantedtostayinasingleroomwithbath.Hemadethereservationatthe(12)Afterhearrived
最新回复
(
0
)