2014年计算机二级考试VB专家预测试卷及答案4

　　三、简单应用题

　　(1)在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现(通过Visual Basic系统本身提供的)。本题主

　　要是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。

　　①建立界面并设置控件属性。程序中用到的控件及其属性见下表：

　　②声明存储运算结果的Long型变量。在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长整型。(例如：Dim temp As Long)

　　③打开工程资源管理器，在其空白处右键添加模块mode.bas(此文件已在考生文件夹里)，模块代码如下：

　　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

　　④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：

　　Private Sub Cmd1_Click()

　　Dim a As Integer

　　Dim temp As Long

　　Dim i As Integer

　　a=Val(InputBox("请输入"))

　　temp=1

　　For i=1 To Val(a).

　　temp=temp*i

　　Next i

　　Text1.Text =temp

　　putdata"out.txt"，Text1.Text

　　End Sub

　　⑤调试并运行程序。

　　⑥按题目要求存盘。

　　(2)①打开题目听给工程文件。

　　②打开代码窗口输入以下代码：

　　Private Sub Cmd1 Click()

　　If Opt1.Value=True Then

　　Text1.Font="宋体"

　　Else

　　Text1.Font="隶书"

　　End If

　　If Chk1.Value=1 Then

　　Text1.FontUnderline=Ture

　　Else

　　Text1.FontUnderline=False

　　End If

　　If Chk2.Value=1 Then

　　Text1.FontItalic=True

　　Else

　　Text1.Fon tItalic=False

　　End If

　　End Sub

　　③按要求保存文件即完成本题。

　　相关推荐：

　　2014计算机等级《二级VB》上机预测题及答案汇总

　　考试吧考后首发2014年3月计算机等考真题及答案通知

　　考试吧推荐：2014年3月计算机二级考前冲刺备考专题