![[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E7%AA%97%E4%BD%93%E4%B8%8A%E6%9C%89%E4%B8%80%E4%B8%AA%E5%90%8D%E7%A7%B0%E4%B8%BAList1%E7%9A%84%E5%88%97%E8%A1%A8%E6%A1%86%EF%BC%8C%E4%B8%80%E4%B8%AA%E5%90%8D%E7%A7%B0%E4%B8%BAText1%E7%9A%84%E6%96%87%E6%9C%AC%E6%A1%86%EF%BC%8C%E4%B8%80%E4%B8%AA%E5%90%8D%E7%A7%B0%E4%B8%BALabe11%E3%80%81+Caption%E5%B1%9E%E6%80%A7%E4%B8%BA%26amp%3Bquot%3BSum%26amp%3Bquot%3B%E7%9A%84%E6%A0%87%E7%AD%BE%EF%BC%8C%E4%B8%80%E4%B8%AA%E5%90%8D%E7%A7%B0%E4%B8%BACommand1%E3%80%81%E6%A0%87%E9%A2%98%E4%B8%BA%E2%80%9C.png "[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“,第1张")
[填空题] 窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。
Pfivate Sub Form_Load()
Fori=1 To 100
If iMod7=0 Then
[6]
End If
Next
End Sub
Private Sub Commandl_Crick()
Sum=0
Fori=0 To List1.List Count-1或14
Sum=Sum+ [7]
Next
Textl:Text=Sum
End Sub
正确答案：Ust1.List(i)或Val(Listl.List(i))或CInt1(List1.ist(0)
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）