问答题
在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm，该程序是不完整的，请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即'号)，但不能修改其他部分。存盘时不得改变文件名和文
件夹，如右图所示。
在名称为Form1的窗体上有3个Labe1控件、两个Text控件和两个命令按钮。该程序的主要功能是求从1到Text1中用户输入的任意自然数n的累加和。刚启动时，可以在输入框内输入任意自然数(n值太大时，运算时间将很长，建议不超过4位)。当输人为非数值时，累加结果为0；单击“开始”按钮可以在Text2中显示累加和。同时“开始”变为“完成”并变灰；单击“关闭”按钮结束程序的运行。
件夹，如右图所示。
在名称为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
单击
根据题意，将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
单击
【答案解析】