窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。 Private Sub Form_Load() Dim I As Integer For i=1 To 200 If(1)___________=0 Then List1. AddItem i End If Next End Sub Private Sub Command1_(2)__________() Dim i, sum As Integer Sum=0 For i=0 To(3)_________ Sum=sum+List1.List(i) Next Text1.Text=sumEnd Sub （1）I Mod 13=0（2）Click（3）List1.ListCount-1 扫描二维码免费使用微信小程序搜题/刷题/查看解析。 版权声明：本文由翰林刷题小程序授权发布，如需转载请注明出处。
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Label1、Caption属性为"Sum"的标签，一个名称为Command1、标题为"计算"的命令按钮。程序运行后，将把1～200之间能够被13整除的数添加到列表框。单击"计算"按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如题29图所示。