首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别
(1)在名称为Form1的窗体上添加一个名称为Label1、标题为“添加项目”的标签;添加一个名称为Text1的文本框,初始内容为空;添加一个名称为Combo1的下拉式组合框,并通过属性窗口输入若干项目(不少于3个,内容任意);再添加两个命令按钮,名称分别
admin
2019-06-11
65
问题
(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)【操作步骤】 步骤1:新建一个窗体,按照题目要求建立控件并设置控件属性,如图3.22所示。 [*] 程序中用到的控件及属性设置见表3.15。 [*] 步骤2:打丌代码编辑窗门,在指定位置编写如下代码。 参考答案 Private Sub Commandl CliCk() Combo1.AddItem Text1 End Sub Private Sub Command2 C1ick() Print Combo1.Lis tCount End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 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 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 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/EVUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
确定图片框Picture1在窗体上位置的属性是
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimI,NumRandomizeDoForI=1To1000Num=Int(Rnd*100):PrintNum;SelectCas
设有如下事件过程:PrivateSubFormClick()x=0Whilex<10x=x+1:x=x*xWendPrintxEndSub运行程序,单击窗体,输出结果是
下面是求最大公约数的函数的首部Functiongcd(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
有下面事件过程:PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenForm1.PSet(X,Y)’
某系统总体结构图如下图所示:该系统总体结构图的深度是
窗体上有一个名称为Command1的命令按钮,单击该按钮时所实现的功能是产生10个随机整数,然后从键盘输入一个整数,查找该数在数组中的位置。若找到,输出该数的位置;若没有找到,给出相应的提示。该命令按钮的单击事件过程如下:PrivateSubComm
考生文件夹下有一个数据库文件“samp2.accdb”,其中存在已经设计好的3个关联表对象“tStud”、“tCourse”和“tScore”及表对象“tTemp”。请按以下要求完成设计。(1)创建一个查询,查找并显示学生的“姓名”、“课程名”和
下列说法中,错误的是
设有表示学生选课的三张表,学生S(学号,姓名,性别,年龄,身份证号),课程C(课号,课名),选课SC(学号,课号,成绩),则表SC的关键字(键或码)为
随机试题
提出目标游离评价模式的学者是
简述李渔话本小说的艺术特点。
数字化技术
空间艺术:__________、__________、__________。
男性,35岁,腹泻伴左下腹轻至中度疼痛2年,每天大便4~5次,间断便血,有疼痛一便意一便后缓解的规律,常有里急后重。最近结肠镜检查发现肠粘膜呈细颗粒状,血管纹理模糊。目前最可能的诊断是
A.生物制品(如卡介苗或其他用活性微生物制备而成的药品)B.中药注射剂C.性激素类避孕药品D.细胞毒性类应当使用专用设施(如独立的空气净化系统)和设备的是
某煤矿安全监察分局按照定期监察计划,对某煤矿进行全面安全检查,已检查了该煤矿安全规章制度制定及落实、煤矿负责人及员工安全培训考核、安全技措费的提取及使用、安全设施审查及验收、现场作业执行安全规程和专用设备使用管理等情况。依据《煤矿安全监察条例》,还应重点检
某一设备预计大修费用为11500元,每年维持费为4500元,大修后由于第Ⅱ种无形磨损,该设备能用5年,月-残值为0,若折现率i=10%,则该设备的年度费用为()。
下列向量组α1,α2,…,α3中,线性无关的是
Insuranceisthesharingof【C1】______.Nearlyeveryoneisexposed【C2】______riskofsomesort.Thehouseowner,forexample,know
最新回复
(
0
)