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

admin2015-06-30  26

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

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

    注意:不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。

选项

答案(1)【操作步骤】 步骤1:新建一个窗体,按照题目要求建立控件并设置控件属性。 程序中用到的控件及属性设置见表3.17和3.18 [*] 步骤2:分析并编写程序代码。 参考答案 Private Sub Command1_Click() Combo1.AddItem Text1 End Sub Private Sub Command2_Click() Print Combo1.ListCount End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Dim n As Integer, k As Integer, m As Integer Dim c As String, a As String For k = 0 To 2     If Op1(k).Value Then ’ n = Val(Op1(k). ? )     End If Next k m = Len(Text1.Text) a = "" ’ For k = 1 To ? ’ c = Mid$(Text1.Text, ? , 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 + c Next k Text2.Text = a End Sub 程序结束 参考答案 第1个?处填入:Caption 第2个?处填入:m 第3个?处填入:k 第4个?处填入:a 步骤3:调试并运行程序,关闭程序后按题目要求存盘。

解析
转载请注明原文地址:https://jikaoti.com/ti/Fo60FFFM
0

最新回复(0)