24h購物| | PChome| 登入
2008-05-23 10:07:13| 人氣103| 回應0 | 上一篇 | 下一篇

計算字母(VB)

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

Private Sub Form_Activate()
Dim i As Integer
Dim j As Integer
Dim n As String
Dim D(97 To 122) As Integer

Open App.Path & ”1.txt” For Input As #1
Do
Line Input #1, n
For i = 1 To Len(n)
For j = 97 To 122
If Asc(Mid(n, i, 1)) = j Then D(j) = D(j) + 1
Next j
Next i
Loop Until EOF(1)

For i = 97 To 122
Print ”字元” & Chr(i) & ”:” & D(i) & ”個”
Next i
Close #1
End Sub

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

您可能對以下文章有興趣

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

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