又一次作业
2016-04-07 16:51
302 查看
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
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
相关文章推荐
- 作业作业
- leetcode笔记:Invert Binary Tree
- bash配置文件/etc/profile,/etc/bashrc,~/.bash_profile,~/.bashrc详解及修改PATH环境变量
- Java 常量池
- Spark应用执行机制
- 牛人整理分享的面试知识:操作系统、计算机网络、设计模式、Linux编程,数据结构总结
- opencv第一堂 - 环境配置
- 友盟iOS推送配置(从真机调试到推送)
- 激活函数
- UIBarButtonItem系统默认风格形状
- 华丽的分割线
- Android File(二) File下载以及解压
- Android官方开发文档Training系列课程中文版:分享文件之分享一个文件
- 文章标题测试
- cookie存取
- 【面试/笔试】—— 数学
- 菜鸟成长记-QQ列表展示、UITableView强化
- 进程 、进程组、会话、控制终端之间的关系 (转载 http://blog.csdn.net/yh1548503342/article/details/41891047)
- window安装mysql5.7.11
- 责任型模式之Proxy(代理)模式