模块方面的问题...新年了大家都给给力..

紫竹姑娘　发表于：2011-01-01 20:07:48 　

统计英文字符、数字、空格和其他字符个数：

Sub m6()
Dim i As Integer, s As String, n As Integer, m As Integer, z As Integer, w As Integer
n = 0
m = 0
z = 0
w = 0
s = InputBox("请输入字符串")
For i = 1 To Len(s)
If (Asc(Mid(s, i, 1)) >= (Asc("a")) And Asc(Mid(s, i, 1)) <= (Asc("z"))) Or (Asc(Mid(s, i, 1)) >= (Asc("A")) And Asc(Mid(s, i, 1)) <= (Asc("Z"))) Then
n = n + 1
Else
If Mid(s, i, 1) = " " Then
m = m + 1
Else
If Asc(Mid(s, i, 1)) >= Asc("0") And Asc(Mid(s, i, 1)) <= Asc("9") Then
z = z + 1
Else
w = w + 1
End If
End If
End If
Next
MsgBox "字母的个数为：" & n & Space(2) & "空格的个数为：" & m & Space(3) & "数字的个数为：" & z & Sp
End Sub

这样写是不是很完美？

还有一道题：有一行密码，是按照下面的规律译成的密码：

A→C a→c

B→D b→d

C→E c→e

……

即第一个字母变成第三个字母，第i个字母变成第i+2个字母，非字母符号不变，要求输入后能通过程序将密码译成原文，并输出密码和原文。

咳咳，指点一下需要用到么语言就行..

Top

紫竹姑娘发表于：2011-01-01 20:12:10

顺便问一下，ASC码的分界线都是什么。。。貌似还有种码叫ASCⅡ，请问有没有ASCⅠ..？那个ASC码就是指的ASCⅡ么？

Top

煮江品茶发表于：2011-01-01 20:48:36

以下代码没有测试，不知道是否有毛病，大体应该如下：

Function 加密(str As String) As String
Dim i As Long
Dim s As String
Dim B As Boolean
For i = 1 To Len(str)
    s = Mid(str, i, 1)
    B = Asc(s) >= Asc("a") And Asc(s) <= Asc("z")
    B = B Or Asc(s) >= Asc("A") And Asc(s) <= Asc("Z")
    If B = True Then
        Select Case s
            Case "Y"
                加密 = 加密 & "A"
            Case "Z"
                加密 = 加密 & "B"
            Case "y"
                加密 = 加密 & "a"
            Case "z"
                加密 = 加密 & "b"
            Case Else
                加密 = 加密 & Chr(Asc(str) + 3)
        End Select
    Else
        加密 = 加密 & s
    End If
Next
End Function

Function 解密(str As String) As String
Dim i As Long
Dim s As String
Dim B As Boolean
For i = 1 To Len(str)
    s = Mid(str, i, 1)
    B = Asc(s) >= Asc("a") And Asc(s) <= Asc("z")
    B = B Or Asc(s) >= Asc("A") And Asc(s) <= Asc("Z")
    If B = True Then
        Select Case s
            Case "A"
                解密 = "Y"
            Case "B"
                解密 = "Z"
            Case "a"
                解密 = "y"
            Case "b"
                解密 = "z"
            Case Else
                解密 = Chr(Asc(str) - 3)
        End Select
    Else
        解密 = 解密 & s
    End If
Next
End Function

Private Sub Command1_Click()
Dim i As Long
Dim s0 As String, s1 As String, s2 As String
s0 = InputBox("请输入英文单词：")
s1 = 加密(s)
MsgBox s & "加密为：" & s1
s2 = 解密(s1)
MsgBox s1 & "解密为：" & s2
End Sub

Top

紫竹姑娘发表于：2011-01-01 21:01:13

敢问老师，CHR()是么意思...

Top

煮江品茶发表于：2011-01-01 21:13:02

CHR()是ASC函数的逆运算函数，即从一个数字获得一个字符。

Top

紫竹姑娘发表于：2011-01-01 21:21:01

一语惊醒梦中人丫....谢了老师= =

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

模块方面的问题...新年了大家都给给力..