(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 Sub 2、下面的程序是找出两个正整数a和b，使ab、a+b=99、a和b的最大公约数是3的倍数，并统计满足条件数对的个数。 Private Sub Command1_Click() Dim a As Integer, b As Integer Dim m As Integer, n As Integer Dim r As Integer, k As Integer For a = 1 To 49 __b=99_-a________ m = a: n = b Do __r= m mod n______ m = n n = r Loop Until r = 0 If m Mod 3 = 0 Then ____k=k+1______ Print a; b End If Next a Print 符合条件的数对个数为 k 个 End Sub 3、从键盘上输入任一正整数n，判断该数是否是完全数。如果一个数的所有因子和正好等于该数，则称该数为完全数。 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim s As Integer n = InputBox(请输入要判断的数) i = 1 ____s=1_________ Do i = i + 1 If n Mod i = 0 Then s = s + i Loop until i=n-1 If ___s=n_____ Then Print n; 是完全数 End Sub 4、随机生成10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……分别输出数组原来各元素的值和对换后各元素的值。 Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer, j As Integer Print 原序列： For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); Next i Print For i = 1 To _____5___ t = a(i) __a(i)=a(11-i)______ ____a(11-i)=t____ Next i Print 交换后的序列： For i = 1 To 10 Print a(i); Next i Print End Sub 5、假设递归函数fact(n)用来求n的阶乘，请补充程序。 Private Function fact(n As Integer) As Long If n = 0 Or n = 1 Then fact = 1 Else fact = __n*fact(n-1)_________ End If End Function 6、下面程序的功能是随机生成20个三位正整数，输出其中的第