2. 计算机
  3. (1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目：”的标签；添加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分

(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目：”的标签；添加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分

admin2009-03-26  21
问题 (1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目：”的标签；添加一个名称为Textl的文本框，初始内容为空；添加一个名称为Combol的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Commandl、Command2，其标题分别为“添加”、“统计”。在程序运行时，向Textl中输入字符，单击“添加”按钮后，则将Textl中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体空白处显示组合框中列表项的个数，如图9—3所示。请编写两个命令按钮的C1ick事件过程。
    注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sj3．vbp，窗体文件名保存为sj3．frm。
    (2)在考生文件夹下有一个工程文件sj4．vbp，其窗体如图9—4所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图9—4所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符(即“’”)，把程序中的“?”改为正确的内容。

  注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案 (1)本题主要考查命令按钮的Caption和Name属性，下拉式组合框的Caption、Name、List和ListCount属性，文本框的Text和Name属性，标签的Caption和Name属性，下拉式组合框的AddItem方法以及窗体的Print方法。 根据题意，新建“标准EXE”工程，将一个标签控件、文本框控件、下拉式组合框控件、2个命令按钮控件添加到窗体中，其中标签控件Caption属性为“添加项目：”，文本框控件名称为Textl，Text属性为空，下拉式组合框控件名称为Combol，List属性为“中国古巴英国”，命令按钮控件的名称分别为Commandl和Command2，Caption属性分别为“添加”和“统计”。 双击进入代码窗口，编写如下代码： Private Sub Commandl Click() Combo1．Addltem Text1 End Sub Private Sub Command2_Click() Print Combo1．ListCount End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，打开本题工程文件，打开代码编辑窗13，去掉程序中的注释符“’”，将问号改为正确的内容，编写如下代码： Private Sub Commandl_Click() Dim n As Integer，k As Integer，m As Integer Dim c As String，a As String For k=0 To 2 If Opl(k)．Value Then n=Val(Opl(k).Caption) End If Next k m=Len(Textl．Text) a="" For k=1 To m c=Mid$(Textl．Text，k，1) c=String(1，Asc(c)+n) 1f c>"z"Or c>"Z"And c<"a"Then C=String(1，Asc(c)-26) End If a=a +c Next k Text2．Text：a End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://jikaoti.com/ti/WLq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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