首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
admin
2020-07-22
65
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该字符直接显示在Label1中。输入的字母总数则显示在标签Iabel2中,如图所示。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的程序,最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shapel,如图所示。
当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击“停止”按钮,则停止变化。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
提示:程序中的符号常量blue_color表示蓝色的值,red_color表示红色的值。
注意:不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Dim n As Integer Private Sub Text1_Change() Dim ch As String ch=Right $ (
Text,1
)’通过Right函数从Textl中取1位 If ch>="A"And ch<="Z"Then’判断ch的范围是否在A—Z中 Labell.Caption:Lcase(ch)’将大写的ch转换为小写 n=n+1’累加大写字符个数 ElseIf ch>="a"And ch<="Z"Then ’判断ch是否为小写字母 Labell.Caption=Ucase(ch) ’将ch转换为大写 n=n+1’累加小写字符个数 Else Labell.Caption=
ch
’当不在字母范围内。则直接赋值显示 End If Label2.Caption=
n
’Label2中显示满足条件的个数 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“*”,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Dim left0 As Integer Const blue_color=&HFF0000,red_Color=&HFF& Private Sub Commandl_Click() Timerl.Enabled=
True
’单击"开始"按钮,Timer生效 End Sub Private Sub Command2_Click() Timer1.Enabled=False’单击"结束"按钮,Timer失效 End Sub Private Sub Form_Load() left0=Shapel.Left’加载窗体时,初始化圆心到窗体的距离 End Sub Private Sub Timerl_Timer() If Shapel.FillColor=blue_Color Then If Shapel.Left>0 Then Shapel.Height =Shapel.Height +100’圆的高扩大100 Shapel.Width=Shapel. Width+100 Shapel.Left=Shapel. Left-50’圆心到图片框左边上边的距离 Shapel.Top=Shapel.Top-50 Else Shapel.FillColor =
red_color
’当充满图片框时则变色 End If End If If Shapel.FillColor=red_Coor Then If Shapel.Left<left0 Then Shapel.Height=Shapel. Height-100 Shapel.Width=Shapel. Width-i00
Shapel.Left
=Shapel. Left+50 ’设置Shapel的左边位置
Shapel.Top
=Shapel.Top+50 ’设置Shapel的上界位置 Else Shapel.FillColor=
blue_color
’当缩小到原始大小时则变色 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过Right()函数获取输入的字符,通过Lcase()函数和Ucase()函数实现字母大小写的转换。
(2)通过Shapel的Left属性判断图片是否充满图片框或恢复到了初始大小,从而进行图片颜色红蓝的转换以及圆形的放大或缩小。通过形状控件的Height、Width、Left和Top属性来实现圆形的大小变化。
转载请注明原文地址:https://kaotiyun.com/show/JXHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面不属于软件需求分析阶段主要工作的是
下列说法中,错误的是
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是
设有如下通用过程:PublicFunctionFun(xStrAsString)AsStringDimtStrAsString,strLAsIntegertStr="":strL=Len(xStr)
假定有如下程序:PrivateSubFormClick()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是
下列数据流图(DFD)构造规则中正确的是()。
有数据定义语句:Dima,bAsIntegerDimx%,YasInteger执行语句后,不是整型变量的是
数据库系统的核心是()。
将E—R图转换为关系模式时,实体和联系都可以表示为()。
随机试题
[2013]甲公司是ABC会计师事务所的常年审计客户,拥有乙公司和丙公司两家联营公司。甲公司主要从事建材的生产、销售以及建筑安装工程。A注册会计师负责审计甲公司2012年度财务报表,拟于2013年4月1日出具审计报告。财务报表整体的重要性为25万元。
试析西欧封建城市兴起的原因与历史意义。(浙江大学1999年世界中世纪史真题)
假定社会平均资金收益率为8%,无风险报酬率为4%,被评估企业所在行业的平均风险与社会平均风险的比率为1.5,被评估企业长期负债占全部投资资本的40%,平均利率为6%,所有者权益占全部投资资本的60%,企业所得税税率为25%。要求:试求用于评估该企业投
肠癌的首选筛查指标是
经济效益计算的原则是()。
ABC会计事务所连续多年审计D集团财务报表。集团项目合伙人在考虑是否继续审计D集团2014年财务报表时,如果认为由于集团管理层施加的限制,使集团项目组不能获取充分、适当的审计证据,由此产生的影响可能导致对集团财务报表发表无法表示意见,集团项目合伙人应当采取
下列选项中,表述完全正确的有()。
劳动教养人民警察在与劳动教养人员谈话过程中要注重的心理效能不包括()。
甲、乙、丙三人沿湖边散步,同时从湖边一固定点出发,甲按顺时针方向行走,乙与丙按逆时针方向行走,甲第一次遇到乙后11/4分钟遇到丙,再过33/4分钟第二次遇到乙。已知乙的速度是甲的2/3,湖的周长为600米,则丙的速度为( )。
内部关系,是指公安机关内部上下级之间、同级与同级之间、警种与警种之间,按照()构成的关系。
最新回复
(
0
)