2. 计算机
  3. (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为Opl和Op2，标题分别为“斜体”和“黑体”，一个文本框，名称为Textl，字体为宋体，字号为四号字，还有一个命令按钮，名称为Com

(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为Opl和Op2，标题分别为“斜体”和“黑体”，一个文本框，名称为Textl，字体为宋体，字号为四号字，还有一个命令按钮，名称为Com

admin2009-03-26  25
问题 (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有两个单选按钮，名称分别为Opl和Op2，标题分别为“斜体”和“黑体”，一个文本框，名称为Textl，字体为宋体，字号为四号字，还有一个命令按钮，名称为Commandl，标题为“切换”。要求程序运行后，在文本框中输入“测试结果”，并选择一个单选按钮，单击“切换”按钮后，会根据所选的单选按钮来切换文本框中所显示的汉字字体，程序运行时的窗体界面如图32—3所示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有一个工程文件sj4．vbp，窗体上有一个名为Textl的文本框和一个名为Commandl的命令按钮，标题是“计算”。程序运行后，单击“计算”命令按钮，通过对话框输入整数12，放入整型变量a中，然后计算l+2+3+…+a，(提示：运算结果应放入Long型变量中)，如图32—4所示。在文本框中显示结果，并把结果存入文件out4．txt中。在考生文件夹中有一个标准模块mode4．bas，该模块中提供了保存文件的过程WriteData，考生可以直接调用。

    注意：去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的其他属性。最后把修改后的文件按原文件名存盘
选项
答案(1)本题主要考查控件基本属性的设置。根据题意，将两个单选按钮控件、一个文本框控件和一个命令按钮添加到窗体中，两个单选按钮控件的名称分别设为Opl和Op2，Opl的Value设为True、Op2的Value设为False，Caption属性分别为“斜体”和“黑体”；文本框控件的名称设为Textl、Text属性为“测试结果”，Font属性设为“四号宋体”；命令按钮的名称设为Commandl、Caption属性为“切换”。双击Commandl，进入代码编写窗口，编写以下代码： Public Sub Form load() Textl．FontBold=False Textl．FontItalic=True End Sub Private Sub Commandl_Click() If 0D1．Value=True Then Opl．Value=False Op2．Value=True Textl．FontBold=True Textl．Fonthalic=False Else Op2．Value=False Opl．Value=True Textl．Fonthalic=True Textl．FontBold=False End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查循环语句的应用。程序在累加计算过程中使用了for循环，最后调用所给模块中的过程将结果进行保存。根据题意，将一个名为Textl的文本框和一个名为Commandl的命令按钮添加到窗体中，命令按钮的Caption属性为“计算”，将标准模块mode4．bas文件添加到工程中。设置完成后，双击Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl Click() Dim a As Integer Dim total As Long Dim i As Integer a=Val(InputBox(”请输人数值”)) total=0 For i=1 To a total=total+i Next i Textl．Text=total writeData(total) End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/tV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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