首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序运行时,单击窗体则显示如图所示的图案。请去掉程序中的注释符,把程序中的?改为正确的内容。 注意:不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。 (2)在考生文件夹下有一
admin
2019-06-20
32
问题
(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*1-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*1)’同问题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 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时,则改变移动方向 End If End If End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/hSUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序。程序运行时,在文奉框中每输入一个字符,则立即判断:若是小写字母,则把它的大写形式显示在标签Label1中;若是大写字母,则把它的小写形式显示在Labe11中;若是其他7符,则把该字
在考生文件夹下有一个数据库文件“samp1.accdb”和一个图像文件“photo.bmp”。在数据库文件中已经建立了一个表对象“tStud”。请按以下操作要求,完成各种操作。(1)设置“ID”字段为主键;并设置“ID”字段的相应属性,使该字段在
在考生文件夹下有一个数据库文件“samp1.accdb”。在数据库文件中已经建立了一个表对象“学生基本情况”。根据以下操作要求,完成各种操作。(1)将“学生基本情况”表名称改为“tStud”。(2)设置“身份ID”字段为主键;并设置“身
在考生文件夹下,存在一个数据库文件“samp1.accdb”,里而已经设计好表对象“tStud”,请按照以下要求,完成对表的修改。(1)将“年龄”字段的字段大小改为“整型”;将“简历”字段的说明设置为“自上大学起的简历信息”;将“备注”字段删除。
考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的窗体对象“ffest”及宏对象“m1”。请在此基础上按照以下要求补充窗体设计。(1)在窗体的窗体页眉节区中添加一个标签控件,名称为“bTide”,标题为“窗体测试样例”。
在考生文件夹下有数据库文件“samp1.accdb”和Excel文件“Stab.xlsx”,“samp1.acedb”中已建立表对象“student”和“grade”,请按以下要求,完成表的各种操作。(1)将考生文件夹下的Excel文件“Stab
下面程序运行后,语句“Printi”执行的次数是()。PrivateSubForm_Click()DimiAsInteger,jAsIntegeri=0Doi=i+1Forj=10To1Step-3i=i+jPri
设有以下函数过程PrivateFunctionFun(a()AsInteger,bAsString)AsInteger…EndFunction若已有变量声明:Dimx(5)AsInteger,nAsInteger,chA
设a="VisualBasic",下面语句中可使b="Basic"的是()。
设x为一整型变量,且语句的开始为:SelectCasex,则不符合语法规则的Case子句是
随机试题
最常引起肝、脾、淋巴结肿大及脑膜浸润的白血病类型是
A.盖嵴式桥体B.接触式桥体C.改良盖嵴式D.悬空式桥体E.船底式桥体可以防止食物进入龈端,自洁作用好,感觉舒适的桥体设计类型是()
某技术方案建设投资为1300万元,该技术方案经营期为20年,经营期每年总成本费用为300万元,折旧费和摊销费占总成本费用的20%,若直接将总成本费用列入技术方案投资现金流量表的现金流出,则会多计现金流出量合计()。
企业中期财务报告至少应当包括()。
银行应申请人的要求,向受益人作出的书面付款保证承诺,受益人提交条款相符的书面索赔后,银行将履行担保支付或赔偿责任的是()。(2011年)
对世界文化的看法存在欧洲中心论的偏见。在文化轴心时期,每一个文化区有它的中坚思想,每一中坚思想对世界文化都有它的贡献。中国的中坚思想是儒、道、墨兼而有之,以儒、道、墨为代表的诸子思想对世界文化作出了贡献。以下哪项陈述是上述论证所依赖的假设?(
简述民事法律行为和事实行为的区别。[北邮2013年研;北科2012年研]
设其中a1,a2,…,an是两两不同的一组常数,则线性方程组ATx=B的解是___________.
WhatdoesMr.Dominquezstateinhise-mail?
WhenMomandDadGrowOld[A]Theprospectoftalkingtoincreasinglyfragileparentsabouttheirfuturecanbe"oneofthemost
最新回复
(
0
)