如何在数组中查找有无某个数vb编程
答案:1 悬赏:20 手机版
解决时间 2021-03-30 23:23
- 提问者网友：活着好累
- 2021-03-30 13:32
如何在数组中查找有无某个数vb编程
最佳答案
- 五星知识达人网友：低血压的长颈鹿
- 2021-03-30 14:20
假设a数组有10个元素。
much = Val(InputBox("请输入一个整数"))
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
low = 1: Top = 10
f = 0
Do
t = Int((Top + low) / 2)
If much = a(t) Then
f = 1
Else
If much > a(t) Then
low = t + 1
Else
Top = t - 1
End If
End If
Loop While (low < Top) And (f = 0)
If f = 1 Then
Text2.Text = a(t)
Else
Text2.Text = "该数不存在于数组中"
End If
much = Val(InputBox("请输入一个整数"))
For i = 1 To 9
For j = i + 1 To 10
If a(i) > a(j) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
low = 1: Top = 10
f = 0
Do
t = Int((Top + low) / 2)
If much = a(t) Then
f = 1
Else
If much > a(t) Then
low = t + 1
Else
Top = t - 1
End If
End If
Loop While (low < Top) And (f = 0)
If f = 1 Then
Text2.Text = a(t)
Else
Text2.Text = "该数不存在于数组中"
End If
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯