首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序,如图3-180所示。要求如下: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(度数),选择
在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序,如图3-180所示。要求如下: ①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐; ②请编写适当的程序完成以下功能:在Text1中输入40(度数),选择
admin
2016-01-31
28
问题
在考生目录下有一个工程文件sjt3.vbp,包含了所有控件和部分程序,如图3-180所示。要求如下:
①利用属性窗口设置适当的属性,使Text1、Text2中数据右对齐;
②请编写适当的程序完成以下功能:在Text1中输入40(度数),选择组合框中的一个项目,单击“计算”按钮,则根据所选择的项目,计算出相应的正弦、余弦值(保留3位小数,第4位截去,π取3.14159),并显示在Text2中。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须进行一种计算;在Text1中输入的必须是40;必须用窗体右上角的关闭按钮结束程序,否则无成绩。最后按原文件名存盘。
选项
答案
审题分析 本题可通过Select Case语句对组合框的Text属性返回值逐一进行判断,并根据Text属性值不同,分别进行相应运算。为实现“第4位截去”的功能,可将运算值乘以1000后取整,再除以1000。 操作步骤 步骤1:打开考生文件夹中的工程文件sjt3.vbp,依次选中窗体中的两个文本框,将其Alignment属性值设置为1-Right Justify。 步骤2:双击窗体中的“计算”命令按钮,在打开的代码编辑窗口中编写其单击事件过程。 参考代码: Private Sub Command1_Click() Const PI=3.14159 Select Ca se Combo1.Text Case "sin":a=Sin(CInt(Text1.Text)*PI/180) Case"cos":a=Cos(CInt(Text1.Text)*PI/180) End Select Text2=Int(a*1000)/1000 End Sub 步骤3:按
键运行程序,在左侧文本框中输入“40”,选择不同选项,单击“计算”按钮。 步骤4:单击窗体右上角的关闭按钮以结束程序。 步骤5:按要求将文件保存至考生文件夹中。 考点链接 多分支结构、常用内部函数。
解析
转载请注明原文地址:https://kaotiyun.com/show/JuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,一个名称为Labell的标签,然后编写如下事件过程:PrivateSubCommandl_Click()S=0Fori=1To15x=2*i-1
以下()操作不能打开属性窗口
执行语句Open"TC.dat"ForRandomAs#1Len=50后,对文件TC.dat中的数据能执行的操作是()。
下列操作不能向工程中添加宙体的是()。
只能用来显示文本信息的控件是()。
阅读下面的程序段:Fora=1To2Forb=1ToaForc=bTo2i=i+1NextNextNextPrinti执行上面的3重循环后,i的值为
随机试题
脂肪酸氧化的限速酶是
男性,8岁,玩耍中突然感到左侧睾丸疼痛3小时。查体:左侧阴囊略红,左睾丸较右侧睾丸略大,有触痛。应做哪些检查
升麻葛根汤的功用是
孕妇感染后病死率高的病毒是
尖牙髓腔形态描述错误的是
为向A公司支付购买机器设备的货款,B公司向自己开户的C银行申请开具银行承兑汇票。C银行审核同意后,B公司依约存入C银行300万元保证金,并签发了以自己为出票人、A公司为收款人、C银行为承兑人、金额为1000万元、见票后3个月付款的银行承兑汇票,C银行在该汇
下列关于岗位薪酬制的说法中,不正确的是()
游泳中发生腿部痉挛是十分危险的情况。调查发现,春季在游泳馆游泳的人中发生腿部痉挛的人数是在户外开放性水域游泳的人中发生腿部痉挛人数的2倍。因此,春季人们在户外开放性水域游泳时更不容易因为腿部痉挛而发生危险。为了评价上段陈述,最重要的是要知道(
设总体X~N(0,σ2),X1,X2,X3,X4为总体X的简单随机样本,
Ineverycultivatedlanguagetherearetwogreatclassesofwords,whichmakeupthewholevocabulary.First,therearethosewo
最新回复
(
0
)