首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
79
问题
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。
(1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
在窗体中有两个命令按钮,名称分别是C1和C2,标题分别是“修改窗体图标”和“修改窗体标题”。要求程序运行后,点击C1命令按钮,则将窗体标题栏中的图标换为图标文件1.ico(该文件在考生文件夹下);点击C2命令按钮,则将窗体标题修改为“窗体”。程序界面如图11-4和图11-5所示。
(2) 在考生文件夹下有工程文件sjt4.vbp及窗体文件sjt4.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。
本题描述如下:
窗口中有一个名称为Picture1的图片框,一个名称为HScroll1的滚动条,3个命令按钮,名称分别为Command1,Command2和 Command3,标题分别为“运行”、“暂停”和“结束”,一个计时器控件,名称为Timer1。程序运行后,单击“运行”按钮后,使小球围绕大球转动,并可以使用滚动条调节转动的速度;单击“暂停”按钮后,暂停小球的转动;按“结束”按钮结束程序。程序运行界面如图11-6所示。
选项
答案
在窗体上建立好控件后,先设置控件属性,再编写事件过程。 按钮控件的属性由Caption来设置,单击触发其Click事件。通过设置Icon属性修改窗体的图标,修改窗体的Caption属性设置其标题。在程序中使用LoadPicture函数给Icon属性赋值,其格式为: LoadPicmre("文件名") LoadPicture函数把图形文件装入窗体、图片框或图像框中。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表11-3。 [*] 第二步:编写程序代码。 程序提供的代码: Private Sub C1_CliCk() ’Form1.Icon=LoadPicture("?") End Sub Private Sub C2_Click() ’Form1.?="窗体" End Sub 参考代码: Private Sub C1_Click() Form1.Icon=LoadPicture("1.ico") End Sub Private Sub C2_CliCk() Form1.Caption="窗体" End Sub 第三步:调试并运行程序。 第四步:按题目要求存盘。 (2)正面体上建立好控件后,先设置控件属性,再编写事件过程。 计时器控件作用是以一定的时间间隔激发计时器事件(Timer)执行相应程序代码。当时计时器控件的Enabled属性为True时,计时器计时开始,当为Palse时计时器计时暂停,所以要使小球运动暂停可将Enabled属性值设置为False,要使小球运行,则设置该属性值为True。解题步骤: 第一步:建立界面并设置控件属性。程序中用到的控件及其属性见表11-4。 [*] 第二步:编写程序代码。 程序提供的代码: 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_Click() End End Sub Private Sub Form_Load() r=20 c=0 St=0.063 HScroll1.Min=1 ’设置最小值 HScroll1.Max=100 ’设置最大值 End SUb Private Sub HScroll1_Change() ’Timer1.?=200-HScroll1.Value ’根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub Private Sub PiCturel_Paint() PiCture1.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 ’设置最小值 HScroll1.Max=100 ’设置最大值 End Sub Private Sub HScroll1_Change() Timer1.Interval=200-HScroll1.Vslue ’根据滚动条的数值设置时间间隔,速度越快,间隔越小 End Sub Private Sub Picture1_Paint() Picture1.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.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/Th1p777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
设执行下面的赋值语句:A=Float.valueOf("12.34").floatValue();后,a的值是()。
一元算术运算符中,运算符+的功能是()。
执行以下程序段后:a=________,b=__________。inta=5,b;b=++a*3;
定义一个表示10个值为null的字符串数组、下面选项正确的是
下面语句会产生编译错误的是
下面属于面向对象语言的是
有下面的Applet程序段:import,java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Grap
ODL转换关系时,若为原子类型属性,类的每个属性对应关系的一个属性;若为结构类型,其每个元素为关系的一个属性;若为数组,则按元素的个数即可扩展为______,也可扩展为多个属性。
下面的表达式中正确的是()
运行下列程序,会产生什么结果?()publicclassXexlendsThreadimplementsRunable{publicvoidrun(){System.out.println
随机试题
Excel2010操作题 张老师利用Excel2010对本班45名学生的期末考试成绩进行了处理,其中该成绩表的部分截图如下(注:处理的学生成绩信息放在A2:H46区域),请结合所学知识回答以下问题: 该班45名学生学号前6位均为201901,后
下面各项中属于惯用语的是()
与血液运行关系最为密切的脏是
有关胶囊剂的特点正确的是
商品化会计软件的通用性是指()。
目前对于贫困家庭,有哪些政策和措施可协助其子女完成高等教育()①贫困学生补助;②特殊身份补助;③国家助学贷款;④商业性助学贷款
经济增长的标志是()。
一、注意事项1.申论考试是对考生阅读理解能力、综合分析能力、提出和解决问题能力以及文字表达能力的测试。2.作答参考时限:阅读资料40分钟,作答110分钟。3.仔细阅读给定资料,按照后面提出的“作答要求”依次作答。二、给定资料
下列有关孕激素作用的叙述,正确的是
近年,在对某大都市青少年犯罪情况的调查中,发现失足青少年中,24%都是离异家庭的子女。因此,离婚率的提高是造成青少年犯罪的重要原因。假设每个家庭都有子女,则以下哪项如果是真的,最能对上述结论提出质疑?
最新回复
(
0
)