首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
1. 在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称Te
1. 在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。 本题描述如下: 窗体上有一个名称Te
admin
2009-03-17
386
问题
1. 在考生文件夹中有文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件夹和文件名。
本题描述如下:
窗体上有一个名称Text1的文本框,两个复选框,名称分别为Ch1和Ch2,标题分别为“足球”和“乒乓球”;一个名称为C1,标题为“确定”命令按钮。要求程序运行后,如果只选中 Ch1,单击“确定”命令按钮,则在文本框中显示“我喜欢足球”:如果只选中Ch2,单击“确定”命令按钮,则在文本框中显示“我喜欢乒乓球”;如果同时选中Ch1和Ch2,然后单击“确定”命令按钮,则在文本框中显示“我喜欢足球和乒乓球”;如果Ch1和Ch2都不选,然后单击“确定”命令按钮,则在文本框中什么都不显示。程序运行界面如图2—1所示。
2.在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确的内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
窗口中有一个名称为Picture1的图片框,一个名称为HScroll1的滚动条,3个命令按钮,名称分别为Command1,Command2和Command3,标题分别为“运行”、“暂停”和“结束”,一个计时器控件,名称为Timer1。程序运行后,单击“运行”按钮后,使小球围绕大球转动,并可以使用滚动条调节转动的速度;单击“暂停”按钮后,暂停小球的转动;按“结束”按钮结束程序。
选项
答案
① 复选框用来表示状态,在程序运行期间可以改变其状态。复选框标题由Caption属性来设置,复选框的value属性用来表示复选框的状态,其取值有: 0:表示复选框未被选中; 1:表示复选框被选中; 2:表示复选框被禁止使用(灰色)。 ② 解题步骤; 第一步:编写程序代码。 程序提供韵代码: Option Explicit Private Sub C1_Click() ’ ? ="" If Ch1.Value and Not Ch2.Value Then Text1.Text="我喜欢足球" ’ If Ch1. Value=? And Ch2. Value Then Text1.Text="我喜欢乒乓球" If Chi. Value And Ch2. Value Then Text1. Text="我喜欢足球和乒乓球" End Sub 参考代码: Option Explicit Private Sub C1_Click() Text1. Text="" If Ch1. Value And Not Ch2. Value Then Text1. Text="我喜欢足球" If Ch1. Value=0 And Ch2. Value Then Text1. Text="我喜欢乒乓球" If Ch1. Value And Ch2. Value Then Text1. Text="我喜欢足球和乒乓球" End Sub 第二步:调试并运行程序。 第三步:按题目要求存盘。 2.① 在窗体上建立好控件后,先设置控件属性,再编写事件过程。 ② 计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控件的Enabled属性为True时,计时器计时开始,当为 False时计时器计时暂停,所以要使小球运动暂停可将Enabled属性值设置为False,要使小球运行,则设置该属性值为True。 ③ 解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控什及其属性见表3。 [*] 表 3控 件 属 性 设 置 值 按钮 Name Caption Command1 运行 按钮 Name Caption Command2 暂停 按钮 Name Caption Command3 结束 滚动条 Name HScroll1 图片框 Name Picture1 第二步:编写程序代码。 程序提供的代码: Option Explicit Dim c As Single, r As Single ’r 小球到大球的球心的距离,c为小球的角度. Dim x As Single, y As Single ’x, y 为小球移动时的圆心 Dim st As Single Private Sub Command1_Click() Timer1. Enabled=True End Sub Private sub Command2_Click() ’ ? End Sub Private Sub Command3_ClickO End End sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 ’设置最小值 HSeroll1.Max=100 ’设置最大值 End Sub Private Sub HSeroll1_Change() ’ Timer1.?=200—HScroll1.Value ’根据滚动条的数值设置时间间隔,速度越快,时间月小 End Sub Private Sub Picture1_Paint() Pieture1.FillColor=QBColor (12) Picture1.ForeColor=QBColor (12) Picture1. Circle(0,0), 2 x=Cos(c) *r y=Sin(c) *r Picture1.FillColor=QBColor (14) Picture1.ForeColor=QBColor (14) ’Picture1.? (x,y), 0.5 c=c+st If c>=2*3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1_Timer() ’ ? ’重画图片框 End Sub 参考代码: Option Explicit Dim c As Single, r As Single ’ r 小球到大球的球心的距离,c为小球的角度. Dim x As Single, y As single ’ x,y 为小球移动时的圆心 Dim st As Single Private Sub Command1_Click() Timer1. Enabled=True End Sub Private Sub Command2_Click() Timer1.Enabled=False End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() r=20 c=0 st=0.063 HScroll1.Min=1 ’设置最小值 HSeroll1.Max=100 ’设置最大值 End Sub Private Sub HScroll1_Change() Timer1. Interva1=200—HSeroll1.Value ’ 根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub Private Sub Pieture1_Paint() Picture1.FillColor=QBColor (12) Pieture1.ForeColur=QBColor (12) Picture1.Circle (0,0) , 2 x=Cos(c) * r y=Sin(c) * r Picture1.FillColor=QBColor (14) Pieture1.ForeColor=QBColor (14) Pieture1.Circle(x, y), 0.5 c=c+st If c>=2*3.14159 Then c=c Mod (2*3.14159) End If End Sub Private Sub Timer1_Timer() Picture1.Refresh ’重画图片框 End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/uk1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列Applet计算数组元素的和,并在窗口坐标(50,50)处输出该结果。请在横线处填写正确的代码。importjava.awt.Graphics;importjava.applet.Applet;publicclassTe
数据管理技术的发展是与计算机技术及其应用的发展联系在一起的,经历了由低级到高级的发展过程。分布式数据库、面向对象数据库等新型数据库是属于()。
创建一个名为MyPackage的包的语句是【】。
面向对象程序设计有许多特性,下列选项中用来尽可能隐蔽对象的内部细节的是()。
已知:int[]a=newint[100];在下列给出的数组元素中,非法的是()。
树L中度为1、2、3、4、5和6的结点个数为6、4、3、3、5、1,则L中叶子的个数是【】。
源程序文档化要求程序应加注释。注释一般分为序言性注释和【】注释。
______Java类库包含可单击按钮的类。
强行排错法涉及的调试技术主要是【】和监视表达式。
在深度为7的满二叉树中,非叶子结点的个数为()。
随机试题
What’sthepossiblerelationshipbetweenthespeakers?
青蒿素的药理作用
A.病毒量少,毒力弱,部分肝细胞受损B.病毒持续繁殖,肝细胞几乎无损伤C.病毒不能彻底清除,肝细胞不断受损D.病毒量多,毒力强,较多肝细胞受损E.大量肝细胞坏死黄疸型肝炎
根据《药品生产质量管理规范》(2010年修订),注射用水采用保温循环的温度是()。
急性肾盂肾炎人工尿培养细菌可出现假阴性,这是由于()。
2009年玉才公司发生如下部分业务:(1)因购货向浩然公司签发了一张汇票,金额记载为20万元,签章为玉才公司公章,出票日期为2月12日。浩然公司收到汇票后在规定期限内向付款人银行提示承兑,但银行以票据不符合要求而拒绝受理。(2)向乙公司
反洗钱行政主管部门和其他依法负有反洗钱监督管理职责的部门、机构从事反洗钱工作的下列行为中会受到行政处分的是()。
人民警察考核的结果分为优秀、良好、基本称职和不称职四个等次。
A他B从一个翩翩少年C渐渐成长D一名青年企业家。
A、China.B、Sweden.C、Egypt.D、Japan.B
最新回复
(
0
)