首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Shape1 的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求: ①圆角矩形中
请根据以下各小题的要求设计Visual Basic 应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画一个名称为Shape1 的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求: ①圆角矩形中
admin
2018-10-29
77
问题
请根据以下各小题的要求设计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全国计算机二级
相关试题推荐
以下关于文件的叙述中,错误的是( )。
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click() DimxAsInteger x=Val(InputBox("请输入一个整数")) fun(x)EndSubPrivate
某人编写了下面的程序:PrivateSubCommand1_Click() DimaAsInteger,bAsInteger a=InputBox("请输入整数") b=InputBox("请输入整数") pro
有三个关系R、S和T如下:由关系R和S通过运算得到关系T,则所使用的运算为( )。
在窗体上画一个命令按钮和一个文本框(名称分别为Command1和Text1),并把窗体的KeyPreview属性设置为True,然后编写如下代码:DimSaveAllAsStringPrivateSubForm_Load() Show
要求如果x被7除余2,则输出x的值,下列语句中不能实现此功能的语句是( )。
窗体上已有1个名称为Picture1的图片框,要求实现下面2个功能之一:(1)在窗体上移动鼠标时,立即将Picture1显示在鼠标位置(2)在窗体上单击鼠标时,立即将Picture1显示在鼠标位置下面不能实现上述任何功能的事件过程是
随机试题
Day-schools______(most)workfromMondaytoFridayonly.
DNA携带生物遗传信息这一事实意味着什么()
毫微型胶囊的粒径在磁性微球所用磁性铁的粒径在
甲公司2010年发生下列各项交易或事项:(1)取得长期股权投资的现金股利200万元1(2)为购建固定资产支付专门借款利息60万元;(3)购买可供出售金融资产支付价款3000万元;(4)因固定资产毁损收取保险公司赔偿30万元;(5)以银行存款向税务
教育在个体身心发展中起的作用是无条件的。()
不抵抗主义我向来很赞成,不过因为有些偏于消极,不敢实行。现在一想,这个见解实在是大谬。为什么?因为不抵抗主义面子上是消极,骨底里是最经济的积极。我们要办事有成效,假使不实行这主义,就不免消费精神于无用之地,我们要保存精神,在正当的地方用,就不得不在可以不
GooglealreadyhasawindowintooursoulsthroughourInternetsearchesanditnowhasinsightintoourailingbodiestoo.The
(66)program propagates itself by modifying other programs to include a possibly changed copy of itself and that is executed whe
在考生文件夹中分别建立WEN和HUA两个文件夹。
China’sonlinegiants,AlibabaandTencent,onceareseenasimitatorspumpedupbytheprotectionofahugehomemarket,havep
最新回复
(
0
)