vb38题(有修改答案).docVIP

1.程序功能：在一个字符串变量中查找at,输出查找结果.请填空 Public Sub Findat() Dim str1 As String Dim length, sum, i As Integer str1 = InputBox(请输入一个字符串) length = (1)len(str1) i = 1 sum = 0 Do While i = (2)length If (3)mid(str1,I,2) = at Then sum = sum + 1 End If i = i + 1 Loop If (4)sum=0 Then MsgBox 没有找到 Else MsgBox 找到了 Str(sum) 个 End If End Sub 2.程序功能：找出1～1000之间所有的同构数。所谓同构数是指一个数出现在它的平方数的右端，如25在25平方625的右端，则25为同构数。请填空 Private Sub Form_Click() Dim i As Single Dim x1 As String, x2 As String For i = 1 To 1000 x1 = （1）Trim(Str(i)) x2 = （2）Right((Trim(Str(i ^ 2))), 2) If （3）x1=x2 Then Print i; 是同构数 End If Next i End Sub 3.程序功能：求斐波那契数列的第17项。斐波那契数列的前三项是1，1，2，从第四项开始，每一项都是它前面的两项之和。请填空 Private Sub Form_Click() Dim last_one As Long, last_two As Long, this_one As Long, i As Integer last_one = 1 last_two = 2 i = 4 Do this_one = last_one + last_two last_one = (1)last_two last_two = （2）this_one If i = 17 Then Print No:17=; this_one （3）exit do End If （4）i=i+1 Loop End Sub 4. 程序功能：求斐波那契数列从第几人个数起每个数都超过1*108。斐波那契数列的前三项是1，1，2，从第四项开始，每一项都是它前面的两项之和。请填空 Private Sub Form_Click() Dim last_one As Long, last_two As Long, this_one As Long, i As Integer last_one = 1 last_two = 2 i = 4 Do this_one = last_one + last_two last_one = （1）last_two last_two = （2） this_one （3）i=i+1 Loop Until （4）this_one1e+8 Print NO:; i - 1; is1e+8 End Sub 5.下列程序的功能： 译密码:随机产生的10个大写字母一一转换成其后面的第四个字母，26个英文字母首尾相连 Private Sub Form_Click() Const N = 10 Dim a(1 To N) As String, i As Integer, t As Integer For i = 1 To N a(i) = Chr(Asc(A) + Int(Rnd * 26)) Print a(i); Next i For i = 1 To N x = Asc(a(i)) Select Case x Case 65 To 86 a(i) = Chr(Asc(a(i)) + 4) Case 87 To 90 a(i) = Chr(Asc(a(i)) - 22) End Select Next i Print For i = 1 To N Print a(i); Next i End Sub 6.下列程序的功能： 五个