首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
76
问题
注意:下面出现的“考生文件夹”均为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全国计算机二级
相关试题推荐
Java程序结构中,源文件与程序公共类()。
对于下面语句的说法,不正确的是ThreadthrObj=newThread();
创建一个10行40列的文本区域tal的正确语句是【】。
下面的程序执行后,屏幕上显示的应是【】。publicclassExam{publicstaticvoidmain(String[])args){charchar1[]={’1’,’2’,’3
程序中使用了字符串函数(如strlen),则必须包含的头文件名为______。
下面程序段的输出结果是【】。publicclassTest{publicstaticvoidmain(Stringargs[]){inti=1;switch(i){case
在数据库逻辑结构的设计中,将E-R模型转换为关系模型应遵循相关原则。对于3个不同实体集和它们之间的多对多联系m:n:p,最少可转换为【】个关系模式。
有一个接口定义如下:interfaceA{intmethod1(inti);intmethod2(intj);}那么下面各项中实现了该接口并且不是抽象类的是()。
随机试题
当今世界正处于百年未有之大变局,但时代的主题仍然是()
两性霉素B去氧胆酸盐快速静脉滴注可导致低血压、低血钾、心律失常和休克,需缓慢避光静脉滴注,每次滴注时间需
Ithink______ofthetextisverydifficult.
高压蒸汽灭菌物品,保存时间不超过
下列是检识黄酮的首选试剂的是
设计方的项目管理工作主要在设计阶段进行,但它也会涉及()。
有关商业银行接管的法律效果,下列表述正确的有()。
蜡烛:教师()
已知一个长度为12的表{Jan,Feb,Mar,Apr,May,June,July,Aug,Sep,Oct,Nov,Dec}:按表中元素的顺序构造一棵平衡二叉树,试求在等概率情况下检索成功的平均检索长度。
Readthetextsfromamagazinearticleinwhichfivewomentalkedabouttheirslimmingfailures.ForQuestions61to65,matcht
最新回复
(
0
)