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

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

admin2015-10-23  33
问题 (1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签；添加一个名称为Text1的文本框，初始内容为空；添加一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项日(不少于3个，内容任意)；再添加两个命令按钮，名称分别为Command1、Command2，其标题分别为“添加”、“统计”。在程序运行时，向Text1中输入字符，单击“添加”按钮后，则将Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体空门处显爪组合框中列表项的个数，如图所示。请编写两个命令按钮的Click事件过程。
    注意：程序中不得使用变量，也不能使用循环结构。存盘时必须存放在考生文件夹下，工程文件名保存为sjt3．vbp，窗体文件名保存为sjt3．frm。

    (2)在考生文件夹下有一个工程文件sjt4．vbp，其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面
的文本框中。加密的方法为：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，将“明文”中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。

    注意：不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案步骤1：新建一个窗体，按照题目要求建立控件并设置控件属件，如图3．22所示。 [*] 程序中用到的控件及属性设置见表3．15。 [*] 步骤2：打开代码编辑窗口，在指定位置编写如下代码。 Private Sub Commandl C1ick() Comb01．AddI tem Text1 End Sub Private Sub Command2 C1ick() Print Comb01．ListCOunt End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口．去掉程序中的注释符“，”，将问号改为正确的内容。 Private Sub Commandl C1ick() 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(Text1．Text) a＝"" For k=1 To m c=Mid$(Textl．Text，k，1) C=String(1，Asc(c)+n) If 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 步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析 (1)命令按钮和标签的标题用属性窗口中的Caption属性设置。要使Text1的文本框没有初始内容，需要将属性窗口中的Text属性设为空。要在下拉式组合框中输入内容，可以在属性窗口中对下拉式组合框的List属性进行设置。
    Addltem方法用来向组合框中添加一个列表项，其格式为：
    组合框．AddItem列表项[索引]
    ListCount属性用来返回组合框中列表项的个数。
    (2)根据题意，首先要确定移动的位数，移动的位数是通过单选按钮来选择的，移动的值是由单选按钮的Caption属性值决定的，然后要确定循环的次数，循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符，利用Asc()函数返回字符的代码，利用String()函数将字符代码转换成字符。
    Mid()函数的格式为Mid(字符串，p，n)。其中，Mid()函数从第P个字符开始，向后截取n个字符，P和n都是算术表达式。Mid()甬数的第3个变量可以省略，这样将从第P个字符开始向后截取到字符串的结尾。
    String()甬数用于重复指定字符串中的字符。返回新的字符串。
    Asc()甬数用于返回一个Integer，代表字符串中首字母的字符代码。
转载请注明原文地址:https://kaotiyun.com/show/UPLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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