作业帮 > 数学 > 作业

VB顺序法查出数列中所有相同的数

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/11/05 21:50:15
VB顺序法查出数列中所有相同的数
Option Base 1
Private Sub Form_load()
Dim a(10) As Integer '假设为10个元素的数组
a(1) = 2: a(2) = 3: a(3) = 2: a(4) = 4: a(5) = 5:a(6)=6:a(7)=7
a(8)=8:a(9)=9:a(10)=10: 假设相同的数是2
For i = 1 To 10
If a(i) = 2 Then
Print "所有相同的数分别是:"
print i; a(i)
End If
Next i

End Su