vb作业
来源:互联网 发布:人人贷网络借贷平台 编辑:程序博客网 时间:2024/05/16 02:14
关于这个Vb作业我想说的只是这是个什么鬼,每次上完课到了机房都一脸蒙逼得样子 根本不知道要干什么,留了好几次作业就今天的作业发表了,老师我真的不是故意的啊,毕竟上网密码忘了的孩子太命苦啊、、大哭大哭
(1)Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * (1000 - 1 + 1)) / 1
Sum = Sum + a(i)
Next i
Print Sum
End Sub
(2)Private Sub Command1_Click()
Dim i As Integer
Dim a(10) As Integer
Randomize
For i = 1 To 10
a(i) = Int(Rnd * (1000)) / 1
Sum = Sum + a(i)
Next i
Print Sum
End Sub
(3)Private Sub Command1_Click()
Cls
Dim n As Integer
Dim a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
s = 0
n = 1
While n <= 10
s = s + a(n)
n = n + 1
Wend
Print s
0 0
- VB作业
- VB作业
- VB作业
- VB作业
- vb作业
- VB作业
- VB作业
- VB作业
- vb作业
- vb作业
- VB作业
- vb作业
- VB作业
- vb作业
- VB作业
- VB作业
- vb作业
- vb作业
- Linux 设备驱动开发思想 —— 驱动分层与驱动分离
- Google Chrome源码剖析【序】
- java.sql.SQLException: [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
- icmp简介
- qt学习笔记可扩展对话框
- vb作业
- MySql5.7.11 for Windows 安装(二)
- DuiLib(9)——关于字体、html及默认属性
- 解析一个有关sizeof用法的题目--sizeof(i++)
- 应用程序无法正常启动(0xc000007b)
- CUDA编程(八)树状加法
- 二分 51Nod1686 第K大区间
- 害死人不偿命的(3n+1)猜想
- Hdu1533带权二分图的最小匹配