首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件Sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
(1)在考生文件夹下有一个工程文件Sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
admin
2017-09-20
135
问题
(1)在考生文件夹下有一个工程文件Sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Labell中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该字符直接显示在Labell中。输入的字母总数则显示在标签Label2中,如图所示。
要求:去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的程序,最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中有一个图片框,图片框中有一个蓝色圆,名称为Shape1,如图所示。
当程序运行时,单击“开始”按钮,圆半径逐渐变大(圆心位置不变),当圆充满图片框时则变为红色,并开始逐渐缩小,当缩小到初始大小时又变为蓝色,并再次逐渐变大,如此往复。单击“停止”按钮,则停止变化。文件中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
提示:程序中的符号常量blue_color表示蓝色的值,red_color表示红色的值。
注意:不能修改程序的其他部分和各控件的属性。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim n As Integer Private Sub Text1 Change() Dim ch As String ch=Right$(Text1,1)’通过Right函数从Text1中取1位 If ch>="A" And ch<=”Z”Then’ 判断ch的范围是否在A—Z中 Label1.Caption=Lcase(ch)’将大写的ch转换为小写 n=n+1’累加大写字符个数 E1seIf ch>=”a”And ch<=”z” Then ’判断ch是否为小写字母 Label1.Caption=Ucase(ch) ’将ch转换为大写 n=n+1’累加小写字符个数 Else Label1.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() Timer1.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=Shape1. Height +100’圆的高扩大100 Shape1.Width=Shapel. Width+100 Shapel.Left=Shapel. Left一50’圆心到图片框左边上边的距离 Shape1.Top=Shape1.Top一50 Else Shape1.FillColor= red_color’当充满图片框时则变色 End If End If If Shape1.FillColor=red_color Then If Shapel.Left<left0 Then Shape1.Height=Shape1. Height-i00 Shape1.Width=Shapel. Width—100 Shapel.Left=Shape1. Left+50 ’设置Shapel的左边位置 Shapel.Top=Shape1.Top +50 ’设置Shape1的上界位置 Else Shape1.FillColor = blue_color ’当缩小到原始大小时则变色 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/JkGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果要通过程序代码来一次性删除列表框中所有项目,则应使用的方法是______。
下列是一个体操评分程序。没满分为10分,20位评委,除去一个最高分和一个最低分,计箅平均分。PrivateSubCorrmland!Click()Max=0Min=10Fori=1To20n=Va
下列程序段的执行结果为______。Forx=5To1Step-1ForY=1To6-xPrintTab(Y+5);"*";NextYPrintNextx
要获取当前驱动器,应使用驱动器列表框的()属性。
在窗体上有一个文本框控件,名称为TextTime;一个计时器控件,名称为Timed。要求每一秒在文本框中显示一次当前的时间。程序为:PrivateSubTimerl_______TextTime.text=TimeEndSu
阅读下列程序: PrivateSubCommand1_Click() DimiAsInteger,kAsInteger k=2 Fori=1To3 PrintH(k); Nexti EndSub Fu
滚动条控件中,用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_______。
下列事件过程的功能是:建立一个名为Data1的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填入适当的内容,将程序补充完整()。PrivateTypeAngKAsInteger
以下程序代码用来实现如下功能:单击命令按钮弹出对话框,在其中输入正数后单击确定,弹出一个提示信息显示刚才输入的正数,否则提示"error"。请填空。PrivateSubCommand1_Click()DimaAsInteger,bAsSt
在窗体上画一个命令按钮Command1,然后编写如下程序:PrivateSubCommand1_Click()Dimarr()AsIntegerReDimarr(3)Fori=0To3al
随机试题
()火灾探测器在保护电缆、堆垛等类似保护对象时,应采用接触式布置。
当系统的需求难以说明,或需求变动较大的一类系统开发时,通常使用
患儿男性,1岁,主因“呕吐两天,昏睡1天”急诊入院。患儿发病前健康,发病前5小时预防接种,随后精神萎靡,哭闹,呕吐。第2天昏睡,拒食。入院时查体发现肝脏肿大,肝右肋下5cm,脾不大。心音低钝。院外检查尿酮体弱阳性,血糖1.0mmol/L,血清丙氨酸氨基转移
男,45岁,恶心,腹泻就诊。经查该患者氟摄入量超过15mgF/kg,诊断为急性氟中毒。应采取的应急处理措施是
下列有关采用总体审计方案的说法中,正确的有()。
创新源泉的另一个重要方向,就是面向历史的发掘。每一次回顾历史都可能是一次观念的清理和创新。研究和发掘新的史料,也是一次价值观的梳理。_______。重新发现历史,建立当下社会观念与历史价值的承继关系,这是奠定创新思维的一个重要因素。我们要在前人的肩膀上嘹望
心理是人脑对客观现实的反映,具有主观能动性。()
建设社会主义新农村的根本任务是()。
下列对“载人航天器”的理解,正确的一项是( )下列对“‘长征’二号F型火箭”的叙述,不正确的一项是( )
请在【答题】菜单下选择【进入考生文件夹】命令,并按照题目要求完成下面的操作。注意:以下的文件必须都保存在考生文件夹下。文档“北京政府统计工作年报.docx”是一篇从互联网上获取的文字资料,请打开该文档并按下列要求进行排版及保存操作:
最新回复
(
0
)