2. 计算机
  3. 在考生目录下有一个工程文件sjt3．vbp，窗体文件中已给出所有控件和部分程序，如图3-85所示。要求： ①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐； ②请编写适当的程序完成以下功能：在Text1中输入40(度数)，

在考生目录下有一个工程文件sjt3．vbp，窗体文件中已给出所有控件和部分程序，如图3-85所示。要求： ①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐； ②请编写适当的程序完成以下功能：在Text1中输入40(度数)，

admin2016-01-31  79
问题 在考生目录下有一个工程文件sjt3．vbp，窗体文件中已给出所有控件和部分程序，如图3-85所示。要求：
    ①利用属性窗口设置适当的属性，使Text1、Text2中数据右对齐；
    ②请编写适当的程序完成以下功能：在Text1中输入40(度数)，选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值(保留3位小数，第4位截去，π取3．14159)，并显示在Text2中。
   
    注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在Text1中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后程序按原文件名存盘。
选项
答案审题分析 本题可通过利用If…Else…语句来判断第一个单选按钮是否被选中，若是则进行正弦运算，否则进行余弦运算。 操作步骤 步骤1：打开考生文件夹中的本题工程文件sjt3．vbp，程序界面如图4-4所示。 [*] 步骤2：依次选中窗体中的两个文本框，将其Alignment属性值设置为1-Right Justify。 步骤3：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub Command1_Click() If Option1．Item(0)=True Then Text2．Text=Format(Sin(Val(Text1．Text) * 3．14159／180)，"0．000") End If If Option1．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：按要求将文件保存至考生文件夹中。 考点链接 控件数组、常用内部函数、If选择结构。
解析
转载请注明原文地址:https://kaotiyun.com/show/KwLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)