<p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。</span></p><p style="line-height:27px"><img src="https://file.gaojiufeng.cn/learnAppQuestion/ed/3e/ed3e9b1d2496064628d82af9f967bacd.jpg" style="width: 100%;height: auto;"><span style="font-family: 微软雅黑; font-size: 14px;"> </span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Private Sub Form_Load()</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Dim I As Integer</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;"> </span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">For i=1 To 200</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">If(1)___________=0 Then</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">List1. AddItem i</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">End If</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Next</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">End Sub</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Private Sub Command1_(2)__________()</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Dim i, sum As Integer</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;"> </span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Sum=0</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">For i=0 To(3)_________</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Sum=sum+List1.List(i)</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Next</span></p><p style="line-height:27px"><span style="font-family: 微软雅黑; font-size: 14px;">Text1.Text=sum</span><span style="font-family: 微软雅黑; font-size: 14px;">End Sub</span><br><br>窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。</p>