2. 计算机
  3. (1)在窗体上绘制一个名称为Text1的文本框和一个名称为cmd1、标题为“计算”的命令按钮，如图4—3所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!(提示：运算结果应放入Long型变量中)，在文本框中显示

(1)在窗体上绘制一个名称为Text1的文本框和一个名称为cmd1、标题为“计算”的命令按钮，如图4—3所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!(提示：运算结果应放入Long型变量中)，在文本框中显示

admin2009-03-26  71
问题 (1)在窗体上绘制一个名称为Text1的文本框和一个名称为cmd1、标题为“计算”的命令按钮，如图4—3所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!(提示：运算结果应放入Long型变量中)，在文本框中显示结果，如图4—4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程putdata，考生可以直接调用。
    注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。

    (2)在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设詈，如图4—5所示。

    窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
    注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
选项
答案(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 A8 String sFile="＼"&t_FileName ()pen App．Path&．sFile For Output As#1 Print#1,T_Str Close#1 End Sub ④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输人代码如下： Private Sub Cmdl 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 Textl．Text=temp putdata"out．txt"，Textl．Text End Sub ⑤调试并运行程序。 ⑥按题目要求存盘。 (2)①打开题目所给工程文件。 ②打开代码窗口输入以下代码： Private Sub Cmdl Click() IfOptl．Value=True Then Textl．Font="宋体" Else Textl．Font="隶书" End If If Chkl．Value=l Then Textl．FontUnderline=Ture Else Textl．FontUnderline=False End If If Chk2．Value=1 Then Textl．FontItalic=True Else Textl．FontItalic=False End If End Sub ③按要求保存文件即完成本题。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/mV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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