發表新討論
#4517: VB求助 完全不知道錯在哪


limiu82214 (王王王王王小天)

a004. 文文的求婚 | From: [210.60.236.8] | 發表日期: 2010-11-09 17:21
錯誤狀況:CE
請問我哪裡用錯了呢? 
Dim text As String
Open CONS For Input As #1
Do
Input #1, text
Loop Until EOF(1)
Close #1
x = Val(text)
If x Mod 400 = 0 Then cout = "閏年" Else cout = "平年"
ZeroJudge Forum