首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为“开始”、“停止”;还有一个名为Timer1的计时器。程序运行时
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为“开始”、“停止”;还有一个名为Timer1的计时器。程序运行时
admin
2019-06-11
50
问题
(1)在考生目录下有一个工程文件sjt3.vbp,窗体上有一个圆和一条直线(直线的名称为Line1)构成一个钟表的图案;有两个命令按钮,名称分别为Command1、Command2,标题分别为“开始”、“停止”;还有一个名为Timer1的计时器。程序运行时,钟表指针不动,单击“开始”按钮,则钟表上的指针(即Line1)开始顺时针旋转(每秒转6°,一分钟转一圈);单击“停止”按钮,则指针停止旋转。运行时的窗体如图3—114所示。请设置计时器的适当属性,使得每秒激活计时器的Timer事件一次,并编写两个按钮的Click事件过程。
文件中已经给出了所有控件和部分程序,不得修改已有程序和其他控件的属性;编写的事件过程中不得使用变量,且只能写一条语句。最后把修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上有两个文本框、三个单选按钮和一个命令按钮。运行时,在Text1中输入若干个大写和小写字母,并选中一个单选按钮,再单击“转换”按钮,则按选中的单选按钮的标题进行转换,结果放入Text2(如图3—115所示)。在给出的窗体文件中已经给出了全部控件,但程序不完整,要求:去掉程序中的注释符,把程序中的“?”改为正确的内容。
注意:不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
选项
答案
第1小题 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在属性设置窗口,设置计时器的:Interval属性值为1000,Enabled属性值为False。 步骤2:在代码编辑窗口,编写“开始”和“停止”按钮的单击事件过程。 参考代码: Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled=False End Sub 步骤3:按要求将文件保存至考生文件夹中。 第2小题 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: a=Mid$(Text1.Text,k,1) ch=ch+LCase(a) Text2=ch 步骤2:按要求将文件保存至考生文件夹中。
解析
第1小题:木题通过计时器的Timer事件来控制直线控件的位置,从而实现钟表上的指针旋转的功能。为使计时器的Timer事件每秒激活一次需将计时器的Interval属性值设置为1000;为使程序刚运行时钟表指针不动需将Enabled属性值设置为False。在“开始”按钮的单击事件过程中,通过设置计时器的Enabled属性值为True束启动计时器。在“停止”按钮的单击事件过程中,通过设置计时器的Enabled属性值为False来停止计时器。
第2小题:本题源程序是在命令按钮的单击事件过程中,用For循环语句和Mid函数逐一取出文本框Text1中的字符后,根据单选按钮的选择进行相应转换;当选择“大写转小写/小写转大写”时,如果是小写字母就用UCase函数转换为大写,如果是大写字母就用UCase函数转换为小写,如果不是字母就不用转换:当选择“全部大写”时,就用UCase函数将文本框中所有字母转换为大写;当选择“全部小写”时,就用LCase函数将文本框中所有字母转换为小写。将转换结果显示在文本框Text2中。
转载请注明原文地址:https://www.kaotiyun.com/show/JAUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在利用菜单编辑器设计菜单时,为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键,可以将该菜单项的标题设置为
如果一个菜单项的Enabled属性被设置为False,则程序运行时,该菜单项
下列有语法错误的赋值语句是
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。窗体文件的程序如下:PrivateTypexaAsInteger:bAsIntegerEndTypePrivateSubCommand1_Click()
下面对对象概念描述正确的是
下面语句中能够打开随机文件的是
VB中有这样一类文件:该文件不属于任何一个窗体,而且仅包含程序代码,这类文件的扩展名是
由高中数学可知,对于连续函数f(x),若f(x1)与f(x2)值的符号相反,则在x1和x2之间必存在x0,使得f(x0)=0(该点称为“零点”)。设有VB函数:PrivateFunctionf(xAsSingle)AsSingle可以返回fix)
某人编写了下面的程序PrivateSubCommand1_Click()DimaAsInteger,bAsIntegera=InputBox("请输入整数"):b=InputBox("请输入整数")proa:probCallp
随机试题
温脾汤的功效是
女,28岁,妊娠38周,患心脏病。刚临产,产科情况暂无异常。心功能Ⅱ级。在宫口接近开全时,心功能仍为Ⅱ级,首先要做好的是
设齐次线性方程组,当方程组有非零解时,k值为:
室内消火栓给水管道采用热镀钢管,管径小于100mm使宜采用的连接方式有()。
收购免税农产品用于加工,以现金支付的买价50000元,农产品已入库,增值税扣除率13%,则原材料的入账价值是()。
企业年度会计报表的保管期限为()。
在资产负债表的编制过程中,需要根据账户余额减去其备抵项目后的净额填列的是()。
伦敦证券交易所按照层次的不同,可以分为()。①主板市场②另类投资市场③专业证券市场④金边债券市场
家庭治疗者注重家庭系统的测评与调整,其目标是什么?( )
Itwaseleveno’clockthatnightwhenMr.PontellierreturnedfromKlein’shotel.Hewasinanexcellenthumor,inhighspirit
最新回复
(
0
)