2. 计算机
  3. (1)在考生文件夹下有一个工程文件sj3．vbp，在窗上设置4个标签，名称分别为Labell、Label2、Label3、Label4，标题分别为“工厂A用煤量”、“工厂B用气量”、“共用煤”、“共用气”；设置4个文本框，名称分别为Textl、Text2、

(1)在考生文件夹下有一个工程文件sj3．vbp，在窗上设置4个标签，名称分别为Labell、Label2、Label3、Label4，标题分别为“工厂A用煤量”、“工厂B用气量”、“共用煤”、“共用气”；设置4个文本框，名称分别为Textl、Text2、

admin2009-03-26  8
问题  (1)在考生文件夹下有一个工程文件sj3．vbp，在窗上设置4个标签，名称分别为Labell、Label2、Label3、Label4，标题分别为“工厂A用煤量”、“工厂B用气量”、“共用煤”、“共用气”；设置4个文本框，名称分别为Textl、Text2、Text3、Texl4，内容为空。另设一个命令按钮，名称为Commandl，标题为“计算”。要求考生编写程序，求解用煤用气问题。其中Textl与Text2中输入的数值为A的用煤量和B的用气量Text3与Text4用来显示共用煤量和共用气量。该问题描述为：A的用气量是B的用气量的3倍，B的用煤量是A的用煤量的2倍，共用多少煤、多少气?程序运行时的窗体界面如图53—3所示。
    注意：请去掉程序中的注释符“’”，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体Form1中有两个文本框，名称分别为Text1与Text2。要求在Textl中最多只能输入5个字符，多余字符在Text2中显示出来，如图53—4所示。
1
    注意：请有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)本题方法相当于求解一个简单的二元一次方程题，或者说是求两个一元一次方程题。即x+2x=a，3y+y=b。 根据题意，将4个文本框控件、4个标签和一个命令按钮添加到窗体中，文本框的名称分别为Textl、Text2、Text3和1ext4，Text属性都为空，标签的Caption属性分别为“工厂A用煤量”“工厂B用气量”“共用煤”“共用气”，命令按钮的名称为Commandl、Caption属性为“计算”。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Text3．Text=Val(Textl．Text)+2*Val(Textl．Text)’将用煤量在Text3中显示 Text4．Text=3*Val(Text2．Text)+Val(Text2．Text)’将用气量在Text4中显示 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查文本框的事件和方法。Change事件是当用户向文本框中输入新信息，或当程序把Text属性设置为新值从而改变文本框的Text属性时触发的；SetFocus是文本框中较常用的方法，其格式为：[对象．]SetFocus。该方法可以把输入光标(焦点)移到指定的文本框中。LostFocus事件是当通过Tab键切换或单击等操作使对象获得焦点时触发的事件；GotFocus实现当文本框具有输入焦点(即处于活动状态)时，键盘上输入的每个字符都将在该文本框中显示出来。 本题功能描述为：每往Textl中输入内容(触发其Change事件)，判断文本当前字符数是否超过5个(含5个)，若是，将焦点移到Text2。根据题意，将两个文本框控件添加到窗体中，文本框的名称分别为Textl和Text2，Text属性都为空。双击Text进入代码窗口，编写如下代码： Private Sub Textl_Change() Dim i As Integer Dim str As String If Len(Textl．Text)>=5 Then’判断Textl中的字符串长度是否大于等于5 Text2．SetFocus’如果是，则焦点在Text2中 End If End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/dV1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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