24h購物| | PChome| 登入
2008-05-22 12:05:53| 人氣94| 回應0 | 上一篇 | 下一篇

計算字母1(vb)

推薦 0 收藏 0 轉貼0 訂閱站台

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

我要檢舉
台長： *~葉子~*

您可能對以下文章有興趣

人氣(94) | 回應(0)| 推薦 (0)| 收藏 (0)| 轉寄
全站分類: 不分類

我要回應
否 是 (若未登入"個人新聞台帳號"則看不到回覆唷!)
* 請輸入識別碼：
請輸入圖片中算式的結果(可能為0) 
(有*為必填)
TOP
詳全文