首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求: ①圆角矩形中填满绿色(颜色值为:&H0000FF00&或&HFF00&)。 ②窗体的标题为“
(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求: ①圆角矩形中填满绿色(颜色值为:&H0000FF00&或&HFF00&)。 ②窗体的标题为“
admin
2019-06-24
27
问题
(1)在名称为Form1的窗体上添加一个名称为Shape1的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性以满足下列要求:
①圆角矩形中填满绿色(颜色值为:&H0000FF00&或&HFF00&)。
②窗体的标题为“圆角矩形”,字体为“仿宋一GB2312”。
程序运行后的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名保存为sjt1.vbp,窗体文件名保存为Bjt1.frm。
(2)考生文件夹下有一个工程文件sjt2.vbp。窗体中含有除计时器外的其他控件,还有一个过程sub1,其功能是按照Text1中的通话时间计算通话费,并将其显示在Text2中。
程序运行时,单击“通话开始”按钮,则在Text1中累加通话时间(每隔1秒,文本框中的数加1),单击“通话结束”按钮,则停止通话时间的累加;单击“计算通话费”按钮,则调用过程sub1。
要求:
①在窗体上画一个计时器,如图所示。并通过属性窗口设置适当属性。
②编写三个按钮的Click事件过程。
③编写计时器的事件过程。
注意:要求程序中不得使用变量,每个事件过程中只能写一条语句,“计算通话费”按钮的事件过程中只允许调用过程sub1。不得修改已经存在的程序和控件属性,最后把文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:建立界面,并设置控件的属性。程序中用到的控件及属性见表4.58。 [*] 步骤2:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:建立界面,设置计时器的Interval属性为1000,Enabled属性设置为False。 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 Private Sub Command1_Click() Timer1.Enabled=True’通话开始,Timer生效 End Sub Private Sub Command2_Click() Timer1.Enabled=False’通话结束,Timer失效 End Sub Private Sub Command3_Click() Call subl’单击"计算通话费"按钮,调用sub1 End Sub PriVate Sub Timer1_Timer() Text1.Text=Text1.Text+1’将Text1中的数字间隔自增 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)通过形状控件的Name、Shape、Width和Height属性设置形状控件的名称、形状、宽和高,FillColor属性返回/设置填充形状、圆环和方框所使用的颜色。窗体的FontName和Caption属性设置窗体的标题以及字体。
(2)程序运行时,单击“通话开始”按钮,Timerl的Enabled属性设置为True,运用Timer1_Timer事件过程中的Texti.Text=Text1.Text+1语句,在Text1中累加通话时间(每秒加1),单击“通话结束”按钮,Timer1的Enabled属性为False,停止通话时间的累加;单击“计算通话费”按钮,运用Call语句调用过程sub1。
转载请注明原文地址:https://kaotiyun.com/show/rqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件sjt5.vbp。运行程序后,单击“读数据”按钮,从data5.dat文件中读出一个数据,并显示在标签Label1中;单击“找素数”按钮,则在大于Label1的数据范围内找出最小的素数,并将其显示在标签Label2中。在给出的窗
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1标题为“选课”的窗体上画一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机
编写如下程序:PrivateSubCommand1_Click()DimscoreAsIntegerscore=86Ifscore>85Thenr=1ElseIfscore>60
设程序中有如下数组定义和过程调用语句:Dima(10)AsIntegerCallp(a)如下过程定义中,正确的是
以下叙述中错误的是
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
设a=2,b=3,c=4,d=5,下列表达式的值是a>bAndcc
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsIntegerEndFunction若已有变量声明:Dimx(5)AsInteger,nA
在数据管理技术发展的三个阶段中,数据共享最好的是
检查软件产品是否符合需求定义的过程称为
随机试题
职权不包括()
Itwasthedoctor’ssuggestionthatwe___________forabouthalfanhourafterlunch.
A.求同法B.求异法C.共变法D.排除法E.类推法在具有不同特征的人群中找出其共同暴露因素是
(2009)在机械排烟系统设计中,顶棚上及墙上的排烟口与附近安全出口的水平距离最小值为()。
下列人员需要具备期货从业人员资格的有()。
投标人对投标报价的评估可采用低标价和高标价的方法进行,其中高标价是指()。
某服装生产企业2016年实现商品销售收入3000万元,该企业当年实际发生广告费460万元,业务宣传费80万元。根据企业所得税法律制度的规定,2016年该企业在企业所得税税前可扣除的广告费和业务宣传费合计为()万元。
某企业计划进行项目投资,现有A、B方案供选择,有关资料如下:A项目原始投资为250万元,全部于建设起点一次性投入,其中固定资产投资210万元,流动资金投资60万元。该项目当年即建成投入使用,经营期3年,期满残值30万元;预计投产后年营业收入180万
管老师在幼儿园已经工作了13个年头,几乎每年都任教研组组长,担任过团支部宣传委员、电教员、通讯员、信息技术员等,在每一个岗位上她都能出色地完成本职工作。管老师总说“要想给孩子一杯水,自己就要有一片海洋”。管老师自学并获得了大专文凭和优秀学员的光荣称号;她大
甲建筑公司承包了市区某新建小区居民住宅楼的建设工程,并在施工现场设有混凝土搅拌站。为了赶工期,甲建筑公司进行日夜连续施工,附近小区的居民不堪忍受施工所产生的环境噪声,向环保部门等相关管理单位进行投诉,有关部门也作出了罚款等相应的管理决定。一般情况下,在
最新回复
(
0
)