首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹
admin
2019-06-24
66
问题
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体中有一个矩形和一个圆,程序运行时,单击“开始”按钮,圆可以横向或纵向运行(通过选择单选按钮来决定),碰到矩形的边时,则向其相反方向运动,单击“停止”按钮,则停止运动,如图所示。可以通过选择单选按钮随时改变运动方向。
已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改已经存在的内容和控件属性,最后将修改后的文件按原文件名存盘。
选项
答案
(1)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Private Sub Form_Click() For i=1 To5’输入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 Next i End Sub 程序结束 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容。 参考答案(画线部分是需考生填入的内容) Dim d As Integer Private Sub Commandl Click() Timer1.Enabled=True’当单击"开始"按钮时,Timer生效 End Sub Private Sub Command2 Click()
Timer1.Enabled
=False’当单击"停止"按钮时,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<=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时,则改变移动方向 End It End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
(1)本题主要考查的是对循环语句的理解,以及对于循环上限的判断。首先看一下两个主要的:For循环语句实现什么样的功能,先看第1个For语句,在循环语句中嵌套两个循环语句,第1个语句实现输入空格,当i=1时,即当输入第1行时,进行For j=1 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,使圆停止运动,在Command1_Click事件过程中通过将Timer1的Enabled属性设置为True,使圆开始运动。
在窗体载入时设置d的值,是为了方便编辑圆向相反方向的运动过程语句。
转载请注明原文地址:https://kaotiyun.com/show/mqUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个文本框,名称为Text1,内容为“VB程序设计”;再画两个命令按钮,其名称分别为Command1和Command2,标题分别为“扩大”和“
在考生的文件夹下有一个工程文件sjt5.vbp,相应的窗体文件为sjt5.frm。在窗体上有两个命令按钮,其名称分别为Command1和Command2,标题分别为“写文件”和“读文件”,如图3—131(a)所示。其中“写文件”命令按钮事件过程用来建立一个
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上添加一个计时器控件,名称为Timer1。请利用属性窗口设置适当属性,使得在运行时可以每隔1秒,调用计时器的Timer事件过程一次。另外,请把窗体
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画1个名称为Frame1、标题为“项目”的框架;框架内有1个名称为opt1的控件数组,该控件数组含有三个标题分别为“篮球”“排球”“足球”的单选
现有如下一段程序:PrivateSubCommand1_Click()x=UCase(InputBox(”输入:“))SelectCasexCase"A"To"C"Print"考核通过!"
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
设有如下数组定义语句:Dima(-1To4,3)AsInteger以下叙述中正确的是
窗体上有一个名称为Shapel并显示为圆的形状控件(其width和Height属性值相等),一个名称为Timer1的计时器,并有下面程序代码:DimrAsSingle,flagAsIntegerPrivateSubForm
在软件开发中,需求分析阶段产生的主要文档是
某二叉树共有7个结点,其中叶子结点只有1个,则该二叉树的深度为(假设根结点在第1层)()。
随机试题
患儿,男,3岁。间断发热、皮肤及黏膜下紫癜1个月,多种抗生素治疗不见好转。1周来出现头晕、头痛,有时出现呕吐。入院检查:纵隔、颈部及腹股沟淋巴结明显肿大。血细胞计数:红细胞:2.5×1012/L、血红蛋白:76g/L、白细胞:85×109/L、血小板:33
晶状体半脱位的病因不包括()
下列哪项方法不宜用于闭经与早孕的鉴别
A.黄酮类B.香豆素类C.二萜D.生物碱E.木脂素《中国药典》中,五味子质量控制成分的结构类型是()。
关于项目申请书的说法,错误的是()。
下列关于工业管道工程计量规则的叙述,正确的是()。
某市财政部门在对辖区内的一个生产企业进行会计执法检查中发现下列问题:(1)该企业销售货物时将应向购买方收取款项的8%作为发票金额开具发票,其他款项记入私密账本。(2)该企业采用电子计算机进行会计核算,但是其使用的软件经财政部门验证不符合国家统一的会计制
在绩效考核时,以企业战略为导向,从顾客角度、内部流程角度、学习与成长角度、财务角度建立与关键成功因素有密切联系的绩效指标体系,基于这种做法的绩效考核方法是()。
根据下面材料回答问题。2004年,某市房地产市场供需高位均衡,并呈现供略大于需的合理态势,商品房竣工面积1956.29万平方米,比去年同期增长45.3%;销售面积1876.31万平方米,比去年同期增长21.0%。供需绝对差额79.98万平方米。1
有关ZAP命令的描述,正确的是()。
最新回复
(
0
)