VB程式設計求助，緊急情況！！

private sub timer1_timer()= "當前時間：" + cstr(time)if = cstr(time) thenmsgbox "倒計時結束"

falseend if

end sub

private sub form_load()= false

啟動計時器"計算差值"

計算出現次數"

date '為了方便測試，設定了乙個初始值。

2009-5-30" '為了方便測試，設定了乙個初始值。

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 "共現" & cstr(a) &"次"

print "b 共現" & cstr(b) &"次"

print "c 共現" & cstr(c) &"次"

end 使用陣列進行計數。 我不太明白你的意思。 沒有發生。

一些程式具有初始值，主要是為了方便測試。 你可以使用它，也可以不使用它。

大概測試一下，沒有任何問題，你可以再看看！

private sub timer1_timer()dim timenow as date

timenow = #4:00:00 pm# - timeprint "距離下午4點還有時間" & hour(timenow) &"次" &

minute(timenow) &"點" &second(timenow) &"秒"

if time = #4:00:00 pm# thenmsgbox "是時候了"

end if

end sub

private sub timer1_timer()if then

msgbox "倒計時結束"

end sub

private sub form_load()"啟動計時器"

end sub

private sub command1_click()if "啟動計時器" then

停止計時器"啟動計時器"

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 "共現" & str(a) &"次"

print "b 共現" & str(b) &"次"

print "c 共現" & str(c) &"次"