首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件
admin
2018-12-20
35
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件灾下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,网可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。
已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Private Sub Form C1ick() For i=1 To 5’输入5行 For j=1 To 6-i’循环实现输入空格,每行依次减少一个空格 Print"" Next j For j=1 To 2*i-i’观察图像每行*的个数 Print"*": Next j Print Next i For i=1 To 4 For j=1 To i+1同问题1 Print""; Next j For j=1 To (9-2*i)同问题2 Print"*"; Next j Print Next i End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 Dim d As Integer Private Sub Commandl C1ick() Timerl.Enabled=True’当单击"开始"按钮时,Timer生效 End Sub Private Sub Command2 C1ick() Timer1.Enabled=False’当单击"停止v按钮时,Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timer1 Timer() If Optionl Then’判断Option1是否被单击 Shape2.Top=shape2.Top+d*50’实现圆垂直移动 If Shape2.Top<=Shapel.Top OrShape2.Top+Shape2.Width>=Shape1.Top+Shape1.Height Then’判断Shape2与Shape1的位置 d=-d’当圃移出Shapel时,改变移动方向 End If ElseIf Option2 Then Shape2.Left=Shape2.Left+d*50 ’实现水平移动 If Shape2.Left<=Shapel.Left OrShape2.Left+Shape2.Width>=Shapel.Left+Shapel.Width Then d=一d’当圆移出Shapel时。则改变移动方向 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题主要考查的是对循环语句的理解,以及对于循环上限的判断。首先看一下两个主要的For循环语句实现什么样的功能,先看第1个For语句,在循环语句中嵌套两个循环语句,第1个语句实现输入空格,当i=1时,即当输入第1行时,进行For j=l To 6-i的循环,即在第1行打印出5个空字符,也可以理解为打印出5个空格。第2个for循环实现的是*的打印,还以i=1为例,要打印出一个*,同时要注意行数i和输入空格及*符号个数之间的关系,也就是找出表达式的运算规律,从而得到循环上限。
(2)在Timer1_Timer事件过程中,通过判断单选按钮“纵向”或“横向”是否被选中来决定圆运动的方向,如果是纵向,则通过Shape2的Top和Width属性值的改变实现圆的移动,并通过判断Top属性值来确定是否到达上或下界,使圆向相反方向运动。如果是横向,则通过Shape2的Left和Width属性值的改变实现圆的移动。在Command2_Click事件过程中通过将Timer1的Enabled属性设置为False,使圆停止运动,在Commandl_Click事件过程中通过将Timer1的Enabled属性设置为True,使圆开始运动。
在窗体载入时设置d的值,是为了方便编辑圆向相反方向的运动过程语句。
转载请注明原文地址:https://kaotiyun.com/show/hjFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
要计算x的平方根并放入变量y,正确的语句是( )。
窗体上有1个名称为Text1的文本框,1个名称为Timer1的计时器,且已在属性窗口将Timer1的Interval属性设置为2000、Enabled属性设置为False。以下程序的功能是,单击窗体,则每隔2秒钟在Text1中显示一次当前时间。Priva
已知a=6,b=15,c=23,则语句PrintSgn(a+bMod6-c\a)&a+b的输出结果为( )。
下列选项中属于面向对象设计方法主要特征的是( )。
窗体上有一个名称为Command1的命令按钮,有程序如下:OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger’第1个ForFori=1To1
VB中,若没有显式声明变量的数据类型,则默认的类型是
设在一个工程的窗体中有如下代码:PublicxAsIntegerPrivateSubForm_Load()DimyAsIntegerEndSub在该工程的标准模块的声明部分有如下代码:
窗体上有一个名称为Frame1的框架(如图),若要把框架上显示的"Frame1"改为汉字"框架",下面正确的语句是( )。
对长度为n的线性表作快速排序,在最坏情况下,比较次数为
三角形的构成条件是:任意2边之和大于第3边。设变量a、b、c是3条直线的长度,要求判断这3条直线能否构成一个三角形。下面有3个程序段可以正确判断,另一个不能正确判断的是
随机试题
利率平价理论片面强调_______对汇率的决定作用()
下述哪项不是扩张型心肌病超声表现:
[2003年第055题]现存唐宋辽金木构建筑中,规模最大的是:
教师职业道德与其他职业道德相同的是()。
英国斯腾豪斯称“课程发展即教师发展”,高度概括了课程改革与()的关系。
首项为一24的等差数列,从第10项起开始为正数,则其公差d的取值范围是______.
对存在过错的执法行为和案件,公安法制部门应当()。
北宋时期印书业的四大中心是()
(I)设函数y=y(x)由方程sin(x2+y2)+ex—xy2=0所确定,求(Ⅱ)设ex+y=y确定y=y(x),求y’,y”;(Ⅲ)设函数y=f(x+y),其中f具有二阶导数,且f’≠1,求
Musicaffectsusasprofoundlyasanythingweexperience.Verymanypeoplesaythatmusicisa【C1】______oftheireverydaylife.
最新回复
(
0
)