首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
(1)在考生文件夹下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文本框中每输入一个字符,则立即判断:若是小写字母,则将它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Label1中,若是其他字符,则将该
admin
2020-07-22
31
问题
(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://jikaoti.com/ti/nKS0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了调整图像框的大小以与其中的图形相适应,必须把它的Stretch属性设置为
下面控件中,没有Caption属性的是()。
假设窗体上有一个通用对话框控件CD1,希望在执行下面程序时,打开如图所示的文件对话框:PrivateSubCommand1_Click()CD1.DialogTifle="打开文件"CD1.InitDir=
窗体上有1个名称为Text1、内容为空的文本框。编写如下事件过程:PrivateSubText1.KeyUp(KeyCodeAsInteger,ShiftAsInteger)PrintTextl.Text;EndSub运行程序,并
假定有如下程序:PrivateSubFormClick()Dima(4)AsInteger,b(4)AsIntegerFork=0To2a(k+1)=Val(InputBox("请输入一个整数
对于含有多个窗体的工程而言,以下叙述中正确的是
VB中有3个键盘事件:KeyPress、KeyDown、KeyUp,若光标在Text1文本框中,则每输入一个字母()。
有数据定义语句:DimX,YAsInteger以上语句表明
窗体上有一个名称为HScroll1的滚动条,程序运行后,当单击滚动条两端的箭头时,立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是
随机试题
清热解毒,且可疏散风热的药物是清热解毒,善治肺痈咳吐脓血、肺热咳嗽、痰稠的药物是
具有明显首过效应的药物是
成年草食动物长期应用四环素类广谱抗生素时,不敏感菌株可大量繁殖,造成胃肠炎和全身感染,这种现象称为
下列有关局部振动病论述错误的是
具有破血逐瘀作用的药物是具有活血通经、利水作用的药物是
下列关于细胞静息电位的论述,不正确的是
某承建商在中标后,发现由于自己漏算等原因,使中标价太低。经测算,将会出现严重亏损,因此决定放弃中标,这是( )对策。
A公司为增值税一般纳税人,适用的增值税税率为17%。有关分期收款方式销售商品的资料如下:资料一:2013年1月1日,A公司采用分期收款方式销售大型设备,合同价格为15000万元,分5年于每年年末等额收取。假定该大型设备不采用分期收款方式时的现销价格为1
雕饰按材料可分为()。
Thecarwasstolenwhile______inaParisstreet.
最新回复
(
0
)