5.2016 物电学院 电气工程及其自动化专业 辛雅松 15050341033
来源:互联网 发布:php链接mysql数据库 编辑:程序博客网 时间:2024/04/30 03:59
十个随机变量的求和——九种方法
1
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
2
Dim i As Integer, a As Integer, sum As Integer
Private Sub Command1_Click()
Cls
sum = 0
For i = 1 To 10 Step 1
Randomize
a = Int(Rnd * 1000)
sum = sum + a
Next
Print “和为” & sum
End Sub
3
Private Sub Command1_Click()
Cls
Dim n As Integer, sum As Integer, a(10) As Integer
n = 1
While n <= 10
a(n) = Int(Rnd * 1000)
n = n + 1
Wend
For Each t In a
s = s + t
Next
Print s
End Sub
4
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do While i <= 10
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
Print “和为” & sum
End Sub
5
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do Until i > 10
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
Print “和为” & sum
End Sub
6
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop While i <= 10
Print “和为” & sum
End Sub
7
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
i = 1
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop Until i > 10
Print “和为” & sum
End Sub
8
Private Sub Command1_Click()
Cls
Print f(10)
End Sub
Private Function f(x As Integer) As Long
If x = 1 Then
f = x
Else
f = x + f(x - 1)
End If
End Function
9.运算不出来——求大神解
Private Sub Command1_Click()
Cls
Dim i As Integer, a As Integer, sum As Integer
sum = 0
i = 1
Do
Randomize
a = Int(Rnd * 1000)
sum = sum + a
i = i + 1
Loop
Print “和为” & sum
End Sub
- 5.2016 物电学院 电气工程及其自动化专业 辛雅松 15050341033
- 4.2016物电学院 电气工程及其自动化专业 辛雅松 15050341033
- 1.2016年 物电学院 电气工程及其自动化专业 辛雅松 15050341033
- 2.2016年 物电学院 电气工程及其自动化专业 辛雅松 15050341033
- 3.2016年 物电学院 电气工程及其自动化专业 辛雅松 15050341033
- 物电学院 电气工程及其自动化专业 邢英健 15050341034
- 6.2016.物电学院 电气工程及其自动化 辛雅松 15050341033
- 7.2016.物电学院 电气工程及其自动化 辛雅松 15050341033
- 8.2016 物电学院 电气工程及其自动化 辛雅松 15050341033
- 物电 电气工程及其自动化 邢英健 15050341034
- 9.2016.物电学院 电气一班 辛雅松 15050341033
- 电气工程专业工作选择排序
- 2015届电气工程及其自动化2班 熊伟 15050342031 3月2日
- :400+考研 北京航空航天大学3系自动化科学与电气工程学院933控制工程综合资料合辑
- 自动化学院
- 机械设计制造及其自动化专业的前景与出路
- javascript学院专业
- 全国高等教育自学考试电力系统及其自动化专业 (专科)“计算机基础与程序设计”课程考试说明
- Android自定义控件之日历控件
- java回调函数简式
- (9)
- 这些小工具让你的Android 开发更高效(下)
- php 求正班工作日的小算法2
- 5.2016 物电学院 电气工程及其自动化专业 辛雅松 15050341033
- Audio Session Programming Guide(官方文档翻译一)
- c++第3次作业
- FFMpeg的码率控制 - CBR or VBR
- 进程间通信方式之管道
- hdu1058 Humble Numbers && hdu3199 Hamming Problem(简单dp)
- 真机调试时eclipse报错:adb rejected install command with: device offline
- Android Webview upload 图片上传
- vb