VB program decoding, rookie help, VB program code for advice

Create two texts and one command

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

If you still have questions, talk.

Let me talk about the train of thought:

First, solve the function of entering and saving information:

Because, to have the function of entering information, there are two ways to solve the function of entering and saving information;

1. Use VBA, in Word or Excel.

2. You write the texter yourself.

Two, according to your requirements:

1. The program should have the function of setting the time.

2. After each input information, save the file.

3. The file format is divided into two large parts, and the middle is separated by the set time highlighting;

4. When saving, first judge whether there is a saved file on the same day, open the existing file if there is, if not, save it as a new file on the same day.

If there is already a file, open the file, and judge the time, according to the time node you said, if the time is before the specified time, then the new content is entered after the original content; If the specified time has passed, after opening the file, a line will be added at the end of the file to separate the content with the specified time, and a new line will be entered into a new line.

<> as shown in the figure, I think your formula is written incorrectly, it should be a=(f-(u*m*g)) m, if a=f-(u*m*g) m, simplify and eliminate m is a=f-u*g=, it is a fixed data, and it is meaningless if m does not change.

Hope...