(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所示。
【正确答案】正确答案:(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 单击
【答案解析】