程序运行时,选择一个文本文件,读取该文件中的内容,对数字字符进行加密,加密方法如下:0->3,1->4……7->0,8->1,9->2。结果在文本框显示。 Private Sub Command1_Click() Dim i%, t% Dim s1$, s2$, c$ CommonDialog1.ShowOpen Open ______(1)______ For Input As 1 Do While Not EOF(1) ______(2)______ 1, s1 s2 = s2 & s1 & vbCrLf Loop Close 1 For i = 1 To Len(s2) c = Mid(s2, i, 1) If ______(3)______ Then t = Val(c) t = t + 3 If t > 9 Then t = t - 10 End If Text1.Text = Text1.Text & ____

时间:2024-01-03 10:16:26

相似题目