对任意10个随机数求和(3)
来源:互联网 发布:速达软件数据库密码 编辑:程序博客网 时间:2024/04/30 15:15
打开vb
在左侧找到commmand图标,然后再form区域中适当位置创建,双击图标,
在弹出的表框中输入以下代码:(将command修改为求和)
Dim sum As Integer
Dim i As Integer
Dim a As Integer
Private Sub Command1_Click()
sum = 0
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop While i <= 10
MsgBox "10个随机数和为:" & sum
End Sub
0 0
- 对任意10个随机数求和(3)
- 对10个随机数求和(5)
- 对任意10个数字求和(6)
- 对任意10个数字求和(2)
- 对任意十个数求和(3)
- 对任意随即10个数求和(4)
- 对任意随机10个数求和(1)
- 对任意随机10个数求和(1)
- 对任意10个数求和(6)
- 对任意十个数求和(4)
- 对任意十个数求和(5)
- 对任意数字求和(7)
- 对任意十个数求和
- CUDA学习笔记(2)对任意矢量长度求和
- 15电气李丹【10个随机数求和】
- 对任意长度的矢量求和
- 对任意十个数字求和(7)
- 输入任意10个数求和
- 对Handler的理解
- tomcat运行一段时间后,org.apache.jk.common.ChannelSock报错java.lang.IndexOutOfBoundsExcept
- tableView 折叠效果
- oracle锁概念 与 v$parameter字段介绍
- JNI - Getting Started
- 对任意10个随机数求和(3)
- swift 微信支付接口实现
- mongodb3.0.3集群分片搭建
- Android测试详解_1-Best Practices for Testing-介绍
- 正则表达式(适用于oracle及linux)
- 零基础myeclipse下springBoot+maven+thymeleaf的开发(1)
- 哈希表及哈希表查找相关概念
- 关于Xutils网络请求重试的问题
- openSession和getCurrentSession的比较