VB programming for help, emergency !!

private sub timer1_timer()= "Current Time:" + cstr(time)if = cstr(time) thenmsgbox "The countdown ends"

falseend if

end sub

private sub form_load()= false

Start the timer"Calculate the difference"

Count the number of occurrences"

date 'For the convenience of testing, an initial value is set.

2009-5-30" 'For the convenience of testing, an initial value is set.

end sub

private sub command1_click()= true

end sub

private sub command2_click()dim dt as date

dt = cdate( -cdate(

cstr(cint(dt))

end sub

private sub command3_click()dim a, b, c, len_str as integerdim str as string

a = 0b = 0

c = 0str =

len_str = len(str)

for i = 1 to len_str

select case left(str, 1)case "a"

a = a + 1

case "b"

b = b + 1

case "c"

c = c + 1

end select

str = right(str, len_str - i)next i

print "a co-occurrence" & cstr(a) &"times"

print "b co-occurrence" & cstr(b) &"times"

print "c co-occurrence" & cstr(c) &"times"

end is counted with arrays. I don't quite understand what you mean. Didn't happen.

Several of the programs have initial values, mainly for the convenience of testing. You can use it or not.

Probably tested it without any problems, you can take a look again!

private sub timer1_timer()dim timenow as date

timenow = #4:00:00 pm# - timeprint "It's still 4 p.m. away" & hour(timenow) &"times" &

minute(timenow) &"points" &second(timenow) &"seconds"

if time = #4:00:00 pm# thenmsgbox "It's time"

end if

end sub

private sub timer1_timer()if then

msgbox "The countdown ends"

end sub

private sub form_load()"Start the timer"

end sub

private sub command1_click()if "Start the timer" then

Stop the timer"Start the timer"

end if

end sub

private sub command1_click()text3=datadiff("d",cdata(text1),cdata(text2))

end sub

private sub command1_click()static a,b,c as integera=0:b=0:c=0

for i=1 to len(text1)select case mid(text1,i,1)case "a"

a=a+1case "b"

b=b+1case "c"

c=c+1end select

print "a co-occurrence" & str(a) &"times"

print "b co-occurrence" & str(b) &"times"

print "c co-occurrence" & str(c) &"times"