提问：VB中，运行出现类型——声明字符与声明的数据类型不符合

网友回答：

程序不止一个错，以下是改好的，你参考下

Private Sub Command1_Click()

Dim a!(10), b$(10) '下标不足

Dim m!, n$ '类型错

Print "输入成绩"

For i = 1 To 10

    b(i) = InputBox("输入运动员")

    a(i) = InputBox("输入运动员成绩")

    Print b(i) & "号" & a(i) & "秒" & ""

Next i

Print

Print "排序后是:"

For i = 1 To 10

For j = 1 To 10 - i

    If a(j) > a(j + 1) Then

    m = a(j + 1): a(j + 1) = a(j): a(j) = m 'z错了

    n = b(j + 1): b(j + 1) = b(j): b(j) = n

    End If

   Next j

   Next i

For i = 1 To 10

  Print "第" & i & "名:" & b(i); "号" & a(i) & "秒" '符号错

Next '少next了

End Sub