至尊兵王360118:vb的问题

来源:百度文库 编辑:高校问答 时间:2024/03/29 01:00:19
Private Sub Form_Click()
Dim s, s1 As String
s = #5/24/2003#
Text1.Text = Day(s)
s1 = CStr(s)
s1 = Left(s1, 1) + Space(3) + Right(s1, 1)
Text2.Text = s1
End Sub
这段代码执行了之后为什么text2中显示的是2 4呢?
哪位帮我解释一下阿

s1 = CStr(s) '注意:在这句代码中s1已经等于了一个字符串变量 "2003-5-24"

s1 = Left(s1, 1) + Space(3) + Right(s1, 1) '所以取字符串"2003-5-24"左边一个字符"2",加上三个空格,右边一个字符"4",当然等于"2 4"啦!

你用双#号给s赋值,实际s得到的是
2003-05-24或2003/05/24格式.
Option Explicit

Private Sub Form_Click()
Dim s, s1 As String
s = #5/24/2003#
Text1.Text = Day(s)
s1 = CStr(s)
s1 = Left(s1, 4) + Space(3) + Mid(s1, 6, 2)
Text2.Text = s1
End Sub

悬赏分太少!~!~!