第7题: [简答题]注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp，结果存入out.txt文件。 参考答案:[解析]在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 第三步：调试并运行程序。 第四步：按题目要求存盘。
第9题: [单项选择]某股份有限公司委托某证券公司代理发行普通股股票150000股，每股面值2元，每股按2.5元的价格出售。按协议规定，证券公司从发行收入中收取5%的手续费，从发行收入中扣除。则该公司计入资本公积的金额为( )元。 A. 16400 B. 100000 C. 206250 D. 0 参考答案:C 答案解析:[解析] 该公司计入资本公积的金额=150000×2.5×(15%)-150000=206250(元)。因此，本题的正确答案为C。
第17题: [多项选择]根据《公务员职务任免与职务升降规定（试行）》，下列关于公务员任职说法正确的有（） A. 公务员任职，按照公务员职务序列，在规定的编制限额和职数内进行，并有相应的职位空缺 B. 公务员任职，应当具备拟任职务所要求的条件和资格 C. 公务员任职，应当符合交流和回避等有关规定 D. 公务员任职时，应当按照规定确定级别 参考答案:A, B, C, D
