[问答题] 在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有“”的地方填入正确内容，然后删除“”及代码前的所有注释符(即’号)，但不能修改其他部分。存盘时不得改

[问答题] 在考生文件夹下有工程文件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 单击按钮运行程序，并按要求保存。

问题解析:

解析无