快期末了，看看自己一个学期都学了点啥。。。。。。
Private Sub Command1_Click()
ClsFont.Size = 70
Dim i As Integer
Dim a(10) As Integer
Dim sun As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
sun = sun + a(i)
Next i
Print sun
End Sub
对9种方法的十个数求和的总结
最新推荐文章于 2023-12-06 17:37:20 发布
Font.Size = 70
Dim i As Integer
Dim a(10) As Integer
Dim sun As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * 1000) + 1
sun = sun + a(i)
Next i
Print sun
End Sub
8752
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
