2. 计算机
  3. (1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和vbEdit，在“文件，，菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运

(1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和vbEdit，在“文件，，菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运

admin2009-08-26  61
问题 (1)在名称为Form1的窗体上建立两个主菜单，其标题分别为“文件”和“编辑”，名称分别为vbFile和vbEdit，在“文件，，菜单下有三个子菜单项，标题分别为“打开”、“保存”和“关闭”，名称分别为vbOpen、vbSave和vbClose。要求程序运行后，如果选中“文件”下的某个菜单项，则通过MsgB0x对话框显示该菜单项的标题，如图6—3所示。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3.frm，工程文件名为si3．vbp。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm。该程序是不完整的。在窗体上建立一个名称为Comrnand1，标题为“计算”的命令按钮，再建立一个名称为Text1的文本框。运行界面如图6—4所示。要求程序运行后，若单击“计算”按钮，将计算200～350之间所有素数的和，在文本框中显示结果，同时把结果存入文件out．txt中。(在考生文件夹中有标准模块mode．bas，其中的writedata过程可以把结果存入文件，而isprinlenum函数可以判断整数x是否为素数，如果是素数，则函数返回True，否则返回False，考生可以把该模块文件添加到自己的工程中。)

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)本题主要考查MsgBox函数的使用。MsgBox函数用于在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。其格式为：MsgBox(prompt[，buttons][，title][，helpfile，conText])。Prompt参数是必选的，是字符串表达式，作为显示在对话框中的消息；Buttons是可选的，是数值表达式值的总和，指定显示按钮的数目及形式；Title是可选的，是在对话框标题栏中显示的字符串表达式。如果省略title，则将应用程序名放在标题栏中；Helpfile是可选的，是字符串表达式．识别用来向对话框提供上下文相关帮助的帮助文件；ConText是可选的，是数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。 在窗体空白处单击右键，按“Ctrl+E”组合键打开菜单编辑器，添加菜单项如下： [*] 单击“确定”按钮，菜单建立完成后，进入代码窗口编写以下代码： Private Sub vbClose_Click() ’关闭命令调用的函数 MsgBox("关闭") End Sub Private Sub vbOpen_Click() ’打开命令调用的函数 MsgBox("打开") End Sub Private Sub vbSave_Click() ’保存命令调用的函数 MsgBox("保存") End Sub 单击[*]按钮运行程序，并按要求保存。 (2)先按要求将一个文本框控件和一个命令按钮添加到窗体中，文本框的名称为Text1，命令按钮的名称为Command1、Caption属性为计算。然后将mode．bas模板加人到工程当中，模板的代码如下： Function isPrimeNum(num As Integer)As Boolean ’判断输入是否为素数 isPrimeNum=True Dim i As Integer For i=2 To num-1 If num Mod i=0 Then isPrimeNum=False Exit For End If Next i End Function Function writeData(total As Long) ’将结果写入out．txt文件中 Open App．Path&．"＼out．txt"For Output As#1 Write#1，total Close#1 End Function 然后单击Commandl，进入代码窗口，编写以下代码： Private Sub Commandl_Click() Dim n As Integer Dim total As Long total=0 For n=200 To 350 If isPrimeNum(n)=True Then’如果是素数则累加到total中 total=total+n End If Next n Textl．Text=Iotal writeData(total) ’将结果写入out．txt文件中 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/qc1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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