請問一下,這個程式是在說什麼? vb

請問一下,這個程式是在說什麼?

Dim mtmp1, mtmp2

Dim mstr = ""

For i = 1 To 8

Dim mlen = Len(mn(i))

mtmp1 = Mid(mn(i), 1, 12)

mtmp2 = Mid(mn(i), 14, mlen - 13)

If CType(mtmp1, Date) >= Now Then

mtmp2 = Replace(mtmp2, "。", "......")

mstr = mstr & mtmp1 & mtmp2

End If

Next

txt_maqree.Text = mstr

End Sub

3 Answers

Rating
  • 1 decade ago
    Favorite Answer

    Dim mtmp1, mtmp2 '宣告mtmp1和mtmp2

    Dim mstr = "" '宣告mstr,並將值設定為空字串

    For i = 1 To 8 '迴圈i=1到8

    Dim mlen = Len(mn(i)) '宣告mlen,並將值設定為mn這個陣列的第i個值的長度

    mtmp1 = Mid(mn(i), 1, 12) '將mtmp1這個變數的值設定為 從mn這個陣列的第i個值的第1個字往後取12個字

    mtmp2 = Mid(mn(i), 14, mlen - 13) '將mtmp2這個變數的值設定為 從mn這個陣列的第i個值的第1個字往後取mlen-13個字

    If CType(mtmp1, Date) >= Now Then '如果將mtmp1這個變數的型態轉為Date之後,日期比現在的時間大則...

    mtmp2 = Replace(mtmp2, "。", "......") 'mtmp2這個變數的值就會變成原來的值,但是句號被取代成六個點

    mstr = mstr & mtmp1 & mtmp2 'mstr這個變數的值變成自己+mtmp1的值+mtmp2的值

    End If

    Next

    txt_maqree.Text = mstr 'txt_maqree這個文字框的內容設定為mstr

    End Sub

    2010-01-07 21:18:52 補充:

    Dim mtmp1, mtmp2 '宣告mtmp1和mtmp2

    Dim mstr = "" '宣告mstr,並將值設定為空字串

    For i = 1 To 8 '迴圈i=1到8

    Dim mlen = Len(mn(i)) '宣告mlen,並將值設定為mn這個陣列的第i個值的長度

    mtmp1 = Mid(mn(i), 1, 12) '將mtmp1這個變數的值設定為 從mn這個陣列的第i個值的第1個字往後取12個字

    mtmp2 = Mid(mn(i), 14, mlen - 13) '將mtmp2這個變數的值設定為 從mn這個陣列的第i個值的第1個字往後取mlen-13個字

    2010-01-07 21:18:57 補充:

    If CType(mtmp1, Date) >= Now Then '如果將mtmp1這個變數的型態轉為Date之後,日期比現在的時間大則...

    mtmp2 = Replace(mtmp2, "。", "......") 'mtmp2這個變數的值就會變成原來的值,但是句號被取代成六個點

    mstr = mstr & mtmp1 & mtmp2 'mstr這個變數的值變成自己+mtmp1的值+mtmp2的值

    End If

    Next

    txt_maqree.Text = mstr 'txt_maqree這個文字框的內容設定為mstr

    End Sub

    Source(s): 我自己, yahoo有亂碼= =, yahoo有亂碼= =
  • Nona
    Lv 6
    1 decade ago

    Dim mstr = ""

    For i = 1 To 8

    Dim mlen = Len(mn(i))

    mtmp1 = Mid(mn(i), 1, 12)

    mtmp2 = Mid(mn(i), 14, mlen - 13)

    If CType(mtmp1, Date) >= Now Then

    mtmp2 = Replace(mtmp2, "。", "......")

    mstr = mstr & mtmp1 & mtmp2

  • p
    Lv 7
    1 decade ago

    一堆亂碼

    一堆亂碼

    一堆亂碼

Still have questions? Get your answers by asking now.