(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在名称为Forml的窗体上有一个标题为“求n以内(包括n)所有奇数的和”的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数n的奇数的累加和。本题要求刚启动工程时，“计算显示”和“清空”按钮均为灰色，可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过9位)。在输入数的同时“计算显示”变为可用；当输入数后，“计算显示”变为禁用；当输入为非数值时，累加结果为o。单击“计算显示”可以在Textl中显示累加和，同时“计算显示”变灰，“清空”变为可用。单击“清空”按钮，输入框和显示框均被清空。如图19—3所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序与控件结构是不完整的。本题描述如下：在窗体中有一个文本框控件，名称为Textl；两个命令按钮，名称分别为Commandl和Command2、标题分别为“读取文本”、“统计字数”；一个名称为Labell的标签控件。要求程序运行后，单击Commandl将考生文件夹下的sjin．txt的内容显示到Textl中；单击“统计字数”按钮统计Textl中有多少个字符，将结果显示在Labell中。 程序运行时的窗体界面如图19—4所示。
【正确答案】正确答案：(1)命令按钮的Enabled属性用于设置其是否有效，值为True表示有效，值为False表示无效；判断一个数是否为奇数可以用Mod运算符来实现。如对于一个数n，若n Mod 2=0。则此数不是奇数，否则就是奇数。 根据题意，4个命令按钮、一个文本框控件和一个标签，命令按钮的名称分别为Commandl、Command2、Command3和Command4，Caption属性分别为“输入n”、“计算显示”、“清空”和“关闭”，文本框的名称为Textl，标签的Caption属性为“求n以内(包括n)所有奇数的和”。双击Commandl进入代码窗口，编写如下代码： Dim n As Integer Dim total As Long Private Sub Commandl_Click() n=Val(InputBox("请输入n：")) '在输入对话框中输入n Command2．
Enabled
=True '"计算显示"可用 End Sub Private Sub Command2_Click() Dim i As Integer Dim tmp As Integer total=0 If n
Mod
2=0 Then'判断是否为奇数 tmp=n-1'如果是偶数则减1 Else tmp=n'如果是奇数则是其本身 End If For i=1 To n Step 2 '步长为2
total=total+i
'进行求和 Next i Textl．
Text
=total'在Textl中显示结果 Command3．
Enabled
=True '"清空"可用 Command2．
Enabled
=False'"计算显示"不可用 End Sub Private Sub Command3_Click() Textl．
Text
="" '清空Textl中显示的数据 Command3．
Enabled
=False '"清空"不可用 End Sub Private Sub Command4_Click() Unload Me'关闭窗口 End Sub Private Sub Form_Load() Command2．
Enabled
=False'"计算显示"不可用 Command3．
Enabled
=False '"清空"不可用 End Sub 单击
按钮运行程序，并按要求保存。 (2)打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取；FileNumber为打开文件时指定的句柄。Input#语句用于读取打开的顺序文件中一项(或多项)内容给一个变量(或多个变量)，Line Input#语句常用于按行读取。Close#语句用于关闭打开的文件。 根据题意，将一个文本框控件、一个标签和两个命令按钮添加到窗体中，文本框的名称为Textl，标签的名称为Labell、Caption属性为空，命令按钮的名称为分别为Commandl和Command2、Caption属性分别为“读取文本”和“统计字数”。双击Commandl进入代码窗口，编写如下代码： Dim rel As String Private Sub Commandl_Click() Dim str As String str="" Textl．Text=""'初始化Textl的文本 Open"App．Pathg&＼sjin．txt"For
Input As#1
'打开文件，进行读取 While
EOF(1)=False
'判断文件是否读取完 Input#1，str'读取文本 Textl．
Text
=Textl．
Text
+str '在Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Labell．
Caption
="字数为"+
CStr(Len(Textl．Text))
'在Label中显示字数 End Sub 单击
按钮运行程序，并按要求保存。 (2)打开顺序文件的基本格式为：Open FileName For Mode As#FileNumber。FileName表示要打开的文件的路径；Mode为打开模式，OutPut用于输出、Append用于追加写入、Input用于读取；FileNumber为打开文件时指定的句柄。Input#语句用于读取打开的顺序文件中一项(或多项)内容给一个变量(或多个变量)，Line Input#语句常用于按行读取。Close#语句用于关闭打开的文件。 根据题意，将一个文本框控件、一个标签和两个命令按钮添加到窗体中，文本框的名称为Textl，标签的名称为Labell、Caption属性为空，命令按钮的名称为分别为Commandl和Command2、Caption属性分别为“读取文本”和“统计字数”。双击Commandl进入代码窗口，编写如下代码： Dim rel As String Private Sub Commandl_Click() Dim str As String str="" Textl．Text=""'初始化Textl的文本 Open"App．Pathg&＼sjin．txt"For
Input As#1
'打开文件，进行读取 While
EOF(1)=False
'判断文件是否读取完 Input#1，str'读取文本 Textl．
Text
=Textl．
Text
+str '在Textl中显示文本 Wend Close#1 End Sub Private Sub Command2_Click() Labell．
Caption
="字数为"+
CStr(Len(Textl．Text))
'在Label中显示字数 End Sub 单击
【答案解析】