大题-复习资料.docx

难 中等 简单 字符串处理 题目：对字符串进行加密处理。 加密过程 : 将每个字母C加一序数K= 5, 即卩c=chr(Asc(c)-5), 这时 Z — U , z f u , Y f T… 当加序数后的字母小于A或a则c=Chr(Asc(c)-k +26) Private Function EnyStr(strI As String) As String ********** Program ********* ‘加密后的新字符串 ‘加密后的新字符串 依据字符串的长度确定循环次数 取出第 i 个字符 ‘空格不加密 For i = 1 To Len(strI) c = Mid(strI, i, 1) If c Then c = Chr(Asc(c) - 5) If c a Or c A Then c = Chr(Asc(c) - 5 + 26) strnew = strnew + c Else strnew = strnew + End If Next i EnyStr = strnew ********** End ************* End Function Private Sub Form_Load() Show Print EnyStr(abc def xyz) WWJT End Sub 题目：统计字符串中的单词个数。 算法思路 : (1)从文本(字符串)的左边开始，取出一个字符； 设逻辑量 WT 表示所取字符是否是单词内的字符，初值设为 False (2)若所取字符不是 空格， 逗号， 分号或感叹号等单词 的分隔符，再判断 WT是否为True,若WT不为True则表是 新单词的开始， 让单词数 Nw二Nw+1，让 WT二True; (3)若所取字符是 空格, 逗号, 分号或感叹号等单词的分 隔符, 则表示字符不是单词内字符,让 WT=False; (4) 再依次取下一个字符,重得( 2) (3)直到文本结束。 Private Function CountWord(strI As String) As Integer Program*********I ********** Program ********* wt = 0 nw = 0 For i = 1 To Len(strI) ch = Mid(strI, i, 1) If ch = Or ch = , Or ch = ; Or ch = ! Or ch = . Then wt = 0 Elsenw wt =End IfEnd If Else nw wt = End If End If = nw + 1 1 If wt = 0 Then Next i CountWord = nw ********** End ************* End Function Private Sub Form_Load() Show Print 单词数： CountWord(Hello,Word!Good Morning.) WWJT End Sub 数列求和 题目： (事件 )单击窗体。 (响应)求从 100到 1000之间所有是 3 的倍数的数之 和，当和大于 3000 时，停止计算并输出和。请将结果输 出到窗体上 ,并存入所给变量 SUM 中。使用 for...next 语 句完成程序 Private Sub Form_Click() Dim sum As Integer ***************** Program ************** For i=100 to 1000 If i mod 3=0 then sum=sum+i If sum=3000 then exit for Next i *************** End ************************* Call YZJ(sum) End Sub Private Sub YZJ(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path \out.txt For Output As #OUT Print #OUT, i Close #OUT End Sub 题目： (事件)单击窗体。 (响应)输出斐波那契数列 1,1,2,3,5,8,13...第 20个 数的值 即 f1=1 (n=1) f2=1 (n=2) fn=f(n-1)+f(n-2)(n 3) 使用 for...next 语句完成程序，并将结果 存入变量 sum 中 Private Sub Form_Click() Dim sum As Integer, f1 As I