15电气2班徐立立(两位数乘以一位数)
2016-04-21 16:39
387 查看
在通用中编译
Dim sum As Integer
Dim i As Integer
Dim a As Integer
在command1中编译
第一种:
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Loop
End Sub
第二种
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i=i+1
Next
MsgBox "10个随机数和为:" & sum
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
End Sub
第三种
i = 1
Do Until i > 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
第四种
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop While i <= 10
MsgBox "10个随机数和为:" & sum
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为:" & sum
End Sub
第五种
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer
Dim 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
Dim t As Integer
For Each t In a
s = s + t
Next
Print s
End Sub
注:for each 数组的控件变量是变体
六:
Private Sub Command1_Click()
Cls
Font.Size = 70
Print f(100)
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
Dim sum As Integer
Dim i As Integer
Dim a As Integer
在command1中编译
第一种:
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Next
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
MsgBox "10个随机数和为:" & sum
Loop
End Sub
第二种
Private Sub Command1_Click()
sum = 0
For i = 1 To 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i=i+1
Next
MsgBox "10个随机数和为:" & sum
Do While i <= 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
End Sub
第三种
i = 1
Do Until i > 10
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop
MsgBox "10个随机数和为:" & sum
第四种
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop While i <= 10
MsgBox "10个随机数和为:" & sum
i = 1
Do
Randomize
a = Int(1000 * Rnd)
sum = sum + a
i = i + 1
Loop Until i > 10
MsgBox "10个随机数和为:" & sum
End Sub
第五种
Private Sub Command1_Click()
Cls
Dim n As Integer, s As Integer
Dim 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
Dim t As Integer
For Each t In a
s = s + t
Next
Print s
End Sub
注:for each 数组的控件变量是变体
六:
Private Sub Command1_Click()
Cls
Font.Size = 70
Print f(100)
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
相关文章推荐
- 创建app前的环境配置/AppIcon/启动图片
- CRectTracker类的使用
- ios——MPMoviePlayerController截取视频缩略图 播放视频又可以截取视频缩略图
- 苹果自带输入法评价
- python os.listdir按文件存取时间顺序列出目录
- 阿里巴巴2016算法岗实习招聘(西安)在线笔试整理
- web图片点击全屏jquery
- 你懂得!新的一周开始了
- Turtlebot学习指导第四篇_使用robot_pose_ekf包,EKF(扩展卡尔曼滤波器)对机器人位置进行校正
- iOS class_addMethod使用
- 小米路由器登陆以及切换wan账户脚本
- RabbitMQ学习之基于spring-rabbitmq的RPC远程调用
- 拓扑排序+DFS(POJ1270)
- c++11 auto
- http协议详解
- 阻止表单提交按钮多次提交
- 这样吃饭,其实是在喂养身体里的“癌细胞”
- 编写代码遇到的问题
- 七、备忘录模式Memento(行为型模式)
- AVL树原理通俗解释与例子