帮忙看看代码错在哪里？

Question

Private i As Integer
Private j As Integer
Private mytime
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Dim aa As Integer
aa = "03"
Text1 = "" & aa & ":00"
mytime = #12:03:00 PM# 
   i = 0
   j = 0
End Sub
怎么让mytime =#12:03:00 pm#  中的03改为aa   
aa是定义的integer数据，

Answer 1

mytime = #12:03:00 PM# 
这个是怎么获得的?
string值?

Answer 2

Private i As Integer
Private j As Integer
Private mytimePrivate Sub Form_Load()
Timer1.Interval = 1000Timer1.Enabled = True
Dim aa As Integer
aa = "03"
Text1 = "" & aa & ":00"
mytime = #12:03:00 PM# '如果text改变03，mytime的03也要改变   i = 0
   j = 0End SubPrivate Sub Timer1_Timer()
  i = 60 * Minute(mytime) + Second(mytime)
    j = j + 1
    If Len(CStr((i - j) Mod 60)) = 1 Then
        Text1.Text = "0" & CStr(((i - j) \ 60)) & ":0" & CStr(((i - j) Mod 60))
    Else
    Text1.Text = "0" & CStr(((i - j) \ 60)) & ":" & CStr(((i - j) Mod 60))
    End If
    If Text1 = "00:00" Then
    Timer1.Enabled = False
    End If
End Sub
这是我全部的代码？

Answer 3

在看
没有明白
如果text改变03，mytime的03也要改变
text开始以后就不停在变化你怎么改变他是不是改变aa就改变他?

Answer 4

Private i As Integer
Private j As Integer
Private mytimePrivate Sub Form_Load()
Timer1.Interval = 1000Timer1.Enabled = True
Dim aa As Integer
aa = "05"
Text1 = "" & aa & ":00"mytime = #12:04:00 PM# '如果text改变03，mytime的03也要改变
mytime = Replace(mytime, "04", aa)
   i = 0
   j = 0End SubPrivate Sub Timer1_Timer()
  i = 60 * Minute(mytime) + Second(mytime)
    j = j + 1
    If Len(CStr((i - j) Mod 60)) = 1 Then
        Text1.Text = "0" & CStr(((i - j) \ 60)) & ":0" & CStr(((i - j) Mod 60))
    Else
    Text1.Text = "0" & CStr(((i - j) \ 60)) & ":" & CStr(((i - j) Mod 60))
    End If
    If Text1 = "00:00" Then
    Timer1.Enabled = False
    End If
End Sub
这样你看下貌似可以了

Answer 5

你可以另外建立个text2来放置那个aa变量