大题复习资料讲解学习.docx

1、大题复习资料讲解学习难 中等 简单 -字符串处理-题目：对字符串进行加密处理。 加密过程: 将每个字母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)

2、- 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

3、) 使用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+f1 F1=f2 F2=f3 Next i Sum=f3 * Dim f(20) as integer 方法二 F(1)=f1 F(2)=f2 For i=3 to 20 F(i)=f(i-1)+f(i-2) Next i Sum=f(20) * End * Call YZJ(sum)E

4、nd 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语句完成程序-

5、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.001 S=s+1/n N=n+2loop* End *wwjt CSt

6、r(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 3 Sum=sum+iNext i Print sum * End * YZJ (sum)End Sub题目：(事件)单击窗体。 (响应)求50以内所有偶数的和，并在窗体上输出出来。 将结果存入变量S中 2+4+6+.+48+50-Private Sub Form_Click()Dim s As

7、 Integer* Program *For i=2 to 50 step 2 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=0 i=1 do while i=10 外部循环控制数列的项数 p=1 n表示通项：i！j=1do while j= I 内部循环用来

8、求通项 p = p *j j=j+1 loop sum = sum +(-1)(i+1)*pi=i+1 loop * End * Call YZJ(sum)End Sub题目：(事件)单击窗体。 (响应)求1!+2!+3!+10!的值，并在窗体上输出。 结果存入变量L中-注意：请在指定的事件内编写代码。-Private Sub Form_Click()Dim l As Long* Program * L=0 For i=1 to 10 外部循环控制数列的项数 N=1 n表示通项：i！For j=1 to I 内部循环用来求通项 N=n*j Next j L=l+n Next i * End *

9、 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题目：(事件)双击窗体。 (响应)求

10、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 50 If I

11、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=10 X=1For j=1 to iX=x*jNext jSum=sum+ (-1)(i+1)*x I=i+1 loop

12、* 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 10 X=1 For j=1 to i X=x*j Next jSum=sum+xNext iI = sumPrint l * End * YZJ (l)End Sub题目：编写函数fun其功能是：根据整型形参m， 计算如下公式的值：y=1/2!1/4!.1/m! (m是偶数)-

13、Private Function fun(m As Integer) As Single* Program *y=0 不要对形参赋值for i=1 to m/2 外部循环控制数列的项数 a=1 a 表示通项的分母 for j=1 to 2*i 内部循环求解通项 a=a*j next j y=y+1/aNext iFun=y 函数过程一定要对函数名赋值 * End *End FunctionPrivate Sub Form_Load() Show Print fun(6) WWJT End Sub-数的判断与拆分-题目： 求1000以内的水仙花数（水仙花数一个三位数， 其各位数的立方和等于该数本

14、身，公式如图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=0 x保存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 S

15、ub题目：编写函数fun，函数的功能是：求一个 四位数的各位数字的立方和Private Function fun(n As Integer) As Long* Program *Sum=0Do while n0Sum=sum+(n mod 10)3 n=n10LoopFun=sum* End *End FunctionPrivate Sub Form_Load() Show Print fun(1112) WWJTEnd Sub题目：编写函数fun，函数的功能是：判断一个数是否为素数。并显示相应提示。如：该数为素数时，显示素数；该数为非素数时，显示非素数要求使用For语句来实现，用布尔型变量f

16、lag作为该数是否为素数的标志，注意：不得使用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 then Fun=”素数”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 A