计算机作业8个
来源:互联网 发布:javascript鼠标跟随 编辑:程序博客网 时间:2024/05/16 07:27
上周的作业....记得写的挺久的
已经忘了
好了!!!就这样吧!
Private Sub Command1_Click()
Dim n 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
Sum = 0
n = 1
While n <= 10
Sum = Sum + a(n)
n = n + 1
Wend
Print Sum
End Sub
Private Sub Command1_Click()
Dim sum As Integer
Dim n As Integer
Dim a(10) As Integer
Randomize
For n = 1 To 10
a(n) = (Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
For n = 1 To 10
Print a(n)
Next n
End Sub
Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
For n = 1 To 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
Next n
Print sum
End Sub
Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do While n <= 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop
Print sum
End Sub
Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop While n <= 10
Print sum
End Sub
Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop Until n > 10
Print sum
End Sub
Dim n As Integer
Dim a(10) As Integer
Dim sum As Integer
Private Sub Command1_Click()
sum = 0
n = 1
Do Until n > 10
Randomize
a(n) = Int(Rnd * 1000)
sum = sum + a(n)
n = n + 1
Loop
Print sum
End Sub
Private Sub Command1_Click()
Me.FontSize = 55
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
- 计算机作业8个
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 计算机作业
- 关于安卓 上传下载的一些方法 网络 网络部分记得一定要在 线程中去启动
- springMVC 配置
- android6.0 adbd深入分析(五)adbd处理adb root的一个bug
- 15-电气-李少振 在VB中使用循环结构排序
- java毕向东听课笔记14(线程3)
- 计算机作业8个
- 心情好
- curosr 查询之查询本地电话
- Displaying Graphics with OpenGL ES(一)——构建一个OpenGL ES环境
- POJ1328 Radar Installation (区间选点问题,贪心)
- flink初体验及杂谈
- Android Service与Activity之间通信两种方式
- 近期的安卓学习开发SOS APP的一些总结文档 (拨打电话 加载首页图片的异步代码 判断是否有网络代码)
- ????????