vb复习代码填.docVIP

1、在文本框Text1中输入一串字符，按以下规则进行加密：将每个原码字母在A-Z-A首尾相连的字母表上向后移6位作为译码，并在文本框Text2中输出译码串。比如原串ABCXYZ对应的译码串为GHIDEF。 Private Sub Command1_Click() Dim str1 As String, str2 As String Dim n As Integer, ch As String * 1, i As Integer str1 = UCase(Trim(Text1.Text)) For i =1 To Len(str1) ch = Mid(str1, i, 1) n =___asc(ch)_+6_________ If n = 90 Then str2 = str2 + Chr(n) Else str2 = ___str2+chr(n-26)____________ End If Next i Text2.Text = str2 End Sub2、下面的程序是找出两个正整数a和b，使ab、a+b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。 Private Sub Command1_Click() Dim a As