如何在visual basic中根据用户输入声明变量

Dim userInput As String
userInput = InputBox("请输入变量名和类型（例如：变量名 As 类型）：")

Dim variableName As String
Dim variableType As String
Dim parts() As String
parts = Split(userInput, "As")
variableName = Trim(parts(0))
variableType = Trim(parts(1))

Dim variable As variableType

Dim userInput As String
Dim variableName As String
Dim variableType As String
Dim variable As Object

' 获取用户输入
userInput = InputBox("请输入变量名和类型（例如：变量名 As 类型）：")

' 解析用户输入
Dim parts() As String
parts = Split(userInput, "As")
variableName = Trim(parts(0))
variableType = Trim(parts(1))

' 根据用户输入声明变量
If variableType = "Integer" Then
    variable = CInt(0)
ElseIf variableType = "Double" Then
    variable = CDbl(0)
ElseIf variableType = "String" Then
    variable = ""
ElseIf variableType = "Boolean" Then
    variable = False
Else
    MsgBox "无法识别的变量类型！"
    Exit Sub
End If

' 输出变量信息
MsgBox "已声明变量：" & variableName & "，类型：" & TypeName(variable)