首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(
admin
2018-05-08
48
问题
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求:
①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;
②请编写适当的程序完成以下功能:在Text1中输入40(度数),选择一个单选按钮,单击“计算”按钮,则根据所选择的单选按钮,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算,在Text1中输入的必须是40,必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。
(2)在考生文件夹下有一个工程文件sjt4.vbp,窗体上已经给出所有控件。程序运行时,单击“开始”按钮,则汽车图标向右运动;单击“停止”按钮则汽车停止运动;移动滚动条上的滚动框,可以改变汽车的运动速度(滚动框向右移动,速度减慢)。如图3.120所示。
要求如下:
去掉程序中的注释符,把程序中的“?”改为正确的内容。
提示:窗体上有一个计时器,计时器的事件过程每执行一次,汽车向右移动10,程序通过改变计时器控件的Interval属性来改变汽车的运动速度。
注意:不得修改控件的属性。最后按原文件名存盘。
选项
答案
(1)步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,程序界面如图44所示。 [*] 步骤2:依次选中窗体中的两个文本框,将其Alignment属性值设置为1-Right Justify。 步骤3:双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。参考代码: Private Sub Command1_Click() If Optionl.Item(0)=True Then Text2.Text = Format(Sin(Val(Text1.Text) * 3.14159 /180), "0.000") End If If Optionl.Item(1)=True Then Text2.Text=Format(Cos(Val( Text1.Text)*3.14159/180),"0.000") End If End Sub 步骤4:按
键运行程序,在左侧文本框中输入“40”,选择不同选项,单击“计算”按钮,结果图4.5所示。 [*] 步骤5:单击窗体右上角的关闭按钮以结束程序。 步骤6:按要求将文件保存至考生文件夹中。 (2)步骤1:打开考生文件夹中的本题工程文件sjt5.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。参考代码: Timerl.Enabled=True Timerl.Interval=HScroll1.Value Picture1.Left=Picture1.Left+10 步骤2:按要求将文件保存至考生文件夹中。
解析
(1)本题可通过利用If…Else…语句来判断第一个单选按钮是否被选中,若是则进行正弦运算,否则进行余弦运算。
(2)本题要求在单击“开始”按钮时,汽车向右运动,其实质是在“开始”按钮的单击事件过程中启动计时器,故第一个?处应改为True。要通过移动滚动条上的滚动框来改变汽车的运动速度,需在滚动条的Change事件过程中,将滚动条当前Value属性值赋予计时器的Interval属性,第二个?处应改为Timerl。汽车向右移动是在计时器的Timer事件过程中,通过不断增加图片框的Left属性值来实现的,故第三个?处应改为Picture1.Left。
转载请注明原文地址:https://kaotiyun.com/show/QlGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面是求最大公约数的函数的首部()。Functionfun(ByValxAsInteger,ByValyAsInteger)AsInteger若要输出8、12、16这3个数的最大公约数,下面正确的语句是
在窗体上画一个命令按钮(Name属性为Commandl),然后编写如下事件过程:PrivateSubCommandl_Click()Dima(10)AsInterger,p(3)AsIntergerK=5Fori=1To
假定有如下的Sub过程:SubS(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click(
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
下面关于控件数组的叙述中正确的是
设在窗体上有一个名称为Checkl的复选框数组,并有以下事件过程:PriVateSubCheckl_Click(IndexAsInteger)EndSub则下面叙述中错误的是
窗体上有一个用菜单编辑器设计的菜单。运行程序,并在窗体上单击鼠标右键,则弹出一个快捷菜单,如图所示。以下叙述中错误的是
若要清除列表框控件中的所有列表项,应该使用的方法是
在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
下面说法中错误的是
随机试题
【背景资料】某商务楼建筑工程通过公开招标方式确定三个不同性质的施工单位承担该项目的所有施工任务,建设单位分别与A公司签订了建筑主体土建工程施工合同;与B公司签订了机电设备安装合同;与C公司签订了外幕墙工程安装合同。三个合同中均约定了由建设单位全面
行政处罚实施机关行使行政处罚裁量权应当符合法律目的,排除不相关因素干扰,所采取的措施和手段应当必要、适当;对事实、性质、情节、社会危害程度等因素相同或者相似的违法行为,所适用的处罚种类和幅度应当()
西卡丝绸有限公司是一家中外合营企业,由来自美国、意大利、韩国和中国的6家公司共同举办。MIGA(多边投资担保机构)向这个合营者的股权投资提供了200万美元的担保,按照MIGA的规定,其不予以承保的风险为:()
(2009年)若在迈克尔干涉仪的可动反射镜M移动0.620mm过程中,观察到干涉条纹移动了2300条,则所用光的波长为()nm。
玻化微珠的性能有()。
关于税收执法监督的说法,正确的是()。
在计算土地增值税的计税依据时,允许作为扣除项目的是( )。
一位网友在微博上上传了自己的一组性感照片。引起广大网友热议,后来经查证这位网友是一名女警察。对此你怎么看?
ComingHome:LifeAfterStudyingAbroadManyreturneeswhohavestudiedabroadmaysufferre-entrycultureshockwhentheygo
A、Hefoundapieceofchocolateinhispocket.B、Hewasgivenapieceofchocolatebysomeone.C、Hefoundalargedogbyhisgat
最新回复
(
0
)