首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-06-30
56
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩形的左边线上,如图1所示;滚动块在最右边时,圆靠在矩形的右边线上,如图2所示。垂直滚动条的情况与此类似。
已经给出了全部控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp。窗体中已经给出了所有控件,如图所示。程序运行时,单击“发射”按钮,航天飞机图标将向上运动,速度逐渐加快,全部进入图片云中后则停止,并将飞行距离(用坐标值表示)和所用时间(单位为秒)分别显示在标签Label1和Label2中;单击“保存”按钮,则把飞行距离和所用时间存入考生文件夹下的out4.txt文件中。
已经给出了程序,但不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Private Sub Form_load() HScroll1.Min = Shape2.Left ’ HScroll1.Max = Shape2.Width + Shape2.Left - Shape1. ? VScroll1.Min = Shape2.Top ’ VScroll1.Max = Shape2.Height + ? - Shape1.Height HScroll1.Value = 1000 VScroll1.Value = 1000 End Sub Private Sub HScroll1_Change() ’ ? = HScroll1.Value End Sub Private Sub VScroll1_Change() ’ Shape1.Top = ? End Sub 程序结束 参考答案 第1个?处填入:Width 第2个?处填入:Shape2.Top 第3个?处填入:Shape1.Left 第4个?处填入:VScroll1.Value 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a, t, d Private Sub Command1_Click() ’ Timer1.? = True d = Image1.Top End Sub Private Sub Command2_Click() Open App.Path & "\out4.txt" For Output As #1 Print #1, Label1, Label2 Close #1 End Sub Private Sub Form_Load() a = 1 t = 0 End Sub Private Sub Timer1_Timer() Image1.Top = Image1.Top - a * 50 If Image1.Top + Image1.Height <= Image2.Top + Image2.Height - 200 Then ’ ? = False ’ d = ? - Image1.Top Label1 = d Label2 = t * Timer1.Interval / 1000 End If a = a + 0.1 ’ t = ? End Sub 程序结束 参考答案 第1个?处填入:Enabled 第2个?处填入:Timer1.Enabled 第3个?处填入:d 第4个?处填入:t + 1 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/PfQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=""Text2.Text=""
下列关于文件的叙述正确的是
若要设置定时器控件的定时时间,需设置的属性是
下列叙述中,不属于测试的特征的是()
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序;PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(10,10)AsIn
在磁盘C的根目录下有一个名为Sco.dar的文件,内容为姓名、英语成绩、物理成绩、数学成绩,现依此文件在根目录中建立一个名为Aver.dat的文件,内容为姓名及三门课的平均成绩,但程序不完整,请在______处补充。Open"C:\Sco.dat"
下面程序段的运行结果是a=1b=1Doa=a+1b=b+1LoopUntilb>5Print"k=";a;Spc(4);"b="
下列叙述中正确的是______。
若结点的存储地址与其关键字之间存在某种映射关系,则称这种存储结构为______。
随机试题
什么是走向线和走向?走向标志着什么?它有几个值?相差的度数是多少?
一个流程由流程线、物料流向、名称及物料的来源和去向构成。
患者男,57岁。因严重肝病导致昏迷,呼吸微弱,浅而慢。护士为其测量呼吸的正确方法是()
下列项目中不属于营业外支出的是()。
商业银行在理财工作中必须建立健全有关规章制度和内部审核程序,并对()进行全面规范。
宏观经济政策的目标是()。
下列有关书法艺术的表述,正确的是()。
一种产品的价值由其质量与价格之间的比率决定。一种产品的价值越高,其会处于越好的竞争地位。所以对于既定产品而言或者通过提高质量,或者通过降低价格,都会提高消费者选择这种产品而不选择竞争性产品的概率。下面哪项,如果正确,最能支持以上得出的结论?
空想社会主义思潮经历了若干个历史发展阶段,其中成为科学社会主义的直接思想来源的是
Howmenfirstlearnedtoinventwordsisunknown;inotherwords,theoriginoflanguageisamystery.Allwereallyknowistha
最新回复
(
0
)