8种交换
来源:互联网 发布:联合石油数据库 在哪看 编辑:程序博客网 时间:2024/06/08 06:53
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种交换
- 三种交换网络:电路交换 报文交换 分组交换
- TYZ 8/25 LJM 交换!交换!
- 计算机网络8--分组交换
- 交换
- 交换
- 交换
- 交换
- 交换
- 交换
- 交换
- 交换
- 交换函数几种写法
- 数据结构几种交换排序
- 交换变量三种方法
- 冒泡排序 3种交换
- 有关四种基本的交换技术(电路交换,报文交换,虚电路,数据包)
- 16bit数据高低8位交换的4种实现方法
- 练手
- vb14
- Mybatis中oracle、mysql、db2、sql server的like模糊查询
- 剑指offer-面试题44:扑克牌的顺子
- 【目标检测】Faster RCNN算法详解
- 8种交换
- vb
- Angluar中Controller之间通信方法
- STM32系列第32篇--NRF24L01无线通信
- 使用 Spring Data JPA 简化 JPA 开发
- 数据结构:hash_map原理
- Spring中拦截/和拦截/*的区别 - 不能访问到返回的JSP - 访问静态资源(jpg,js等)
- oracle中的decode的使用
- RecyclerView中的坑RecyclerView$LayoutManager.stopSmoothScroller()报错