上机考需要做一个access数据库，前来求助！！！
（2）在文本框中输入一行密码原文，点击“译文”按钮，使用标签输出译文后的信息。密码译文要求：A---F B----G C-----H ……T----Y......U----Z…. V----A….Z----E不区分大小写； 数字加上你自己学号的最后一位输出，超过10的，只输出最后一位如：学号最后是7号，那么0-----7 1------9 3-----0 4------1 5---2 …….9------6。其它符号照原样输出。
本人学号：13150031049 名字随便弄 展开
1.Microsoft Office Access 打开后，界面分布如图。
2.数据库的数据都是通过表存放的，所以先创建一个表，点击菜单栏的创建。
3.再点击表，这样就创建一个表，如图左边的表1。
4.点击图中的添加新字段，可以创建多个列名。
5.右键点击字段，可以重命名字段。
6.字段名最好是英文。
7.在字段名下面可以输入数据。
8.完成创建后，点击左上角保存按钮。
9.弹出提示，要求命名表名 ，最好也是英文。
10.输入后，点击确定保存表。
Private Sub Command4_Click()
Dim str, resultStr As String
Dim a, b As String
Text1.SetFocus
str = UCase(Trim(Text1.Text))
For i = 1 To Len(str)
a = Mid(str, i, 1)
If Asc(a) >= 65 And Asc(a) <= 90 Then
If Asc(a) > 85 Then
a = Chr(Asc(a) - 20)
Else
a = Chr(Asc(a) + 5)
End If
Else
If Asc(a) >= 48 And Asc(a) <= 57 Then
b = (Asc(a) + 9)
If b > 57 Then
b = b - 10
End If
a = Chr(b)
End If
End If
resultStr = resultStr + a
Next i
Label3.Caption = resultStr
End Sub
