首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。 (1) 在名称为Form1的窗体上画一个名称为Label1,标题为“添加项目:”的标签;画一个名称为 Text1的文本框,没有初始内容;画一个名称为Combo1的下拉式组合框,并
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。 (1) 在名称为Form1的窗体上画一个名称为Label1,标题为“添加项目:”的标签;画一个名称为 Text1的文本框,没有初始内容;画一个名称为Combo1的下拉式组合框,并
admin
2009-02-25
38
问题
注意:下面出现的“考生文件夹”均为C:\wexam\25160002。
(1) 在名称为Form1的窗体上画一个名称为Label1,标题为“添加项目:”的标签;画一个名称为 Text1的文本框,没有初始内容;画一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目 (不少于3个,内容任意);再画两个命令按钮,名称分别为Command1和Command2,标题分别为“添加”和“统计”。在运行时,向Text1中输入字符,单击“添加”按钮后,则Text1中的内容作为一个列表项被添加到组合框的列表中;单击“统计”按钮,则在窗体上显示组合框中列表项的个数,如图23-3所示。请编写两个命令按钮的Click事件过程。
注意:程序中不得使用变量,也不能使用循环。存盘时必须存放在考生文件夹下,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
(2) 在考生文件夹下有一个工程文件sjt4.vbp,其窗体如图23-4所示。该程序用来对在上面文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法是:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”,“Z”后面的字母认为是“A”),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案
在窗体上建立好控件后,先设置控件属性,再编写事件过程。 命令按钮和标签的标题在属性窗口的Caption属性设置。要使Text1的文本框没有初始内容,就在属性窗口中的Text属性设为空。要在下拉式组合框中输入内容,通过下拉式组合框在属性窗口的List属性设置。 AddItem方法用来项组合框中添加一个表项,其给是为: 组合框.Additem列表项[索引] ListCount属性返回组合框中列表项的综合。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及属性设置见表23-3。 [*] 第二步:编写程序代码。 参考代码: Option Explicit Private Sub Command1_Click() Combo1.Addltem Text1 End Sub Private Sub Command2_Click() Me.Print Combo1.ListCount End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)首先要确定移动的位数,移动的位数是通过单选框来选择的,移动的值是由单选框的Caption属性确定的,然后要确定循环的次数,循环的次数是由输入字母的个数确定的。对字符串,需要对字符进行逐个处理。使用Mid函数取出字符串中的字符,利用Ase函数返回字符的代码,利用String函数将字符代码转换成字符。 Mid函数的格式为: Mid(字符串,p,n) Mid函数从第p个字符开始,向后截取n个字符,p和n都是算术表达式。Mid函数的第三个变量可以省略,这样将第 p个字符开始先后截取到字符串的结尾。 解题步骤: 第一步:分析题目提供的代码。 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, ?) End If a=a+c Next k Text2.Text=a End Sub 第二步:修改程序代码。 参考代码: 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(i, Asc(c)-26) End If a=a+c Next k Text2.Text=a End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/rh1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
面向数据流的设计方法可以直接把数据流图映射成软件结构。对于变换流,除了输入模块、变换模块和输出模块外还需要一个()。
Java程序中定义接口所使用的关键字是________。
定义一个表示10个值为null的字符串数组、下面选项正确的是
有下面的Applet程序段:import,java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Grap
下面的程序执行后,屏幕上显示的应是【】。publicclassExam{publicstaticvoidmain(String[])args){charchar1[]={’1’,’2’,’3
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
下面ChangeTitle()中对b1和b2按钮构造监听器,实现当单击b1按钮时标题变为students,当单击b2按钮时标题变为teachers。请将程序补充完整。publicChangeTitle(){super("Title
在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于3个不同实体集和它们之间的多对多联系m:n:p,最少可转换为【】个关系模式。
随机试题
患者,男,34岁。乏力、水肿2周来院就诊。追问病史,1个月前曾有咽痛病史。查:尿液有大量红细胞、白细胞、蛋白和管型。血免疫复合物呈强阳性,血清总补体活性定量和C3含量明显下降。问题1:首先怀疑该患者得的疾病是
患者,男,38岁。腹部发热待查收入院,病人神志清楚,精神萎靡,全身消瘦。疑诊败血症,需留取血培养标本,下列操作错误的是
以下对特发性面神经麻痹描述正确的是
()分析主要分析内外部的资讯收集、整理、挖掘和利用能力能否有效地支持营销活动。
新西兰是个高度发达的资本主义国家,其()出口值皆为世界第一。
Whenateachersaystothewholeclass,"Standupandactoutthedialogue",he/sheisplayingtheroleofa(n)______.
对下面句子的修辞方法及作用的表述,不正确的一项是()。
【2014.辽宁鞍山】有位中学教师经常外出开会,班级管理完全交给学生自己,纪律居然井然有序。这一教师的领导最可能属于()。
Solvetheproblemandindicatethebestoftheanswerchoicesgiven.NUMBERS:Allnumbersusedarerealnumbers.FIGURES:
ThissectionmeasuresyourabilitytowriteinEnglishtocommunicateinanacademicenvironment.Therearetwowritingquestion
最新回复
(
0
)