在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的,请在有“”的地方填入正确内容,然后删除“”及代码前的所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文
件夹,如右图所示。
在名称为Form1的窗体上有3个Labe1控件、两个Text控件和两个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。刚启动时,可以在输入框内输入任意自然数(n值太大时,运算时间将很长,建议不超过4位)。当输人为非数值时,累加结果为0;单击“开始”按钮可以在Text2中显示累加和。同时“开始”变为“完成”并变灰;单击“关闭”按钮结束程序的运行。
参考答案:要计算累加和通常利用For循环来完成。文本框中的内容(包括数字)默认都是当做字符串来处理的,如果要参与数据运算,则需先用Val()函数将其转化为数字。
根据题意,将3个标签、两个命令按钮和两个文本框控件添加到窗体中,标签的Caption属性分别为“要求:程序能得到结果total,total=1+2+3+….+n”、“输入n(0<n<=9999)”和“结果是”,命令按钮的名称分别为Command1和Cornmand2,Caption属性分别为“开始”和“关闭”,文本框的名称分别为Text1和Text2,Text属性都为空。双击Command1进入代码编写窗口,补充后的具体代码如下:
Private Sub Command1_Click() ’开始命令按键
Dim i As Integer
Dim total As Long
n=Val(Text1.Text) ’获得n
total=0
For i=1 To n
total=total+i ’累加
Next i
Text2.Text=total
Command1.Enabled=False ’完成后Command1不可用
Command1.Caption="完成" ’名称改为完成
End Sub
Private Sub Command2_Click() ’关闭命令按键
Unload Me
End Sub
单击
按钮运行程序,并按要求保存。