用VB编写一个至少30句的程序

用VB编写一个至少30句的程序

来点实用点的,怎么样? 加密原理：循环使用密码中每个字符的ASCII码值与文件的每个字节进行异或运算,然后写入文件即可.这种加密方法是可逆的,即对明文进行加密得到密文,用相同的密码对密文进行加密就得到明文. 界面设计：在窗体From1上放置驱动器列表框（Driver1）、目录列表框（Dir1）、文件列表框（File1）各一个,这三个控件相互配合,用来确定要加密文件的位置.其中File1的Pattern属性设为“*.TXT”,即仅显示文本文件；再放置一个Check控件,用来控制显示文件的类型,其Caption属性设为“显示全部文件”；接着放置两个文本框,Text1显示文件内容,Text2用来输入密码,其Passchar属性设为“*”,一个Label控件,其Caption属性设为“密码”；最后,放置两个命令按钮,其Caption属性分别设为“加密/解密”和“退出”. 程序代码： Option Explicit Dim i As Long Dim databuff（） As Byte ’定义数组用于存放文件内容 Dim addbuff（） As Byte ’定义数组用于存放加密后的文件内容 Dim password（） As Byte ’定义数组用于存放密码的ASCII值 Dim filename As String Private Sub Check1_Click（） If Check1.Value Then ’控制是否显示全部文件 File1.Pattern = "*.*" Else File1.Pattern = ".txt" End If End Sub Private Sub Command1_Click（） Dim j As Integer Dim password_len As Integer password_len = Len（Text2.Text） ReDim password（password_len） As Byte For i = 0 To password_len - 1 ’把密码转化为ASCII码 password（i）= Asc（Mid（Text2.Text,i + 1,1）） Next If filename = "" Then Exit Sub Open filename For Binary As #1 ’读取要加密的文件内容 ReDim databuff（LOF（1）） Get #1, databuff Close #1 ReDim addbuff（UBound（databuff））As Byte For i = 0 To UBound（databuff） If j >= password_len Then ’循环使用密码 j = 0 Else j = j + 1 End If addbuff（i）= databuff（i）Xor password（j）’进行异或运算 Next Open filename For Binary As #1 ’把加密后的内容写入文件 Put #1,addbuff Close #1 Text1 = StrConv（addbuff vbUnicode）’显示加密后的文件内容 Text2.Text = "" End Sub Private Sub Command2_Click（） .End End Sub Private Sub Dir1_Change（） File1.Path = Dir1.Path ’与文件列表框相关联 End Sub Private Sub Drive1_Change（） On Error GoTo a0 Dir1.Path = Drive1.Drive ’与目录列表框相关联 a0：If Err Then MsgBox（Error（Err））’发生错误,提示错误内容 End Sub Private Sub File1_Click（）’单击文件时,显示文件内容 filename = Dir1.Path + File1.filename If filename = "" Then Exit Sub Open filename For Binary As #1 ReDim databuff（LOF（1）） Get #1,databuff Close #1 Text1 = StrConv（databuff,vbUnicode） End Su