大题-复习资料

难 中等简单-字符串处理-题目：对字符串进行加密处理。 加密过程: 将每个字母C加一序数K5，即 c=chr(Asc(c)-5), 这时 ZU， zu，YT 当加序数后的字母小于A或a则 c=Chr(Asc(c)-k +26)-Private Function EnyStr(strI As String) As String* Program *strnew = 加密后的新字符串For i = 1 To Len(strI) 依据字符串的长度确定循环次数 c = Mid(strI, i, 1) 取出第i个字符 If c Then空格不加密 c = Chr(Asc(c) - 5) If c a Or c =3000 then exit forNext i* End * Call YZJ(sum)End SubPrivate Sub YZJ(i As Integer) Dim OUT As Integer OUT = FreeFile Open App.Path & out.txt For Output As #OUT Print #OUT, i Close #OUTEnd Sub题目：(事件)单击窗体。 (响应)输出斐波那契数列1,1,2,3,5,8,13.第20个 数的值 即 f1=1 (n=1) f2=1 (n=2) fn=f(n-1)+f(n-2)(n3) 使用for.next语句完成程序，并将结果 存入变量sum中-Private Sub Form_Click() Dim sum As Integer, f1 As Integer, f2 As Integer f1 = 1 f2 = 1* Program * For i=3 to 20方法一F3=f2+f1F1=f2F2=f3Next iSum=f3 * Dim f(20) as integer方法二F(1)=f1F(2)=f2For i=3 to 20F(i)=f(i-1)+f(i-2)Next iSum=f(20) * End * Call YZJ(sum)End Sub题目：(事件)单击窗体。 (响应)求200300之间既能被3整除又能被7整除的数。 并求出所有数之和存入变量SUM中Private Sub Form_Click()Dim sum As Integersum = 0* Program *For I =200 to 300If I mod 3 =0 and I mod 7 =0 thenSum =sum +iEnd if Next i* End *YZJ (sum)End Sub题目： (事件)单击窗体。 (响应)求1-100中为5或7的倍数的和。请将结果 输出到窗体上,并存入所给变量SUM中。 使用while.wend语句完成程序-Private Sub Form_Click() Dim sum As Integer* Program *I=1While i500 * End *End S Call YZJ(sum)End Sub题目：编写程序，当单击窗体时求出 1+1/3+1/5+1/7+. 的和，直到所加项1/n小于10的-3方，所求结果用 变量s存放，并在窗体上输出计算结果。 (要求用While .Wend 循环来做此题)-Private Sub Form_Click()Dim s!, n%*Program*N=1Do While 1/n=0.001S=s+1/nN=n+2loop* End *wwjt CStr(s)End Sub题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+300的和，并将结果输出到窗体上。 将结果存入变量 SUM中-Private Sub Form_DblClick()Dim sum As Integer* Program * For i=3 to 300 step 3Sum=sum+iNext i Print sum * End * YZJ (sum)End Sub题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中2+4+6+.+48+50-Private Sub Form_Click()Dim s As Integer* Program *For i=2 to 50 step 2s=s+iNext i* End *YZJ (s)End Sub题目： (事件)单击窗体。 (响应)已知sum=1!-2!+3!-4!.-10!, 请将sum结果值输出到窗体上。 使用do while.loop语句完成程序- Private Sub Form_Click() Dim p As Long p变量存放阶乘的值 Dim sum As Long* Program * sum=0i=1do while i=10外部循环控制数列的项数p=1n表示通项：i！j=1do while j= I内部循环用来求通项p = p *jj=j+1loopsum = sum +(-1)(i+1)*pi=i+1loop * End * Call YZJ(sum)End Sub题目：(事件)单击窗体。 (响应)求1!+2!+3!+10!的值，并在窗体上输出。 结果存入变量L中-注意：请在指定的事件内编写代码。-Private Sub Form_Click()Dim l As Long* Program * L=0For i=1 to 10外部循环控制数列的项数N=1n表示通项：i！For j=1 to I内部循环用来求通项N=n*jNext jL=l+nNext i * End * YZJ (l)End Sub题目：编写程序计算以下累加和的结果 “1-2+3-4+5-6+7-20=”， 并把结果通过窗体打印出来 。-Private Sub Form_Click() Dim i%, s% i为循环变量，s保存累加和的结果 *Program* * End * wwjt sEnd Sub题目：(事件)单击窗体。 (响应)求1!+2!+3!+4!+5!并将结果输出到窗体上。 结果存入变量S中-Private Sub Form_Click()Dim s As Integers = 0* Program * End *YZJ (s)End Sub题目：(事件)双击窗体。 (响应)求3+6+9+12+15+18+300的和，并将结果输出到窗体上。 将结果存入变量 SUM中-Private Sub Form_DblClick()Dim sum As Integer* Program *Sum=0For i=3 to 300 step 3Sum=sum+iNext iPrint sum * End * YZJ (sum)End Sub题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中-Private Sub Form_Click()Dim s As Integer* Program *S=0For i=1 to 50If I mod 2 =0 then s=s+iNext i* End *YZJ (s)End Sub-【程序设计】-题目： (事件)单击窗体。 (响应)已知sum=1!-2!+3!-4!.-10!, 请将sum结果值输出到窗体上。 使用do while.loop语句完成程序- Private Sub Form_Click() Dim p As Long p变量存放阶乘的值 Dim sum As Long* Program * Sum=0I=1循环变量赋初值Do while i=10X=1For j=1 to iX=x*jNext jSum=sum+ (-1)(i+1)*xI=i+1loop * End * Call YZJ(sum)End Sub题目：(事件)单击窗体。 (响应)求1!+2!+3!+10!的值，并在窗体上输出。 结果存入变量L中-注意：请在指定的事件内编写代码。-Private Sub Form_Click()Dim l As Long* Program *Sum=0For i=1 to 10X=1For j=1 to iX=x*jNext jSum=sum+xNext iI = sumPrint l * End * YZJ (l)End Sub题目：编写函数fun其功能是：根据整型形参m， 计算如下公式的值：y=1/2!1/4!.1/m! (m是偶数)-Private Function fun(m As Integer) As Single* Program *y=0 不要对形参赋值for i=1 to m/2外部循环控制数列的项数a=1a 表示通项的分母for j=1 to 2*i内部循环求解通项a=a*jnext jy=y+1/aNext iFun=y函数过程一定要对函数名赋值 * End *End FunctionPrivate Sub Form_Load() Show Print fun(6) WWJT End Sub-数的判断与拆分-题目： 求1000以内的水仙花数（水仙花数一个三位数， 其各位数的立方和等于该数本身，公式如图1所示）。 要求将水仙花数保存到数组a()中，并打印到窗 体上。请用For循环结构实现。Private a() As Integer 请将水仙花数保存到数组中Private Sub Command1_Click()ReDim a(10)*Program*Dim i,x,kFor i =1000 to 1 step -1x=0x保存i各位数的立方和While i0X=x+ (i mod 10)3i=i10 对 mod 和 的运用是核心wendIf i=x thenprint ia(k)=i水仙花数保存到数组a()中k=k+1End ifNext i* End *wwjtEnd Sub题目：编写函数fun，函数的功能是：求一个 四位数的各位数字的立方和Private Function fun(n As Integer) As Long* Program *Sum=0Do while n0Sum=sum+(n mod 10)3n=n10LoopFun=sum* End *End FunctionPrivate Sub Form_Load() Show Print fun(1112) WWJTEnd Sub题目：编写函数fun，函数的功能是：判断一个数是否为素数。并显示相应提示。如：该数为素数时，显示素数；该数为非素数时，显示非素数要求使用For语句来实现，用布尔型变量flag作为该数是否为素数的标志，注意：不得使用Goto语句。Private Function fun(m As Long) As StringDim flag As Boolean*Program*For i=2 to m-1If m mod i =0 then Exit forNext iIf im-1 thenFlag=1ElseFlag=0End ifIf flag=1 thenFun=”素数”Else Fun=”非素数”End if* End *End FunctionPrivate Sub Form_Load() Show Print fun(225) NJIT_VBEnd Sub题目：编写函数fun其功能是:判断一个整数w的各位 数字平方之和能否被5整除 , 可以被5整除则返 回1 , 否则返回0-Private Function fun(w As Integer) As Boolean* Program *Do while w 0将各位数字的平方和累加到sumx=w mod 10sum=sum+x2w=w10loopif sum mod 5 =0 thenfun=1elsefun=0end if* End *End FunctionPrivate Sub Form_Load() Show Print fun(50) WWJTEnd Sub题目： (事件)单击窗体。 (响应)如果一个数的真因子之和等于这个数本身， 则称这样的数为“完全数”。例如，整数 28的真因子为1、2、4、7、14，其和是28。 因此28是一个完全数。请编写一个程序， 求出500以内最大的完全数。并存入变量SUM中。 使用for.next语句完成程序-Private Sub Form_Click() Dim sum As Integer* Program * For i=500 to 1 step -1X=0x用来存放真因子之和For j=1 to i/2If i mod j =0 then x=x+jNext jIf i=x then 是否为完全数的判断Sum=iExit forEnd ifNext i * End * Call cs(sum)End Sub题目：判断一个数是否是素数。-Private Function Prime(ByVal m As Integer) As Boolean* Program *Dim flag as booleanFor i=2 to sqr(m)If m mod i =0 then Exit forNext iIf isqr(m)+1 thenFlag=1ElseFlag=0End ifPrime =flag * End *End FunctionPrivate Sub Form_Load() Dim m, i As Integer Show m = Val(InputBox(请输入一个数) If Prime(m) = True Then Print 该数是素数 Else Print 该数不是素数 End If WWJTEnd Sub-问题求解-题目：有一个三位数，减去七能被七除尽，减去八能被 八除尽，减去九能被九除尽，当单击窗体时计算 并将这个数保存到变量r中，同时在窗体中输出这 个数是多少。Private Sub Form_Click() Dim i% i是循环变量 Dim r% 将结果保存到这个变量中 *Program*For i=100 to 999If (i-7) mod 7 =0 and (i-8) mod 8 =0 and (i-9) mod 9 =0 thenr=iPrint iExit forEnd ifNext i * End * wwjt rEnd Sub题目：将一张面值为100元的人民币等值换成100张5元、 1元和0.5元的零钞，要求每种零钞不少于1张， 问有多少种组合？将组合数目存入变量OUT中。-Private Sub Form_click() Show Dim out As Integer* Program *Cnt=0Dim x,y,z定义三个变量分别代表5元、1元、0.5元For x=1 to 20For y=1 to 100Z=100-x-yIf x*5+y+z*0.5=100 then cnt=cnt +1Next yNext xOut = cnt * End *WWJT outEnd Sub题目：(事件)双击窗体。 (响应)写程序解决百钱买百鸡问题：公鸡3元1只， 母鸡5元1只，小鸡一元3只，怎样用100元买 100只鸡。把结果输出到窗体上。 将答案数存放在变量N中Private Sub Form_dblClick()Dim n As Integern = 0* Program *Dim x,y,z 定义三个变量分别代表公鸡、母鸡、小鸡的数目For x=0 to 33For y=0 to 22Z=100-x-yIf x*3+y*5+z/3=100 then n=n+1Print “公鸡：”;x;”母鸡：”;y;”小鸡：”;zNext y,z* End *YZJ (n)End Sub-多路分支-题目：编写函数fun，函数的功能是：判断一个字符是字母字符、数字字符还是其他字符，并做相应的显示。字母字符显示字符串字母数字字符显示字符串数字其他字符显示字符串其他要求使用Select Case语句来实现。Private Function fun(n As String) As String*Program*Str=”If n”0” and n”a” and n”A” and n=1000 and x=2000 and x=3000 then y=x*0.85 Text2.text=y * End *End Sub题目： 随机产生100个学生的计算机课程的成绩。统计各 分数段的人数，即09、1019、2029、3039、 4049、5059、6069、7079、8089、90100， 请输出统计结果。 -Private Sub Command1_Click()*Program*For i=1 to 100S=int(100*rnd)If s=0 and s=90 then str1 =”优秀”If mark=80 and mark =70 and mark =60 and mark 70 then str1 =”及格”If mark a(j) Then t = a(i): a(i) = a(j): a(j) = t End If Next jNext i*For i = 1 To 10 Picture2.Print a(i);Next iFor i = 10 To 1 Step -1 Picture3.Print a(i);Next iEnd Sub题目： (事件)单击按钮。 (响应)随机产生N个两位正整数（N由输入对话框 输入，且N0），求出其中的最大数和最小 数，并在标签框Label1上显示最大数与最 小数的差。Dim x, t, s As IntegerDim n As String* Program *Dim a()n=inputbox(“”)redim a(n)for i=1 to na(i)= int(90*rnd+10)next ix=t=a(1)For i=1 to nIf a(i)x then x= a(i)If a(i)max then max=a(I,j)Next j,iFor i=1 to 4For j=1 to 5If a(I,j)=max then Print I,jEnd ifNext j,i*End* yzj (Text2)End Sub题目：编写函数fun，函数的功能是：计算n门课程 的平均值，计算结果作为函数值返回。 例如，若有5门课程的成绩是：92，76，69， 58，88，则函数的值为76.6。-Private Function fun(a() As Integer, n As Integer) As Double* Program *Avg=0Sum=0For i=1 to nSum=sum+a(i)Next iAvg=sum/nFun=avg * End *End FunctionPrivate Sub Form_Load() Show Dim a(5) As Integer, i As Integer a(1) = 92: a(2) = 76: a(3) = 69: a(4) = 58: a(5) = 88 Print fun(a, 5) WWJTEnd Sub