2. 计算机
  3. 注意：下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存

admin2009-02-25  79
问题 注意：下面出现的“考生文件夹”均为c:\wexam\25160001。
   (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
   本题描述如下：
   在窗体上有两个单选按钮，名称分别为Op1和Op2，标题分别为“黑体”和“楷体”，一个文本框，名称为Text1，字体为宋体，字号为四号字，还有一个命令按钮，名称为C1，标题为“切换”。要求程序运行后，在文本框中输入“等级考试”，并选择一个单选按钮，如图2-3所示。在单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，如图2-4所示。

   (2)在窗体上建立一个名称为Text1的文本框和一个名称为Cmd1，标题为“计算”的命令按钮，如图2-5所示。程序运行后，单击“计算”命令按钮，通过在对话框输入整数12，放入整型变量a中，然后计算a!，(提示：运算结果应放入Long型变量中)，在文本框中显示结果，并把结果存入文件out.txt中。在考生文件夹中有一个标准模块mode.bas，该模块中提供了保存文件的过程putdata,考生可以直接调用。
   注意：保存时必须存放在考生文件夹下，窗体文件名为sjt4.frm，工程文件名为sjt4.vbp。
选项
答案(1)窗体的控件及属性已经建好，只需编写事件过程空缺的代码即可。 单选按钮和“切换”按钮的是通过它们的Caption属性来设置的，当点击“切换”时触发它的Click事件来使文本框的内容改变的。文本框的字体设置是通过它的Font属性来实现的。 解题步骤： 第一步：编写程序代码。 程序提供的代码： Option Explicit Private Sub C1_Click() If Op1 The n ’ Text1.Font = Op1.? End If If Op2 Then ’ Text1．?：“楷体GB2312” End If End Sub 参考代码： Option Explicit Private Sub C1_Click() If Op1 Then ’ Text1.Font = Op1.Caption End If If Op2 Then Text1.FontName =“楷体GB2312” End If End Sub 第二步：调试并运行程序。 第三步：按题目要求存盘。 (2)在窗体上建立好控件后，先设置控件属性，再编写事件过程。 当运行程序后所弹出的对话框是由Visual Basic系统本身提供的，通过调用函数InputBox来实现，本题的主要思想是考查循环语句的应用。计算一个数值的阶乘时使用了for循环，最后调用了所给模块中的过程将结果进行保存。解题步骤： 第一步：建立界面并设置控件属性。本题用到了1个文本框和1个命令按钮，将命令按钮的Caption属性设置为“计算”， Name属性设置成Cmd1，文本框属性为默认设置。 第二步：编写程序代码。 在编写程序代码时要注意变量范围的设定，题目要求将计算结果存入Long变量中，所以把最后放入文本框内的变量设置为长整型，然后保存结果。 参考代码： Private Sub Cmd1_Click() Dim a As Integer Dim temp As Long Dim i As Integer a = Val(InputBox(“请输入”，，"12")) temp = 1 For i =1 To Val(a) temp = temp * i Next Text1.Text = temp putdata"out.txt"，Text1.Text 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 第三步：调试并运行程序。 第四步：按题目要求存盘。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/8h1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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