计算机二级VB历年真题解析 过程2 .ppt

历年真题解析（二） ７．本程序的功能是从给定的纯英文字符串中找出最长的一个按字母顺序排列的子串。程序界面参见图 1 。（05春填空7） ８．下面程序的功能是找出由两个不同的数字组成的回文平方数。程序界面参见图 2 。（05春填空8） ９．下面程序的功能是随机生成 10 个不同的两位数，从中找出所有互质数对。若两个数除了 1 以外没有其他公约数，这两个数就是互质数。其中函数 Rec 是一个递归函数。程序界面参见图 3 （05春填空9） 7．下面程序的功能是，验证任意一个大于5的奇数可表示为3个素数之和。完善程序，实现以上功能。（05年秋填空题7） 8．将20个棋子围成一圈，按顺时针方向从1-20给棋子编号，从中取出棋子的规则是：从某编号棋子开始取出第1个棋子，然后按顺时针方向围绕周数棋子，从1数到2取第2个，再从1数到3取第3个，再从1数到4取第4个……直到取完。本程序的功能就是找出依照上述规则取棋子的编号序列，使得最后一个被取棋子的编号为指定的编号。例如：若指定最后取棋子的编号为9，则必须从编号为17的棋子开始取第一个棋子，取棋子的顺序是：17，19，2，6，11，18……。完善程序，实现以上功能。（05年秋填空题8） 9.下面程序的功能是，找出100以内所有可以表示成3个连续自然数之和的数。完善程序，实现以上功能。（06年春填空9） 8.本程序模拟裁判评分，设有8名裁判，打分范围为7.0到10.0（小数点后取一位），去掉一个最高分和一个最低分后，所得总分的平均分就是选手最后得分（四舍五入，保留1位小数）（06年秋填空8） 8、下面程序的功能是，对N阶方阵A中与副对角线平行的各条斜线（包括副对角线本身在内，共有2N-1条，如图示）上的元素分别进行累加求和并进行比较，求出累加和的最大值Max。过程Count的功能是计算各条斜线上的元素和；计算分两步进行：先求副对角线和其上方斜线上的元素和，再求副对角线下方斜线上的元素和。（本程序设定N=5，数据从文件data.txt中读取）(07年春填空8) 9、下面程序的功能是验证一个命题：对任何一个非零的正整数，若为偶数则除以2，若为奇数则乘3加1，得到一个新的正整数后再按照上面的法则继续演算，经过若干次演算后得到的结果必然为1。(07年春填空9) 7．定义方阵的一种范数为该方阵各列元素的绝对值之和中的最大值。以下程序的功能是求一个4*4方阵的范数。该方阵的数据是随机生成的-20~20之间的整数。(07年秋填空7) 8．下面程序的功能是：找出仅由数字1、2、3、4组成的4位素数，要求每个素数由4个不同数字组成。算法提示：函数Validate用于验证一个4位数是否由4个不同数字组成。在函数中用A数组的各个元素分别对应数字0~9，只要某数字出现在四位数中，无论几次，均将该数字对应的数组元素值置为1。(07年秋填空8) 9．下面程序的功能是：首先生成一个由小到大已排好序的整数数组，再输入一个数据，单击“插入”按钮会自动把这个数据插入到原数组适当的位置，并保持数组的有序性。(07年秋填空9) * * * * Option ExplicitPrivate Sub Command1_Click()　　 Dim st As String　　 st = Text1　　 Text2 = max_st(st)End Sub Private Function max_st(st As String) As String Dim i As Integer, sta As String Dim p As String p = Mid(st, 1, 1) For i = 1 To Len(st) - 1 If Asc(Mid(st, i + 1, 1)) - Asc(Mid(st, i, 1)) = 1 Then ____________________ Else If Len(p) 1 And Len(p) Len(sta) Then sta = ______ End If _____________________ End If Next i If Len(p) 1 And Len(p) Len(sta) Then ____________ Else max_st = sta End If End Function p = p Mid(st, i + 1, 1) p p = Mid(st, i + 1, 1) max_st = p Option