(1)新建一个工程文件，在窗体上绘制一个标签，名称为Labell，标题为“计算1／2+2／3+3／4+4／5+…+(n-1)／n的值”；另设两个文本框与一个命令按钮。命令按钮的名称为Commandl，标题为“计算”；文本框的名称分别为Textl和Text2，分别为输入n和显示结果，内空。要求运行程序时，单击“计算”按钮，程序可以计算出1／2+2／3+3／4+4／5+…+(n-1)／n的值，并将结果显示在文本框中。程序运行时的窗体界面如图24—3所示。 注意：考生完成程序编写后，将工程文件与窗体文件保存到考生文件夹下，文件名分别为sj3．Vbp与sj3．frm。 (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm。该程序是不完整的。打开该工程文件，在窗体上绘制两个名称为Textl和Text2的文本框，一个名称为Labell标题为“总和”的标签，一个名称为Commandl标题为“计算”的命令按钮。程序运行后，如果单击“计算”按钮，则把30～120之间能够被3和5同时整除的数添加到Textl中，并对Textl中的数据进行累加求和，在文本框Text2中显示计算结果，如图24—4所示。
【正确答案】正确答案： (1)对于一个有规律数列的累加，可通过For循环语句来实现。含循环变量i的表达式：(i-1)／i或i／(i+1)能依次表示数列中的各个数。 根据题意，新建“标准EXE”工程，将一个标签、一个命令按钮和两个文本框控件添加到窗体中，标签的名称为Labell、Caption属性为“计算1／2+2／3+3／4+4／5+…+(n-1)／n的值”，命令按钮的名称为Commandl、Caption属性为“计算”，文本框的名称分别为Textl和Text2、Text属性分别为空和Text2。双击Commandl进入代码编写窗口，编写如下代码： Private Sub Commandl_Click() Dim n As Integer Dim total As Double Dim i As Integer'循环计数 n=Val(Textl．Text) '从Textl中读取n total=0'初始化结果为0 For i=2 To n'从1／2开始计算，所以i=2 total=total+(i-1)／i'利用For循环计算结果 Next 1 Text2．Text=total'将结果显示在Text2中 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将两个文本框控件和一个命令按钮添加到窗体中，文本框的名称分别为Textl和Text2、Text属性都为空，Textl的MultiLine属性为True、ScrollBar属性为2；命令按钮的名称为Commandl、Caption属性为“计算”。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim total As Long Dim i As Integer Dim str AS String str="" total=0 For i=30 To 120'检测30～120之间的数 If i Mod 3=0 And i Mod 5=0 Then'是否能被3和5同时整除 total=
total
+i'计算符合条件的数的总和 str=str+CStr(i)+vbCrLf'将符合条件的放人字符串中，vberlf为换行 End If Next i Textl．Text=str'将符合要求的数显示在Textl中 Text2．Text=
total
'将总和显示在Text2中 End Sub 单击
按钮运行程序，并按要求保存。 (2)根据题意，将两个文本框控件和一个命令按钮添加到窗体中，文本框的名称分别为Textl和Text2、Text属性都为空，Textl的MultiLine属性为True、ScrollBar属性为2；命令按钮的名称为Commandl、Caption属性为“计算”。双击Commandl进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim total As Long Dim i As Integer Dim str AS String str="" total=0 For i=30 To 120'检测30～120之间的数 If i Mod 3=0 And i Mod 5=0 Then'是否能被3和5同时整除 total=
total
+i'计算符合条件的数的总和 str=str+CStr(i)+vbCrLf'将符合条件的放人字符串中，vberlf为换行 End If Next i Textl．Text=str'将符合要求的数显示在Textl中 Text2．Text=
total
'将总和显示在Text2中 End Sub 单击
【答案解析】