在VB（Visual Basic）中重新输入数据的编程可以通过多种方式实现，具体取决于您想要实现的功能和数据结构。以下是几个示例代码，分别展示了如何在VB中实现数据重新输入的功能：
示例1：使用输入框重新输入单个数值
```vb
Private Sub Command1_Click（）
Dim n As String
Do
n = InputBox（"请输入一个整数："）
If IsNumeric（n） And Val（n） Mod 2 = 0 Then
MsgBox "输入正确"
Exit Do
Else
MsgBox "数据错误，请重新输入"
End If
Loop
End Sub
```
示例2：使用输入框重新输入一组数值
```vb
Private Sub Command1_Click（）
Dim i As Integer
Dim js As Integer, os As Integer, x As Integer
js = 0
os = 0
For i = 1 To 20
x = Val（InputBox（"请输入20个整数："））
If x Mod 2 = 0 Then
os = os + 1
Else
js = js + 1
End If
Next i
MsgBox "偶数个数： " & os & "， 奇数个数： " & js
End Sub
```
示例3：在Excel VBA中重新输入数据
```vba
Sub MatchInput（）
Dim i, j, m, k As Long
Dim msg, style, title, ans
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets（"Sheet1"）
Set mysheet2 = ThisWorkbook.Worksheets（"Sheet2"）
msg = "该用户信息已经存在，是否替换？"
style = vbYesNoCancel + vbDefaultButton3
title = "温馨提示"
m = Application.WorksheetFunction.Match（mysheet1.Cells（2, 2）, mysheet2.Range（"A1:A1000"）, 0）
If m >= 1 Then
ans = MsgBox（msg, style, title）
If ans = vbYes Then
For j = 1 To 10
temp = a（j）
a（j） = a（11 - j）
a（10 - j + 1） = temp
Next j
End If
End If
End Sub
```
示例4：在VB中创建输入框并获取输入
```vb
Private Sub Button1_Click（ByVal sender As System.Object, ByVal e As System.EventArgs） Handles Button1.Click
Dim userInput As String
userInput = TextBox1.Text
' 使用userInput变量进行后续操作
End Sub
```
这些示例展示了如何在VB中实现数据重新输入的不同方法。您可以根据具体需求选择合适的方法进行编程。