2. 计算机
  3. （1）在考生目录下有一个工程文件vbsj3.vbp，窗体文件中已给出所有控件和部分程序，如图1－249所示。 要求：①利用属性窗口设置适当的属性，使txtInput、txtResult 中数据右对齐；②请编写适当的程序完成以下功能：在txtInp

（1）在考生目录下有一个工程文件vbsj3.vbp，窗体文件中已给出所有控件和部分程序，如图1－249所示。 要求：①利用属性窗口设置适当的属性，使txtInput、txtResult 中数据右对齐；②请编写适当的程序完成以下功能：在txtInp

admin2018-12-05  34
问题 （1）在考生目录下有一个工程文件vbsj3.vbp，窗体文件中已给出所有控件和部分程序，如图1－249所示。

    要求：①利用属性窗口设置适当的属性，使txtInput、txtResult 中数据右对齐；②请编写适当的程序完成以下功能：在txtInput 中输入40（度数），选择一个单选按钮，单击“计算”按钮，则根据所选择的单选按钮，计算出相应的正弦、余弦值（保留3位小数，第4位截去，π取3.14159），并显示在txtResult中。
    注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算，在txtInput中输入的必须是40，必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。
    程序源码：
    Private Sub Form_Unload(Cancel As
    Integer)
    mysub
    End Sub
    Sub mysub()
    For k% ＝0 To 1
    If  Form1.optFun(k).Value ＝
    True Then
    n% ＝ k%
    End If
    Next k%
    Open "out3.txt" For Output As
    #1
    Print  #1,  n%,  Form1.txtInput,
    Form1. _
    txtResult
    Close #1
    End Sub
    （2）在考生文件夹下有一个工程文件vbsj4.vbp，窗体上已经画出所有控件。如图1－250所示。在txtInput文本框中输入一个任意的字符串（要求串的长度≥10），然后选择组合框中的3个截取运算选项之一。单击“计算”按钮，将截取运算后的结果显示在txtResult 中。窗体文件中已经给出了程序，但不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。

    注意：不得修改已经给出的程序。最后把修改后的文件按原文件名存盘。
    程序源码：
    Dim is_num As Boolean
    Private Sub cmdCal_Click()
    Dim tmpStr As String * 50
    ’Select Case ?
    Case 0
    tmpStr＝
    Left(Trim(txtInput. _
    Text), 3)
    Case 1
    tmpStr＝
    Right(Trim(txtInput.
    Text), 3)
    Case 2
    ’tmpStr＝
    Mid(Trim(txtInput. _
    Text), ?)
    End Select
    ’txtResult.Text＝?
    End Sub
选项
答案第1小题 【操作步骤】 步骤1：打开考生文件夹中的本题工程文件vbsj3.vbp，程序界面如图2－13所示。 [*] 步骤2：依次选中窗体中的两个文本框，将其Alignment 属性值设置为1－Right Justify。 步骤3：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub cmdCal_Click() If optFun(0).Value = True Then txtResult.Text = Format(Sin(Val _ (txtInput.Text)*3.14159/180) -0.0005,"0.000") Else txtResult.Text = Format(Cos(Val _ (txtInput.Text)*3.14159/180) _ -0.0005,"0.000") End If End Sub 步骤4：按＜F5＞键运行程序，在左侧文本框中输入“40”，选择不同选项，单击“计算”按钮，结果如图2－14所示。 [*] 步骤5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Select Case cboLong.ListIndex tmpStr = Mid(Trim(txtInput.Text), 3, 4) txtResult.Text = tmpStr 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://jikaoti.com/ti/Tdm0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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