VB作业1
来源:互联网 发布:简单编程代码 编辑:程序博客网 时间:2024/05/17 23:46
第一次写VB作业,之前在课堂上不会做,墨迹半天就下课了,作业不知道该怎么写。这次终于写了第一次作业,有开始就有接下来,所以以后好好认真写每一次作业!
Private Sub Command1_Click()
Cls
Font.Size = 20
Dim n As Integer
Dim sierdun(15) As Integer
n = 1
While n <= 15
sierdun(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 15
Print sierdun(n)
n = n + 1
Wend
End Sub
0 0
- VB作业1
- VB作业1
- VB作业1
- VB程序设计实验作业(1)
- VB作业
- VB作业
- VB作业
- VB作业
- vb作业
- VB作业
- VB作业
- VB作业
- vb作业
- vb作业
- VB作业
- vb作业
- VB作业
- vb作业
- 免安装PL/SQL无法连接本地ORACLE数据库解决方法
- NFS中的soft mount和 hard mount以及silent data corruption
- 对JScrollPane的使用
- 玩过hadoop,hive的你们可以回顾回顾
- C++算法标准库常用算法
- VB作业1
- oracle数据库密码过期怎么办
- 点击EditText外的组件隐藏软键盘
- update the gedit for php programming(searched not try yet)
- Android 自定义View高级特效,神奇的贝塞尔曲线
- 最大字段和问题
- hql多条件查询的拼接
- kaptcha验证码的简单使用及配置
- 100M网线为什么要用8根线?