2. 计算机
  3. (1)在名为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个菜单项，分别为“新建”、“打开”和“保存”(其名称分别为vbNew、vbOpen和vbSave)。要求程序运行后，如果

(1)在名为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个菜单项，分别为“新建”、“打开”和“保存”(其名称分别为vbNew、vbOpen和vbSave)。要求程序运行后，如果

admin2010-07-13  36
问题 (1)在名为Forml的窗体上建立两个主菜单，其标题分别为“文件”和“帮助”，名称分别为vbFile和vbHelp，在“文件”菜单下有3个菜单项，分别为“新建”、“打开”和“保存”(其名称分别为vbNew、vbOpen和vbSave)。要求程序运行后，如果选中 “文件”下的某个菜单项，则将该菜单项的标题通过MsgBox对话框显示出来，如图30—3所示。
    注意：文件必须存放在考生文件夹中，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
    (2)在名为Forml的窗体上建立一个文本框，名为Textl；再建立一个命令按钮，名为Cmdl，标题为“计算”，如图30—4所示。

    要求程序运行后，单击命令按钮，则计算出100～200之间所有素数之和，并在文本框中显示结果，同时把结果存入文件out48．txt中(在考生文件夹中有标准模块mode．bas，其中的putdata过程可以把结果存入文件；而isprime函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False；考生可以把该模块文件添加到自己的工程中)。
    注意：文件必须存放在考生文件夹中，窗体文件名为si4．frm，工程文件名为si4．vbp。
选项
答案(1)①新建一个名为Forml的窗体。 ②执行“工具”菜单中的“菜单编辑器”命令，打开菜单编辑器；在“标题”栏中输入“文件”，在“名称”栏中输入“vbFile”；单击“下一个”按钮，再单击编辑区的右箭头按钮，在“标题”栏中输入“新建”，在“名称”栏中输入“vbNew”；单击“下一个”按钮，在“标题”栏中输入“打开”，在“名称”栏中输入“vbOpen”；单击“下一个”按钮，在“标题”栏中输入“保存”，在“名称”栏中输入“vbSave”；单击下“标题”栏中输入“帮助”，在“名称”栏中输入“vbHelp”； ③打开代码窗口输入如下代码： Private Sub vbNew_Click() MsgBox"新建" vbOKOnly End Sub Private Sub vbOpen_Click() MsgBox"打开" vbOKOnly End Sub Private Sub vbSave_Click() MsgBox"保存" vbOKOnl y End Sub ④按要求保存文件即完成本题。 (2)①新建一个名为Forml的窗体。 ②单击工具箱中的TextBox控件图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Textl。 ③单击工具箱中的CommandButton控件图标，在窗体上拖拉出一个命令按钮，在属性窗口设置该命令按钮名称为Cmdl，Caption属性为“计算”。 ④打开代码窗口，输入如下代码： PrivateSubCmdl_Click() Dim temp As Long temp=0 Fori=100 To 200 If isprime(i) Then temp=temp+i End If Next i Textl．Text=temp putdata App．Path&"＼out48．txt" temp End Sub ⑤按要求保存文件即完成本题。
解析
转载请注明原文地址:https://kaotiyun.com/show/NLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)