2. 计算机
  3. (1)在考生文件夹下有工程文件sj3．vbp与窗体文件sj3．frm，该程序和窗体是不完整的。请在窗体上设置一个标签，名称为Labell，标题为“计算1／2-1／3+1／4-1／5+1／6的值”；另设一个文本框与一个命令按钮。命令按钮的名称为Command

(1)在考生文件夹下有工程文件sj3．vbp与窗体文件sj3．frm，该程序和窗体是不完整的。请在窗体上设置一个标签，名称为Labell，标题为“计算1／2-1／3+1／4-1／5+1／6的值”；另设一个文本框与一个命令按钮。命令按钮的名称为Command

admin2010-07-13  58
问题 (1)在考生文件夹下有工程文件sj3．vbp与窗体文件sj3．frm，该程序和窗体是不完整的。请在窗体上设置一个标签，名称为Labell，标题为“计算1／2-1／3+1／4-1／5+1／6的值”；另设一个文本框与一个命令按钮。命令按钮的名称为Commandl、标题为“计算”；文本框的名称为Textl，用于显示结果，并初始化为空。然后编写相应的代码，要求运行程序时，单击“计算”按钮，程序可以计算出1／2-1／3+1／4-1／5+1／6的值，并将结果显示在文本框中，如图26—3所示。
    注意：考生完成程序编写后，将工程文件与窗体文件按原文件名保存到考生文件夹下，不得更改程序的其他部分，否则可能无成绩。
    (2)新建一个工程文件，在名称为Forml的窗体上建立两个名称分别为Commandl和Command2、标题分别为“平均分”和“清空”的命令按钮；一个名为Textl的文本框。要求程序运行后，单击“平均分”按钮，可通过输入对话框输入7个整数，去掉最大的和最小的然后求平均分，将结：果在文本框中显示出来。如果单击“清空”按钮，则将文本框清空。在程序中不得使用任何其他变量。程序运行时的窗体界面如图26—4所示。

注意：保存时必须存放在考生文件夹下，窗体文件名为sj4．frm，工程文件名为sj4．vbp。
选项
答案(1)根据题意，将一个Label控件，一个Text控件和一个Command控件添加到窗体上，Label的Caption属性为“计算1／2-1／3+1／4-1／5+1／6的值”，Text的名称分别为Textl，Text属性为空，Command的名称为Commandl，Caption属性为“计算”。双击Commandl命令按钮，编写如下代码： Private Sub Commandl_Click() Dim total AS Double Dim n As Integer Dim a As Integer total=0 a=-1 For i=1 To 5 a=a*(-1) total=total+a／(i+1) Next i Textl．Text=total Open"App．Path&＼out3．txt"For Output As#1 Pnt#1，Textl．Text Close 1 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)根据题意，新建“标准EXE”工程，在窗体上添加一个Text控件和两个Command控件，Text的名称为Textl、Text属性为空，Command的名称分别为Commandl和Command2，Caption属性分别为“平均分”和“清空”。双击Commandl命令按钮，编写如下代码： Dim a(7)As Integer Private Sub Commandl Click() Dim i As Integer For i=1 To 7 a(i)=Val(InputBox("请输入第"+CStr(i)+"个得分")) Next i For i=1 To 7 ’降序排列 temp=a(i) For j=1 To i If a(j)
解析
转载请注明原文地址:https://kaotiyun.com/show/YLmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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