首页 > 其他 > 详细

随便取十个数1

时间:2016-04-10 14:30:37      阅读:218      评论:0      收藏:0      [点我收藏+]

Private Sub comman1 -Click()

Dim i As Integer

Dim a(10) As Integer

Dim sum As Integer

Randomize

For i=1 To 10

a(i)=Int(Rnd*1000)+1

sum=sum+a(i)

Next i

Print sum

End Sub

这是我做随便取十个数的第一个VB语言程序,我在上机课的时候操作出来了,但是由于那时候进不了,所以就没有写博客,现在补回来了。只是缺少了图片。技术分享技术分享技术分享技术分享技术分享技术分享技术分享技术分享技术分享技术分享

 

 

 

随便取十个数1

原文:http://blog.csdn.net/chen15050441003/article/details/51111641

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!