首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(
(1)在考生目录下有一个工程文件sjt3.vbp,窗体文件中已给出所有控件和部分程序,如图3.119所示。要求: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(
admin
2018-05-08
58
问题
(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全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(Name属性为Commandl),然后编写如下事件过程:PrivateSubCommandl_Click()Dima(10)AsInterger,p(3)AsIntergerK=5Fori=1To
以下叙述中正确的是()。
单击一次命令按钮,下列程序代码的执行结果为()。PrivateSubCommandl_Click()DimaAsInteger,bAsInteger,cAsIntegera=2:b=3:c=4PrintP2(
有下面事件过程:PrivateSubFormMouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2Then
若看到程序中有以下事件过程,则可以肯定的是,当程序运行时PrivateSubClick_MouseDown(ButtonAsInteger,_ShiftAsInteger,XAsSingle,YAsSingle)
下列事件的事件过程中,参数是输入字符ASCⅡ码的是
下列关于利用通用对话框产生的文件对话框的相关属性的描述中,错误的是
下面关于控件数组的叙述中正确的是
在VisualBasic中,所有标准控件都具有的属性是
以下说法中正确的是
随机试题
钛及钛合金对热裂纹是非常敏感的。()
X线影像形成的基础是
正态分布u±2.85δ的面积占总面积的
颅腔内容物中脑组织占80%~90%,脑脊液约占10%,血液占2%~11%。当颅内出现占位性病变而颅内压尚处于代偿期时失代偿时最有效的缓解颅压手段为
下列不属于项目法人分包管理职责的是().
某大型企业设立了调解委员会,以缓和劳资矛盾。可以担当调解委员会主任的是()。
下列哪种方法无法使一个页面中容纳更多的文字?()
我国《刑法》中规定某些罪“告诉才处理”,《刑事诉讼法》中规定了自诉案件。某校考试时的一道题目为“自诉案件与告诉才处理案件的关系”,一名考生的下列四项答案要点中,正确的是()。
以下不属于政府可以采取的扩大内需的措施是()。
Oneofthemostimportanttechnologicaldevelopmentsduringthe1980shasbeentheemergenceofopticalfibercommunicationasa
最新回复
(
0
)