VB 随机生成10个 1-100之间的数。求10数的和

作者: | 日期: 2010 年 09 月 27 日 | 围观: 9877次+ 发表评论 (0) 查看评论

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer
Dim sum As Integer, strpj As Integer
For i = 1 To 10
suiji = Int(100 * Rnd + 1)
Print suiji
a(i) = suiji
sum = sum + a(i)
Next i
Print ,
Text1.Text = sum
End Sub

－　ＴＨＥ　ＥＮＤ　－
版权声明:
转载原创文章请注明,文章出处：//kinggoo.com
原文地址：https://kinggoo.com/chengxu-vb-suijiqiuhe.htm
Category: Vbs
Tag: ,
发表评论？

0 条评论。

发表评论


此站点使用Akismet来减少垃圾评论。了解我们如何处理您的评论数据。