UC知道编了个VB程序谁能帮我看一下？（按从小到大输出，在输入时报错，说是类型无法转化）
来源：百度知道 编辑：UC知道 时间：2024/06/01 13:04:16
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim array(i) As Integer
Dim i, j, k As Integer
For i = 0 To 9
array(i) = TextBox1.Text
Next
For i = 0 To 8
For j = 1 To 9
If array(i) < array(j) Then
k = array(i) : array(i) = array(j) : array(j) = k
End If
Next
Next
For i = 0 To 9
TextBox2.Text = TextBox2.Text & array(i)
Next
End Sub
End Class
输入的时候，是不是数字与数字之间要用分隔符的?
Dim array(i) As Integer
Dim i, j, k As Integer
For i = 0 To 9
array(i) = TextBox1.Text
Next
For i = 0 To 8
For j = 1 To 9
If array(i) < array(j) Then
k = array(i) : array(i) = array(j) : array(j) = k
End If
Next
Next
For i = 0 To 9
TextBox2.Text = TextBox2.Text & array(i)
Next
End Sub
End Class
输入的时候，是不是数字与数字之间要用分隔符的?
TextBox1.Text是字符串型的，赋值给整型的array(i)所以出错。
如果改成array(i) = Val(TextBox1.Text)，则10个数都是取第一个数的值。
最好是用Inputbox
array(i) = Val(InputBox("请输入第" & i & "个数", "输入"))
array(i) = TextBox1.Text
改成
array(i) = Val(TextBox1.Text)
试试