level 6
流浪的小楠
楼主
单击生成数组随机 生 20 个数 ，显示在文本1 在文本2 输入一个数 单击查找在文本3 显示是第几个 若没有 则 在文本3显示 查询失败 。为什么我做的怎么查都是显示查询失败。
Public Class Form1
Dim a() As Integer
Dim n As Integer
Public i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
TextBox1.Clear()
ReDim a(20)
For i = 0 To 19
a(i) = Int(Rnd() * 101) Next
For i = 0 To 19
For j = i + 1 To 19
If a(i) > a(j) Then
n = a(i)
a(i) = a(j)
a(j) = n
End If
Next
Next For i = 0 To 19
TextBox1.Text &= a(i) & " "
Next
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To 19
If a(i) = TextBox2.Text Then TextBox3.Text = i + 1
Else
TextBox3.Text = "查询失败" End If
Next
End Sub
End Class
2013年06月21日 01点06分
1
Public Class Form1
Dim a() As Integer
Dim n As Integer
Public i As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
TextBox1.Clear()
ReDim a(20)
For i = 0 To 19
a(i) = Int(Rnd() * 101) Next
For i = 0 To 19
For j = i + 1 To 19
If a(i) > a(j) Then
n = a(i)
a(i) = a(j)
a(j) = n
End If
Next
Next For i = 0 To 19
TextBox1.Text &= a(i) & " "
Next
End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i As Integer
For i = 0 To 19
If a(i) = TextBox2.Text Then TextBox3.Text = i + 1
Else
TextBox3.Text = "查询失败" End If
Next
End Sub
End Class
