题目内容
（请给出正确答案）
（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64－3所示
（1）在窗体上绘制一个名称为Text1的文本框和一个名称为Cmd1、标题为“计算”的命令按钮，如图64-3所示。程序运行后，单击“计算”命令按钮，通过在对话框输人整数12，放入整型变量a中，然后计算a!（提示：运算结果应放入Long型变量中），在文本框中显示结果，如图64-4所示，并把结果存入文件out．txt中。考生文件夹中有一个标准模块mode．bas，该模块中提供了保存文件的过程PutData，考生可以直接调用。
注意：保存时必须存放在考生文件夹下，窗体文件名为sj3．frm，工程文件名为sj3．vbp。
（2）在考生文件夹中有一个工程文件sj4．vbp及窗体文件sj4．frm。在名为Form1的窗体上有两个容器，其中一个容器中有两个单选按钮，另一个容器中有两个复选框，窗体上还有一个标题为“确定”的命令按钮和一个初始内容为空的文本框。所有控件已经全部画出。程序的功能是：在运行时，如果选中一个单选按钮和一个或两个复选框，则对文本框中的文字进行相应的设置，如图64-5所示。
窗体上的控件已经绘制出，但没有给出主要程序内容，请编写适当的事件过程，完成上述功能。
注意：不能修改已经给出的程序部分和已有的控件；在结束程序运行之前，必须选中一个单选按钮和至少一个复选框，并单击“确定”按钮；必须通过单击窗体右上角的“关闭”按钮结束程序，否则无成绩。最后，按原文件名并在原文件夹中保存修改后的文件。
答案
(1)在窗体上建好控件后，先设置控件属性，再编写事件过程和调试程序，并使其符合题目要求。当运行程序后，所弹出的对话框是通过调用函数InputBox来实现(通过VisualBasic系统本身提供的)。本题主要是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。
①建立界面并设置控件属性。程序中用到的控件及其属性见下表：
| 控件 | 属性 | 设置值 |
| 文本框 | Name | Text1 |
| 命令按钮 | Name | Cmd1 |
| 命令按钮 | Caption | 计算 |
③打开工程资源管理器，在其空白处右键添加模块mode．bas(此文件已在考生文件夹里)，模块代码如下：
④打开工程资源管理器，右击窗体，选择查看代码项，在弹出的代码窗口输入代码如下：
⑤调试并运行程序。
⑥按题目要求存盘。
(2)①打开题目所给工程文件。
②打开代码窗口输入以下代码：
③按要求保存文件即完成本题。
如果结果不匹配，请 联系老师 获取答案
更多“（1）在窗体上绘制一个名称为Text1的文本框和一个名称为C…”相关的问题
.jpg)
.jpg){kind=spacer}
Private Function digit(ByVal m As Integer，ByVal n As Integer)As Integer Dim i As Integer For i=1 To n-1 m=m\10 Next i digit=【 】 End Function Private Sub Command1_Click() Dim m As Integer，n As Integer，k As Integer m=Val(Text1.Text) n=Val(TextText) k=【 】 TextText=Str(k) End Sub.jpg){kind=spacer}
Private Sub Check1_Click() If Check1．Value=【 】Then Text1．FontUnderline=True Else Text1．FontUnderline=False End If End Sub Private Sub Option2_Click() Text1．【 】 End Sub
