2. 计算机
  3. (1)在考生文件夹下有工程sj3．vbp及窗体文件sj3．frm，该窗体和程序是不完整的。在窗体上画一个名称为Combo1的组合框，画两个名称分别为Labell和Label2、Caption属性分别为“选项”和空白的标签。程序运行后，当在组合框中输入一个新

(1)在考生文件夹下有工程sj3．vbp及窗体文件sj3．frm，该窗体和程序是不完整的。在窗体上画一个名称为Combo1的组合框，画两个名称分别为Labell和Label2、Caption属性分别为“选项”和空白的标签。程序运行后，当在组合框中输入一个新

admin2010-07-13  27
问题 (1)在考生文件夹下有工程sj3．vbp及窗体文件sj3．frm，该窗体和程序是不完整的。在窗体上画一个名称为Combo1的组合框，画两个名称分别为Labell和Label2、Caption属性分别为“选项”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII码为13)时，由自动添加到组合框列表中，并在Label2中给出提示“已添加成功”。程序运行效果如图60—3所示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹下有工程sj4．vbp及窗体文件sj4．frm，该程序是不完整的。在窗体上有一个文本框(内容)与两个命令按钮，名称分别为Textl、Commandl与Command2。其中Commandl的标题为“生成数据”；Command2的标题为“显示奇数”。要求程序运行时，单击“生成数据”按钮，则自动生成80个0～800之间的随机整数，并在文本框中显示；单击“显示奇数”，则将这80个数据中的奇数显示到文本框中。程序运行时的窗体界面如图60—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)组合框(ComboBox)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按Ctrl+Enter键换行再输人下一项)，也可在程序运行时通过语句“组合框名．Addhem‘项目’”加入；程序运行时可通过List(Index)属性返回或设置指定索引号的列表项，设置列表项的语法为“组合框名．List(Index)=字符串”；属性Listlndex用于返回当前选择的项目的索引号。 根据题意，将一个ComboBox控件和两个标签添加到窗体中，ComboBox的名称为Combol、Style属性为0，标签的名称分别为Labell和Label2、Caption属性分别为选项和空。双击Combol进入代码编写窗口，在Combol_KeyDown事件中补充以下代码： Private Sub Combol_KeyDown(KeyCode As Integer，Shift As Integer) If KeyCode=13 Then’13为回车键的ASCII码值 Comb01．Addltem Comb01．Text Label2．Caption="已添加成功" ’在Label2上显示添加成功 End If End Sub 单击[*]按钮运行程序，并按要求保存。 (2)本题主要考查Rnd()函数和求余运算符Mod的使用。Rnd()函数用于产生一[0，1]的随机数。Mod运算符常用来判断一个数能否被另一个数整除。 程序补充后的代码如下： Dim a(80)As Integer Dim rel As String Private Sub Commandl_Click() Dim i As Integer rel="" For i=1 To 80 a(i)=Rnd()*(800-0) rel=rel+CStr(a(i))+"" Next i Textl．Text=rel End Sub Private Sub Command2 Click() rel="" For i=1 To 80 If a(i)Mod 2=1 Then rel=rel+CStr(a(i))+"" End If Next i Textl．Text=rel End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/WGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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