高中生程式解題系統

#4442: BASIC一直過不了~~

vm6vul4vu06 (星煌)

學校 : 嶺東高級中學
編號 : 14103
來源 : [203.71.139.165]
最後登入時間：
2010-10-29 12:08:51

a002. 簡易加法 | From: [203.71.139.165] | 發表日期 : 2010-10-27 11:51

以下是本人的程式碼(VB6.0)：

測試結果為NA

Dim n1 As Integer, n2 As Integer

Open CONS For Input As #1

Do Until EOF(1)

Input #1, n1, n2

Print n1 + n2

Loop

能宣告的都有宣告，完全想不出錯誤在哪......

| 回應文章 | 回原始文章

#4447: Re:BASIC一直過不了~~

x000032001 (某數)

學校 : 國立臺中高級家事商業職業學校
編號 : 8316
來源 : [219.87.178.100]
最後登入時間：
2011-09-23 13:13:22

a002. 簡易加法 | From: [114.137.205.73] | 發表日期 : 2010-10-29 10:40

以下是本人的程式碼(VB6.0)：

測試結果為NA

Dim n1 As Integer, n2 As Integer

Open CONS For Input As #1

Do Until EOF(1)

Input #1, n1, n2

Print n1 + n2

Loop

能宣告的都有宣告，完全想不出錯誤在哪......

要先Input才能知道是否EOF?

管它的用C++吧= =b

/'********************************************************************************'/
/' Problem: a002 "簡易加法"                                                  '/
/' Language: BASIC                                                               '/
/' Result: AC (4ms, 664KB) on ZeroJudge                                          '/
/' Author: x000032001 at 2010-10-29 10:39:37                                     '/
/'********************************************************************************'/

Dim a As Integer ,b as Integer

Open Cons For Input As #1
Input #1,a,b
Do Until Eof(1)
        Print a+b
        Input #1,a,b
Loop