首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
admin
2015-10-23
22
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该字符直接显示在Ladsel1中。输入的字母总数则显示在标签Labe12中,如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为Bjtl.vbp,窗体文件名保存为sjtl.frm。
(2)在名称为Form1的窗体上建立一个名称为“menu1”、标题为“文件”的弹出式菜单,其含有三个菜单项,它们的标题分别为:“打开”、“关闭”、“保存”,名称分别为“m1”、
“m2”、“m3”。再添加一个命令按钮,名称为“Command1”、标题为“弹出菜单”。要求:编写命令按钮的Click事件过程,使程序运行时,单击“弹出菜单”按钮可弹出“文件”菜单(如图所示)。
注意:程序中不得使用变最,事件过程中只能写一条语句。
存盘时必须存放在考生文件夹下,工程文件名保存为sjt2.vbp,窗体文件名保存为sjt2.frm。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗扣,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim n As Integer Private Sub Textl Change() Dim ch As String ch=Right$(Text1,1)’通过Right函数从Text1中取1位 If ch>="A"And ch<="Z"Then’判断ch的范围是否在A~Z中 Labell.Caption=Lcase(ch)’将大写的ch转换为小写 n=n+1’累加大写字符个数 E1seIf ch>="a"And ch<="Z"Then ’判断ch是否为小写字母 Label1.Caption=Ucase(ch) ’将ch转换为大写 n=n+1’累加小写字符个数 E1se Labe11.Caption=ch’当不在字母范围内。则直接赋值显示 End If Label2.Caption=n’Labe12中显示满足条件的个数 End Sub 步骤3:调试并运行程序,关闭程序后按题口要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim left0 As Integer Const blue_color=&HFF0000,red color=&HFF& Private Sub Commandl C1ick() Timerl.Enabled=True ’单击"开始"按钮,Timer生效 End Sub Private Sub Command2 Click() Timer1.Enabled=False’单击"结束"按钮,Timer失效 End Sub Private Sub Form Load() left0=Shape1.Left’加栽窗体时,初始化圆心到窗体的距离 End Sub Private Sub Timer1 Timer() If Shape1.Fi llColor=blue color Then If Shape1.Left>0 Then Shape1.Height=Shape1.Height+100’圆的高扩大100 Shape1.Width=Shape1.Width+100 Shape1.Left=Shape1.Left-50 ’圆心到图片框左边上边的距离 Shape1.Top=Shape1.Top-50 E1se shape1.FillColor=red_color’当 充满图片框时则变色 End If End If If Shape1.FiliC010r=red color Then If Shape1.Left
解析
(1)通过Right()函数获取输入的字符,通过Lease()函数和Ucase()函数实现字母大小写的转换。
(2)通过Shape1的Left属性判断图片是否充满图片框或恢复到了初始大小,从而进行图片颜色红蓝的转换以及圆形的放大或缩小。通过形状控件的Height、Width、Left和Top属性来实现圆形的大小变化。
转载请注明原文地址:https://jikaoti.com/ti/BIJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下列程序段后,输出的结果是Fork1=0To4y=20Fork2=0To3y=10Fork3=0To2y=y+10Nextk3,k2,k1PrintyA)90
假设线性表的长度为n,则在最坏情况下,冒泡排序需要的比较次数为
若A=20,B=80,C=70,D=30,则表达式A+B>1600r(B*C>200AndNotd>60)的值是______。
执行如下语句:a=InputBox("Today","Tomorrow","Yesterday","Daybeforeyesterday",5)将显示一个输入对话框,在对话框的输入区中显的信息是()。
给文件改名的VB语句正确的是()。
窗体文件的扩展名是
下面程序运行后,输出的结果是Dimarr(3,3)Forj=1To3Fork=1To3Arr(j,k)=(j-1)*3+kNextkNextjForj=2To3Forj=2To
文本框控件中将Text的内容全部显示为所定义的字符的属性项是
按照逻辑结构分类,结构可以分为线性结构和非线性结构,栈属于______。
随机试题
关于我国刑事诉讼中起诉与审判的关系,下列哪一选项是正确的?()
对急性阑尾炎诊断最有价值的体征或症状是
A、薏苡仁B、泽泻C、地肤子D、木通E、石韦能清肺止咳的药是()
直径为20mm的管流,平均流速为9m/s。已知水的运动黏性系数v=0.0114cm2/s,则管中水流的流态和水流流态转变的临界流速分别是()。
数字式笔记本电脑,重量5千克(有CPU;有键盘;有显示器)()
腈纶制针织套头衫
案例描述:一个20岁女孩。一日食谱如表1一23所示。 请回答以下问题:针对她的情况,用称重法膳食调查方法是否合适?
《幼儿园管理条例》中规定,具有下列情形之一的单位或者个人,由教育行政部门对直接责任人员给予警告、罚款的行政处罚,或者由教育行政部门建议有关部门对责任人员给予行政处分的是()。
根据下面材料回答问题。2012年末,全国总人口135404万人,出生人口1635万人,人口出生率为12.10‰,比上年提高0.17个千分点;人口死亡率为7.15‰,比上年提高0.01个千分点:人口自然增长率比上年提高0.16个千分点。从
Fireworks,______originatedcenturiesagoinChina,werebroughttoEuropebyMarcoPolo.
最新回复
(
0
)