首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Shape1 的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求: ①圆角矩形中
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Shape1 的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求: ①圆角矩形中
admin
2018-10-29
81
问题
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。
(1)在名称为Form1的窗体上画一个名称为Shape1 的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求:
①圆角矩形中填满绿色(颜色值为&H0000FF00&或&HFF00&);
②窗体的标题为“圆角矩形”。
运行后的窗体如图1-41 所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sjt1.vbp,窗体文件名为sjt1.frm。
(2)在考生文件夹下有一个工程文件sjt2.vbp。窗体中已含有除计时器外的其他控件,还有一个过程sub1,其功能是按照Text1 中的通话时间计算通话费,并将其显示在Text2 中。程序运行时,单击“通话开始”按钮,则在Text1 中累加通话时间(每秒加1),单击“通话结束”按钮,则停止通话时间的累加;单击“计算通话费”按钮,则调用过程sub1。
要求:
①在窗体上画一个计时器(如图1-42 所示),并通过属性窗口设置适当属性。
②编写三个按钮的Click事件过程。
③编写计时器的事件过程。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句,“计算通话费”按钮的事件过程中只允许调用过程sub1。不得修改已经存在的内容和控件属性,最后把文件按原文件名存盘。
选项
答案
第1小题 【操作步骤】 步骤1:新建一个“标准EXE”工程,按要求画 出控件并设置属性。 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开本题工程文件sjt2.vbp,在窗体中画一个名为Timer1,Interval 属性为1000,Enabled属性为False的计时器。 步骤2:打开代码编辑窗口,编写三个命令按钮的Click事件过程以及计时器的Timer事件过程。 参考代码: Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Command3_Click() sub1 EndSub Private Sub Timer1_Timer() Text1 = Text1 + 1 End Sub 步骤3:按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/qCFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
以下关于文件的叙述中,错误的是( )。
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
下面不能在信息框中输出"VB"的是( )。
假定有以下通用过程:FunctionFun(nAsInteger)AsInteger x=n*n Fun=x-11EndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下事件过程:PrivateS
设有如下通用过程:PublicFunctionf(xAsInteger) DimyAsInteger x=20 y=2 f=x*yEndFunction在窗体上画一个命令按钮,其名称为Command1,然后编写如下
窗体上有一个名称为Text1的文本框;一个名称为Timer1的计时器控件,其Interval属性值为5000,Enabled属性值是True。Timer1的事件过程如下:PrivateSubTimer1_Timer() StaticflagA
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。
下列打开"代码窗口"的操作中错误的是( )。
随机试题
下列不适用诉讼时效的是:()
隋代奉旨巡行郡县的监察官是()
某患者面部遭受外力打击后,未形成开放性创口,局部肿胀、疼痛和皮下淤血,X线检查未见颌骨骨折。临床诊断为。
感染性心内膜炎有诊断意义的依据是
来源于防己科含生物碱的药材有
李某于1999年12月20日到天虹超级市场购物,想选购一把剃须刀,在男士用品柜台前选了几分钟,总觉得不满意,欲离开。此时售货员一脸怒气地说:“你试了这么久,耽搁我多少时间,不买恐怕不成!”李某与其理论,旁边保安人员一听吵声,也气势汹汹地跑过来,最后,李某在
在各种开挖方法中,初期支护拆除量小的方法是()。
下列对珐琅彩描述正确的是()。
在地面上,行走是指用双腿克服地球引力,轮流迈步,从一处地面走向另一处地面。但在太空轨道飞行的失重环境中。失重将行走的概念完全搞乱了。在航天器密封座舱中行走,只要用脚、手或身体任何部位触一下舱壁或任何固定的物体,借助反作用力,就可以飘飞到任何想去的地方。座舱
FormanyyearsitwascommonintheUnitedStatestoassociateChineseAmericanswithrestaurantsandlaundries.Peopledidnot
最新回复
(
0
)