admin 管理员组文章数量: 1184232
2024年3月28日发(作者：oracle如何创建实例)
数组的应用例题
1. 输入10个数，并反序输出。
Private Sub Command1_Click()
Dim a(10) As Integer, i As Integer
For i = 1 To 10
a(i) = Val(InputBox("输入a(" & i & ")=", "输入"))
Print a(i);
Next i
For i = 10 To 1 Step -1
Print a(i);
Next i
End Sub
2. 随机产生100个元素，并求其最大值。
Option Base 1
Private Sub Command1_Click()
Dim a(100) As Integer, max As Integer
Dim i As Integer
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 1000)
Next
For i = 1 To 100
Print a(i);
Next
max = a(1)
For i = 2 To 100
If max < a(i) Then
max = a(i)
End If
Next
Print "最大值是："; max
End Sub
3. 在一维数组中查找满足条件（元素能被4整除）的所有元素及其个数。
分析：遍历一维数组所有元素的过程中，判断每个元素是否满足条件，如满足条件则使得
n=n+1并输出。
Private Sub Command1_Click()
Dim a(1 To 100) As Integer, n As Integer
Dim i As Integer
Randomize
For i = 1 To 100
a(i) = Int(Rnd() * 1000)
Next
n = 0
For i = 1 To 100
If a(i) Mod 4 = 0 Then
n = n + 1
= & "," & a(i)
End If
Next
End Sub
4、从键盘上任意输入三个整数a、b、c，并按从大到小的顺序显示出来。
Private Sub Form_Click()
Dim a%, b%, c%, t%
a = Val(InputBox("请输入a:"))
b = Val(InputBox("请输入b:"))
c = Val(InputBox("请输入c:"))
Print "排序前："; a; " "; b; " "; c
If a < b Then
t = a: a = b: b = t
End If
If a < c Then
t = a: a = c: c = t
End If
If b < c Then
t = b: b = c: c = t
End If
Print "排序后："; a; " "; b; " "; c
End Sub
5.、利用冒泡法为一维元素的6个随机产生的数按从小到大排序并输出。
分析：6个元素要比较5次，也就是说n个元素，比较的步骤要做n-1次，同时在第M步中
比较次数为n-m。
Private Sub Form_Click()
Dim a(5) As Integer
Dim i%, j%, t%
Print "排序前的各元素值：";
For i = 0 To 5
a(i) = Int(Rnd() * 99)
Print a(i); ",";
Next i
For i = 0 To 4
For j = 0 To 4 - i
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
版权声明：本文标题：数组的应用例题 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711555413a599764.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论