第 1 页:选择题 |
第 5 页:基本操作题 |
第 6 页:简单应用题 |
第 7 页:综合应用题 |
42
(1)在名称为Form1的窗体上添加一个名称为Label1、标题为"添加项目:"的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别为Command1、Command2,其标题分别为"添加"、"统计"。在程序运行时,向Text1中输入字符,单击"添加"按钮后,则将Text1中的内容作为一个列表项被添加到组合框的列表中;单击"统计"按钮,则在窗体空白处显示组合框中列表项的个数,如图所示。请编写两个命令按钮的Click事件过程。
注意:程序中不得使用变量,也不能使用循环结构。存盘时必须存放在考生文件夹下,工程文件名保存为sj3.vbp,窗体文件名保存为sj3.frm。
(2)在考生文件夹下有一个工程文件sj4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为"明文")加密,加密结果(称为"密文")显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击"加密"按钮后,根据选中的单选按钮后面的数字n,将"明文"中的每个字母改为它后面的第n个字母("z"后面的字母认为是"a","Z"后面的字母认为是"A" ),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
参考答案:请参考解析 系统解析:
(1)本题主要考查命令按钮的Caption和Name属性,下拉式组合框的Caption、Name、List和ListCount属性,文本框的Text和Name属性,标签的Caption和Name属性,下拉式组合框的AddItem方法以及窗体的Print方法。
根据题意,新建"标准EXE"工程,将一个标签控件、文本框控件、下拉式组合框控件、2个命令按钮控件添加到窗体中,其中标签控件Caption属性为"添加项目:",文本框控件名称为Text1,Text属性为空,下拉式组合框控件名称为Combol,List属性为"中国古巴英国",命令按钮控件的名称分别为Command1和Command2,Caption属性分别为"添加"和"统计"。双击进入代码窗口,编写如下代码:
Private Sub Command1_Click()
Combol.AddItem Text1
End Sub
Private Sub Command2_Click()
Print Combol.ListCount
End Sub
单击
按钮运行程序,并按要求保存。
(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).Caption)
End If
Next k
m = Len(Text1.Text)
a = ""
For k = 1 To m
c = Mid$(Text1.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
单击
按钮运行程序,并按要求保存。
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |