5.2016 物电学院电气工程及其自动化专业辛雅松 15050341033

最新推荐文章于 2022-09-06 15:05:18 发布

原创最新推荐文章于 2022-09-06 15:05:18 发布 · 1k 阅读

CC 4.0 BY-SA版权

本文提供了使用VBScript实现十个随机整数求和的九种不同方法及一种函数递归求和方法。通过多种循环结构（如For、While、Do...Loop等）和ForEach循环演示了不同的编程技巧。

十个随机变量的求和——九种方法
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