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


limiu82214 (王王王王王小天)

學校 : 國立屏東大學
編號 : 14379
來源 : [59.115.93.166]
最後登入時間 ：
2021-09-12 16:02:29
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