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 ans2, ans3, ans4 As String Input #1, x ans1 = Len(x) Print #2, "(1)：" & ans1
For i = 1 To ans1 a1 = Mid(x, i, 1) a2 = Mid(x, i, 1) a3 = Mid(x, i, 1)
If a1 = 4 Then a1 = "４＊號" ans2 = ans2 & a1 If a2 = 3 Then a2 = "３＋號" ans3 = ans3 & a2 If a3 = 5 Then a3 = "５？號" ans4 = ans4 & a3 Next
Private Sub Form_Load() Me.Hide Open App.Path & "\in.txt" For Input As #1 Open App.Path & "\out.txt" For Output As #2 Input #1, n Print #2, Len(n) Print #2, Replace(n, "3", "３＋") Print #2, Replace(n, "4", "４＊") Print #2, Replace(n, "5", "５？") 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 ans2, ans3, ans4 As String Input #1, x ans1 = Len(x) Print #2, "(1)：" & ans1 Print #2, "(2):" & Replace(x, 4, "４＊") Print #2, "(3):" & Replace(x, 3, "３＋") Print #2, "(4):" & Replace(x, 5, "５？") 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 Input #1, s Print #2, "(1):" & Len(s) Print #2, "(2):" & Replace(s, "4", "４＊號") Print #2, "(3):" & Replace(s, "3", "３＋號") Print #2, "(4):" & Replace(s, "5", "５？號") 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 ans2, ans3, ans4 As String
Input #1, x
ans1 = Len(x)
Print #2, "(1)：" & ans1
For i = 1 To ans1
a1 = Mid(x, i, 1)
a2 = Mid(x, i, 1)
a3 = Mid(x, i, 1)
If a1 = 4 Then a1 = "４＊號"
ans2 = ans2 & a1
If a2 = 3 Then a2 = "３＋號"
ans3 = ans3 & a2
If a3 = 5 Then a3 = "５？號"
ans4 = ans4 & a3
Next
Print #2, "(2)：" & ans2
Print #2, "(3)：" & ans3
Print #2, "(4)：" & ans4
Close
Close
End
End Sub
小冰好，
回覆刪除程式正確。
這題還有兩個副點，一個是用replace來做，超快。(參照學長的程式)
另外一個是用select來將三個if合成一個判斷式中。
Private Sub Form_Load()
回覆刪除Me.Hide
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, n
Print #2, Len(n)
Print #2, Replace(n, "3", "３＋")
Print #2, Replace(n, "4", "４＊")
Print #2, Replace(n, "5", "５？")
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 ans2, ans3, ans4 As String
Input #1, x
ans1 = Len(x)
Print #2, "(1)：" & ans1
Print #2, "(2):" & Replace(x, 4, "４＊")
Print #2, "(3):" & Replace(x, 3, "３＋")
Print #2, "(4):" & Replace(x, 5, "５？")
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
Input #1, s
Print #2, "(1):" & Len(s)
Print #2, "(2):" & Replace(s, "4", "４＊號")
Print #2, "(3):" & Replace(s, "3", "３＋號")
Print #2, "(4):" & Replace(s, "5", "５？號")
Close #2
Close #1
End
End Sub