首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
注意:下面出现的“考生文件夹”均为c:\wexam\25160001。 (1) 在考生文件夹下有工程文件sjt3.vbp及窗体文件sjt3.frm,该程序是不完整的,请在有?号的地方填入正确内容,然后删除?及所有注释符(即’号),但不能修改其他部分。
admin
2009-02-25
57
问题
注意:下面出现的“考生文件夹”均为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语言中,将后缀名为_________的源代码文件编译后形成后缀名为.class的字节码文件。
定义一个表示10个值为null的字符串数组、下面选项正确的是
程序设计方法要求在程序设计过程中
有下面的Applet程序段:import,java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Grap
下面的程序执行后,屏幕上显示的应是【】。publicclassExam{publicstaticvoidmain(String[])args){charchar1[]={’1’,’2’,’3
下面ChangeTitle()中对b1和b2按钮构造监听器,实现当单击b1按钮时标题变为students,当单击b2按钮时标题变为teachers。请将程序补充完整。publicChangeTitle(){super("Title
创建一个显示“选项”的菜单项对象mi的正确语句是【13】。
下面程序段的输出结果是【】。publicclassTest{publicstaticvoidmain(Stringargs[]){inti=1;switch(i){case
在Java语言中,类按照程序设计所需要的常用方法和接口封装成【】。
下面各选项中正确的是()。Ⅰ:longl=4990Ⅱ:inti=4LⅢ:floatf=1.1Ⅳ:doubled=34
随机试题
第三心音听诊的特点哪项是错误的
A.苍术B.草果C.草豆蔻D.厚朴E.藿香既能燥湿消痰,又能下气除满的药物是
肝硬化患者出现肝掌、蜘蛛痣的机制是()
试述一氧化碳中毒的急救要点。
无权代理的本质特征是()。
建筑市场诚信行为公告,在下列()情况下可修正或变更。
将下列函数在指定点处展开成幂级数:f(x)=,在x=1处.
normaldiet
HowdoesMr.WilliamsknowMr.Harris?
WhattheHeckDoesVincentvanGoghHaveToDoWithInternetMarketing?[A]Nothingandeverything!Tuckeddiscreetlyawayon
最新回复
(
0
)