随便取十个数1
来源:互联网 发布:淘宝店铺复制免费 编辑:程序博客网 时间:2024/06/08 14:22
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语言程序,我在上机课的时候操作出来了,但是由于那时候进不了,所以就没有写博客,现在补回来了。只是缺少了图片。
0 0
- 随便取十个数1
- 十个数取最小值
- 数组中取十个互不相同的数
- 数组中取十个互不相同的数
- 方格取数(1)
- 方格取数(1)
- 随便取10 个数2
- 随便取10 个数3
- 随便取10 个数4
- hdu_1565_方格取数(1)
- U - 方格取数(1)
- HDU_1565_方格取数(1)
- hdu1565 方格取数(1)
- 【HDU1565】方格取数1
- 方格取数(1) HDU
- 随机生成十个数
- 随机生成十个数
- 比较十个数大小
- 出栈序列的合法性
- 打印蛇形数组——两种结构
- 第三次上机作业
- CF 346 B vector<pair> s[100]
- 整理Ruby相关的各种概念(rvm, gem, bundle, rake, rails等)
- 随便取十个数1
- 【推荐】可查找下载和上传动漫外挂字幕网站
- MaterialDesign之NavigationView和DrawerLayout实现侧滑菜单栏
- LeetCode *** 58. Length of Last Word
- LeetCode 25 reverse-nodes-in-k-group
- shell 之 for 循环
- iOS Md5编码
- Android 修改adb端口
- HDOJ-1695 GCD