首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个
admin
2019-03-14
51
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件Sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。
已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
(1)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Private sub Form_Click() For i=1 To 5 ’输入5行 For j=1 To 6一i’循环实现输入空格,每行依次减少一个空格 Print ""; Next j For=j=1 To 2* i-1 ’观察图像每行*的个数 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 Nexti End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案 Dim d As Integer Private Sub Command1_Click() Timerl.Enabled=True。当单击"开始"按钮时,Timer生效 End Sub Private Sub Command2 Ciick() Timerl.Enabled=False’当单击"停止"按钮时,Timer失效 End Sub Private Sub Form_Load() d=1 End Sub Private Sub Timerl_Timer() If Optionl Then’判断Optionl是否被单击 Shape2.Top=Shape2.Top+d*50’实现圆垂直移动 If Shape2.Top<=Shape1.Top Or Shape2.Top+Shape2.Width>=Shape1.Top+Shape1.Height Then’判断Shape2与Shape1的位置 d=一d’当圆移出Shape1时,改变移动方向 End If ElseIf Option2 Then Shape2.Left=Shape2.Left+d*50’实现水平移动 If Shape2.Left<=Shape1.Left Or Shape2.Left+Shape2.Width>=Shape1.Left+Shape1.Width Then d=一d’当圆移出Shape1时,则改变移动方向 En CIf End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题主要考查的是对循环语句的理解,以及对于循环上限的判断。首先看一下两个主要的For循环语句实现什么样的功能,先看第1个For语句,在循环语句中嵌套两个循环语句,第1个语句实现输入空格,当i=1时,即当输入第l行时,进行For j=1 To 6一i的循环,即在第1行打印出5个空字符,也可以理解为打印出5个空格。第2个for循环实现的是*的打印,还以i=1为例,要打印出一个*,同时要注意行数i和输入空格及串符号个数之间的关系,也就是找出表达式的运算规律,从而得到循环上限。
(2)在Timerl_Timer事件过程中,通过判断单选按钮“纵向”或“横向”是否被选中来决定圆运动的方向,如果是纵向,则通过Shape2的Top和Width属性值的改变实现圆的移动,并通过判断Top属性值来确定是否到达上或下界,使圆向相反方向运动。如果是横向,则通过Shape2的Left和Width属性值的改变实现圆的移动。在Command2_Click事件过程中通过将Timerl的Enabled属性设置为False,使圆停止运动,在Command1_Click事件过程中通过将Timerl的Enabled属性设置为True,使圆开始运动。
在窗体载入时设置d的值,是为了方便编辑圆向相反方向的运动过程语句。
转载请注明原文地址:https://kaotiyun.com/show/zKFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
编写如下程序:PrivateSubForm_Click()Dimaa=Array(1,2,3,4,5,6,7,8,9,10)n=InputBox("请输入一个小于10的正整数")i
窗体上有一个Text1文本框和一个Command1命令按钮。程序的功能是在文本框中输入密码后单击命令按钮则进行密码确认,若密码正确,弹出信息框显示"密码正确",若密码错误,弹出信息框显示"密码错误,请重新输入",但最多允许输出3次,若还不正确,则弹出信息框
如果要在图片框Picture1中输出文本"图片框",则正确的语句是
在软件开发中,需求分析阶段产生的主要文档是( )。
以下叙述中错误的是( )。
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是( )。
软件设计中模块划分应遵循的准则是
双精度浮点数的类型说明符为
已知二叉树后序遍历序列是CDABE,中序遍历序列是CADEB,它的前序遍历序列是()。
随机试题
某公司在2012年发行债券10000元,每年利息费用800元,该债券的筹资费用率2%,该公司的所得税率为25%,则债券的资本成本为()
案例 E矿为国有重点煤矿,属于井工矿,核定生产能力330×104t/a。E煤矿主采3煤层,煤尘具有爆炸性。矿井采用斜井开拓方式,共有主斜井、副斜井、风井3个井口。 矿井地面建有生活水池,容量200m3,井下防尘、供水施救系统与消防共用一趟管,供水主管为
城市桥梁工程无支护基坑施工注意事项中,相邻基坑深浅不等时,一般按()的顺序施工。
住宅装修过程中,因渗漏、管道堵塞等原因给邻居造成经济损失的,其赔偿或修复主体是()。
1.背景我国西北地区某旅游城市新建一民用机场,包含一条跑道、一座旅客航站楼等设施。预计10年内年旅客吞吐量将达30万人次。设计使用飞机机型为B737。机场的基准飞行场地长度为2200m,无净空道和停止道,装备的仪表着陆系统以及目视助航设备能供飞机在决断高
简述真实主义歌剧。
任何稍有头脑的管理者都知道创新是成功的关键要素。但问题是,这需要大脑的两个半球都参与工作:富于想象、擅长整体性思维的右脑,加上理性、分析型的左脑。可是像达芬奇这样同时精于艺术想象和科学分析的人,是极为罕见的。______。填入横线最恰当的一项是(
与显示相关的Applet方法有______()、repaint()和update()。
AdultEducationMillionsofpeopleareenrolledineveningadulteducationprogramsacrossAmerica./Communitycollegeshav
A、Mrs.Joneswaspunished.B、Mrs.Joneslostherrecord.C、Thecasewasdismissed.D、Thejudgekepthisrecord.C
最新回复
(
0
)