vb问题，代码熟悉的高手进来下！

来源：百度知道编辑：UC知道时间：2024/09/24 09:05:22

我制作了一个数字时钟，想取出现在时间的“：”后面的第二个数字，也就是说比如现在时间是12：30分，我想取出30的0代码应该怎么写，很急啊!这是老师交给我们的作业几天后就要交了！！
我会加分的！！
还有一个问题现在不是时间的我有一串4位数，比如1234，我想拿2出来，代码该怎么写？？？？？？？

补充回答：
a = "1234"
b = Mid(a, 2, 1)
这样就行了。
＝＝＝＝＝＝＝＝＝＝＝
这个绝对正确。
Private Sub Command1_Click()
Print Right(Format(Text1.Text, "nn"), 1)
End Sub

right(format(now,"hh:mm"),1)

Private Sub Form_Load()
Dim S() As String
S = Split(Time, ":")
MsgBox "“：”后面的第二个数字是：" & Right(S(1), 1), vbInformation, "提示"
End Sub

format函数才对嘛...
Private Sub Form_Load()

dim strtime as string

strtime=right(format(now,"hh:mm"),1)

MsgBox "“：”后面的第二个数字是：" & strtime

End Sub