任意十个数求和
2016-04-21 16:10
183 查看
打开VB,在form窗口中创建command的图标,然后双击图标;
输入以下代码:
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer, a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print a(n)
n = n + 1
Wend
s = 0
n = 1
While n <= 10
s = s + a(n)
n = n + 1
Wend
Print “和为”; s
End Sub
输入以下代码:
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer, a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
n = 1
While n <= 10
Print a(n)
n = n + 1
Wend
s = 0
n = 1
While n <= 10
s = s + a(n)
n = n + 1
Wend
Print “和为”; s
End Sub
相关文章推荐
- 赞助者名单
- 第一阶段站立会议3
- iOS 常用英语翻译
- APP更新名称
- jquery multiselect使用示例
- python 函数
- 剑指offer面试题 合并两个排序的链表
- lightoj 1016 - Brush (II) 【贪心】
- Sqoop MySQL 导入到Hive
- hdoj 5667 Sequence 【矩阵快速幂 + 费马小定理】
- 基于koa+fis3+swig前后端isomorphic同构实现
- Jade进阶使用
- mina bug
- 算法学习【7】常见排序算法
- Kafka背景及架构介绍
- centos6.3 安装redis-3.0.7
- hibernate总结
- FPGA第三篇:加法器
- Web渗透测试求职问答大全
- hdoj 5666 Segment 【二进制优化乘法】