VB程式解碼，新手幫助，VB程式程式碼諮詢

建立兩個文字和乙個命令

dim deshu as string

private sub command1_click()deshu = ""

yuan =

k = len(yuan)

for i = 1 to k

n = 2bian = mid(yuan, i, n)select case bian

case "00"

deshu = deshu & "a"

case "01"

deshu = deshu & "b"

case "10"

deshu = deshu & "c"

case else

n = 3bian = mid(yuan, i, n)select case bian

case "110"

deshu = deshu & "d"

case "111"

deshu = deshu & "e"

end select

end select

i = i + n - 1

next i

deshuend sub

private sub form_load()= "1110010010000110011000"

end sub

如果您仍有疑問，請交談。

讓我談談思路：

一、解決錄入和儲存資訊的功能：

因為，要具備錄入資訊的功能，有兩種方法可以解決錄入和儲存資訊的功能;

1.在Word或Excel中使用VBA。

2.你自己寫簡訊。

二、根據您的要求：

1.程式應具有設定時間的功能。

2. 每次輸入資訊後，儲存檔案。

3、檔案格式分為兩大部分，中間按設定的時間高亮分隔;

4.儲存時，首先判斷當天是否有儲存的檔案，如果有，則開啟現有檔案，如果沒有，則在同一天另存為新檔案。

如果已經有檔案，開啟檔案，判斷時間，根據你說的時間節點，如果時間在指定時間之前，那麼在原內容之後輸入新內容; 如果已過指定時間，開啟檔案後，會在檔案末尾新增一行，將內容與指定時間分隔開，並在新行中輸入新行。

<>如圖所示，我認為你的公式寫錯了，應該是a=（f-（u*m*g）） m，如果a=f-（u*m*g）m，簡化並排除m是a=f-u*g=，它是固定資料，m不變就沒有意義了。

希望。。。