2008-05-22 12:05:53*~葉子~*
計算字母1(vb)
Private Sub Form_Activate()
Open App.Path & ”2.txt” For Input As #1
Do
Line Input #1, n
For i = 1 To Len(n)
t = Asc(Mid(n, i, 1))
If t >= 97 And t <= 122 Then a = a + 1
Loop Until EOF(1)
Close #1
End Sub
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim j As String
Dim t As String
Dim n As String
End Sub
Open App.Path & ”2.txt” For Input As #1
Do
Line Input #1, n
For i = 1 To Len(n)
t = Asc(Mid(n, i, 1))
If t >= 97 And t <= 122 Then a = a + 1
Loop Until EOF(1)
Close #1
End Sub
Private Sub Form_Load()
Dim a As Integer
Dim b As Integer
Dim j As String
Dim t As String
Dim n As String
End Sub