所有程序語言裡沒有國字，也許大家也對判斷中國字很陌生吧！ ！ ！
所以，今天的題目是——
輸入一篇文章，輸出它的國字。
輸入說明 ：
這篇文章很長，有很多行。
輸出說明 ：
對於每一行，輸出這一行的國字並換行。
範例輸入 ：
今晚打老虎
VB程式 ~ !!!
範例輸出 ：
今晚打老虎
程式
輸入一篇文章，輸出它的國字。
輸入說明 ：
這篇文章很長，有很多行。
輸出說明 ：
對於每一行，輸出這一行的國字並換行。
範例輸入 ：
今晚打老虎
VB程式 ~ !!!
範例輸出 ：
今晚打老虎
程式
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
Line Input #1, x
ans = ""
For i = 1 To Len(x)
a = Mid(x, i, 1)
If Asc(a) < 0 Then ans = ans & a
Next
Print #2, ans
Loop
Close
Close
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Do While Not EOF(1)
x = ""
Line Input #1, s
For i = 1 To Len(s)
n = Mid(s, i, 1)
If Asc(n) < 0 Then x = x & n
Next i
Print #2, x
Loop
Close #2
Close #1
End
End Sub
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Dim ans As String
Do While Not EOF(1)
Line Input #1, n
ans = ""
For i = 1 To Len(n)
a = Mid(n, i, 1)
If Asc(a) < 0 Then ans = ans & a
Next i
Print #2, ans
Loop
Close
Close
End
End Sub
小冰、哲、晟晟好，
回覆刪除你們3個的程式都正確。
但是，你們知道這樣的結果怎麼來的呢?asc(a)<0又是什麼意思呢?
當新的題目，第一次遇到時，要多次嘗試，得到這樣的一個式子，並不容易哦。
很高興看到三位一起來，加油，前程的光明，都是自己掙取的，未來的你，也會在巴黎喝著紅酒在塞納河畔看旅人和夕陽的。
熊掌 還是在巴黎啊。
先找中文的Asc碼，發現都是-的很多位數，所以才發現這樣的式子。
回覆刪除