首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
(1)在考生文件夹下有一个工程文件sjt3.vbp,窗体上有一个圆和一个矩形,还有水平和垂直滚动条各一个。程序运行时,移动某个滚动条的滚动块,可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例,滚动块在最左边时,圆靠在矩
admin
2015-06-30
60
问题
(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全国计算机二级
相关试题推荐
运行VB程序的快捷键为______。
下面程序是用来打印九九乘法表的,请填空。PrivateSubForm_Click()DimflagAsInteger,iAsInteger,jAsInteger,Str1$Str1=“”
在窗体上画两个文本框和一个命令按钮,然后在代码窗口中编写如下事件过程:PrivateSubCommand1_Click()TextText="VBProgramming"TextText=
在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()MsgBoxStr(123+321)EndSub程序运行后,单击命令按钮,则在信息框中显示的提示信息为
命令按钮不能响应的事件是
在窗体上画一个文本框和一个图片框,然后编写口下两个事件过程:PrivateSubForm_Click()Text1.Text="VB程序设计"EndSubPrivateSubText1_Change()
下面的语句用Array函数为数组a的各元素赋整数值:a=Array(1,2,3,4,5,6,7,8,9)对数组变量a的正确定义是
为了清除列表框中指定的项目,应使用的方法为
执行下列语句后,输出结果为______。s$="ABCDEFG"PrintInStr(s$,"efg")PrintLCase$(s$)
如果在C盘当前文件夹下已经存在名称为Sdat.dat的顺序文件,那么执行语句Open"c:\Sdat.dat"ForAppendAs#1之后,将()。
随机试题
企业出售无形资产的净收入,会计上应确认为()。
下列哪一项不是引起左房增大的原因
下列哪项属于小儿出生时不存在,以后出现并持续终身的神经反射
患者,男,52岁。平素身体虚弱,今日突然昏仆,不省人事,目合口张,手撒肢冷,汗多,小便自遗,肢体软瘫,舌痿,脉细弱。治疗应首选的方剂是
下列关于交易所席位管理的说法中,正确的有( )。
以下关于外资股的说法,正确的是()。
在金银复本位制下,实际价值高于名义价值的货币被收藏、熔化而退出流通,实际价值低于名义价值的货币则充斥市场,这种现象称作()。
根据《中华人民共和国刑法》第二百六十三条的规定,持枪抢劫是抢劫罪的加重理由,应处10年以上有期徒刑、无期徒刑或者死刑。冯某抢劫了某出租车司机的钱财。法院在审理过程中确认,冯某抢劫时使用的是仿真手枪,因此,法官在对冯某如何量刑上发生了争议。法官甲认为,持仿真
锦上添花:雪中送炭与()在内在逻辑关系上最为相似。
Whydidthefoxfallintothefiver?HowdidthesheepfeelWhenshesawthefoxintheriver?
最新回复
(
0
)