在vb程序中输入十二位数，然后用mid函数取中间四位数怎么做

Question

请大家帮帮忙，谢谢。。。

Answer 1

向工程里添加一个Text1和一个Command1，范例代码如下：
Private Sub Command1_Click()
Dim strNum As String
strNum = InputBox("请输入一个十二位数：", "输入框")
If strNum = "" Then Exit Sub '输入为空或点击了【取消】按钮时退出
'╱＊输入不为空时＊╱
If strNum Like "############" Then '且满足十二位数（这里用Like匹配输入的是否为数字，其中“#”代表单个数字）
Text1.Text = Mid(strNum, 5, 4) '取中间四位数
Else
MsgBox "输入错误！", vbExclamation, "提示"
End If
End Sub

Answer 2

dim s as string
do
s=inputbox("请输入一个12位数：")
loop while len(s)<>12
s=mid(s,5,4)
msgbox "你输入的数中间四位数是：" & s

Answer 3

private sub command1_click()
dim str as string
str=inputbox("请输入12位数字")
msgbox mid(str,5,4)
end sub本回答被提问者采纳