(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm,该程序是不完整的。在名称为Forml的窗体上有一个标题为“求n以内(包括n)所有奇数的和”的Label控件、一个Text控件和4个命令按钮。该程序的主要功能是求从1到用户输入的任意自然数

admin2009-08-26  20

问题 (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 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/Yc1p777K
0

随机试题
最新回复(0)