10个数
来源:互联网 发布:西科软件实习骗局 编辑:程序博客网 时间:2024/04/26 15:24
1.首先打开VB6.0
2.在窗体的适当位置创建一个commandbutton,并在其属性窗口中将caption改为“生成数”。
3.在窗体中双击“生成数”,并在弹出的对话框中输入代码。
代码如下:
Private Sub Command1_Click()
Cls
Dim n As Integer
Dim wzs(10) As Integer
n = 1
While n <= 10
wzs(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print wzs(n)
n = n + 1
Wend
End Sub
0 0
- 10个数
- 10个数的比较
- 随机生成10个数
- 随机生成10个数
- 判断10个数大小
- 随机生成10个数
- 10个数的比较
- 随机生成10个数
- 10个数的比较
- 逆向输出10个数
- 10个数及格
- 10个数求最大
- 实现10个数排列
- 10:字符个数统计
- 10个数的平均值
- 10: 判决素数个数
- 个数
- 100个数中除以10后,等于i的个数
- 用Trie树统计以给定字符串为前缀的单词个数
- 浅谈JAVA中的日志文件
- 多位数乘两位数乘法
- c# 委托学习文档
- javascript里面的object详解
- 10个数
- AYITACM2016省赛第一周(深搜+队列) A - 连连看
- Android4.4 系统移植问题备忘
- 替换空格
- 《CLR via C#:框架设计》读书笔记 - CLR
- access数据库中密码为空的问题
- 使用StarUML创建类图
- 1
- 逻辑回归函数Softmax()