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

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

admin2019-06-11  60
问题 （1）在考生目录下有一个工程文件vbsj3.vbp，包含了所有控件和部分程序，如图1－239所示。

    要求：①利用属性窗口设置适当的属性，使txtInput、txtResult 中数据右对齐；②请编写适当的程序完成以下功能：在txtInput 中输入40（度数），选择组合框中的一个项目，单击“计算”按钮，则根据所选择的项目，计算出相应的正弦、余弦值（保留3位小数，第4位截去，π取3.14159），并显示在txtResult中。
    注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须进行一种计算；在中输入的必须是40；必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，按原文件名存盘。
    程序源码：
    Private Sub Form_Unload(Cancel As
    Integer)
    Call mysub
    End Sub
    Sub mysub()
    Open "out3.txt" For Output As
    # 1
    Print  # 1,  Form1.cboFun.Text,
    Form1. _
    txtInput.Text,
    Form1.txtOutput.Text
    Close #1
    End Sub
    （2）在考生文件夹下有一个工程文件vbsj4.vbp，相应的窗体文件为vbsj4.frm。在窗体上有一个命令按钮，其名称为cmdCal，标题为“计算”。程序运行后，如果单击命令按钮，程序将计算500以内两个数之间（包括开头和结尾的数）所有连续数的和为1250的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用“～”连接起来，如图1－240所示。该程序不完整，请把它补充完整。

    要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
    程序源码：
    Private Sub cmdCal_Click()
    Dim i As Integer, j As Integer,
    iSum _
    As Integer
    Print "连续和为1250  的正整数是："
    For i ＝ 1 To 500
    ’? ＝ 0
    For j ＝ i To 500
    ’iSum ＝ ?
    If iSum ＞＝ 1250 Then Exit
    For
    Next
    ’ If  iSum ＝ ? Then
    Print i; " ～ "; j
    End If
    Next
    End Sub
    Private Sub cmdCal_Click()
    Call mysub
    End Sub
    End Sub
选项
答案第1小题 【操作步骤】 步骤1：打开考生文件夹中的工程文件vbsj3.vbp，依次选中窗体中的两个文本框，将其Alignment 属性值设置为1－Right Justify。 步骤2：双击窗体中的“计算”命令按钮，在打开的代码编辑窗口中编写其单击事件过程。 参考代码： Private Sub cmdCal_Click() Select Case cboFun.Text Case "Sin" txtResult.Text = Int(Sin(Val _ (txtInput.Text)*3.14159/180) _ *1000)/1000 Case "Cos" txtResult.Text = Int(Cos(Val _ (txtInput.Text)*3.14159/180) _ *1000)/1000 End Select End Sub 步骤4：按＜F5＞键运行程序，在左侧文本框中输入“40”，选择不同选项，单击“计算”按钮。 步骤5：单击窗体右上角的关闭按钮以结束程序。 步骤6：按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： iSum = 0 iSum = iSum + j If iSum = 1250 Then 步骤2：按要求将文件保存至考生文件夹中。
解析
转载请注明原文地址:https://kaotiyun.com/show/3xUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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