在Visual Basic（VB）中输入10个数字的方法有多种，以下是几种常见的方法：
方法一：使用InputBox逐个输入
你可以使用一个循环和InputBox控件来逐个输入10个数字。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
For i = 1 To 10
a（i） = Val（InputBox（"请输入第" & i & "个数字"））
Next i
' 打印输入的数字
For i = 1 To 10
Print a（i）
Next i
End Sub
```
方法二：使用数组和循环输入
你也可以使用数组来存储输入的数字，并使用循环来输入和打印这些数字。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim a（1 To 10） As Integer
For i = 1 To 10
a（i） = Val（InputBox（"请输入第" & i & "个数字"））
Next i
' 打印输入的数字
For i = 1 To 10
Print a（i）
Next i
End Sub
```
方法三：使用随机数生成器
你还可以使用随机数生成器来生成10个数字，并打印这些数字。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
Dim wzs（10） As Integer
For i = 1 To 10
wzs（i） = Int（Rnd * 1000） ' 生成0到999之间的随机数
Next i
' 打印生成的数字
For i = 1 To 10
Print wzs（i）
Next i
End Sub
```
方法四：使用InputBox和条件判断
你可以在一个InputBox中输入多个数字，并使用条件判断来统计奇数和偶数的数量。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
Dim a（） As Integer
ReDim a（1 To 10）
For i = 1 To 10
a（i） = Val（InputBox（"请输入第" & i & "个数字"））
Next i
' 统计奇数和偶数的数量
Dim c As Integer
Dim d As Integer
For i = 1 To 10
If a（i） Mod 2 = 0 Then
c = c + 1
Else
d = d + 1
End If
Next i
Label1.Caption = "你输入了" & c & "偶数"
Label2.Caption = "你输入了" & d & "奇数"
End Sub
```
方法五：使用循环和数组排序
你还可以使用循环和数组排序来输入10个数字，并打印排序后的结果。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim i As Integer
Dim S（10） As Integer
For i = 1 To 10
S（i） = InputBox（"请输入一个正整数："）
Next i
' 从小到大排序
For i = 1 To 9
For j = i + 1 To 10
If S（i） > S（j） Then
Dim temp As Integer
temp = S（i）
S（i） = S（j）
S（j） = temp
End If
Next j
Next i
' 打印排序后的结果
For i = 1 To 10
Print S（i）
Next i
End Sub
```
这些方法都可以实现在VB中输入10个数字的功能，你可以根据自己的需求和编程习惯选择合适的方法。