1、1VB 程序设计题（10 级 2、3 班 程序汇总 201301-28）第一部分 三大结构基本程序1编一个程序，打印出下面图形*FOR I=1 TO 4PRINT TAB（10-I） ；FOR J=1 TO 2*I-1PRINT “*“；NEXT JPrint NEXT I 2. 编一段程序，从键盘输入 3 个整数，找出其中绝对值最小的数。 A=INPUTBOX(“A=“)B=INPUTBOX(“B=“)C=INPUTBOX(“C=“)MIN=ABS(A)IF ABS(B) b Then m = a Else m = bIf c m Then m = cPrint “最大数：“; mIf a
2、5 THENS=S*(1+.08)ELSES=S*(1+.05)END IFIF S=2 THEN EXIT DOLOOP5PRINT N13. 如果一个数的因子之和等于这个数本身，则称为“完全数” 。例如，整数28 的因子有 1、2、4、7、14，其和等于 28，因此 28 是一个完全数。编写程序求出 1000 以内的所有完全数For i = 2 To 1000s = 0For j = 1 To i - 1If i Mod j = 0 Thens = s + jEnd IfNext jIf s = i Then Print i;Next i14. 输出 200300 之间不能被 5 整除的数
3、。要求每行输出 10 个数。 n = 0For i = 200 To 300If i Mod 5 y then x=x-y else y=y-xLOOP PRINT “THE GREATEST COMMON DIVISOR IS:”;X20. 编一个程序，求出 1 到 100 之间奇数之和、偶数之和。 SUMEVEN=0:SUMODD =0FOR I=1 TO 100IF I/2=I2 THENSUMODD=SUMODD+IELSESUMEVEN=SUMEVEN+IENDIFNEXT IPRINT “THE SUM OF EVEN IS:”;SUMEVENPRINT “THE SUM OF O
4、DD IS:”;SUMODD21. 计算 1+12+123+1234+123N 的值。其中 N 为小于 10 的自然数，从键盘输入其值。 N=VAL(INPUTBOX(“请输入 N:“)T=0：S=0FOR I=1 TO NT=T*10+IS=S+TNEXT IPRINT S22. 找出 1100 之间的全部“同构数” 。同构数出现在它的平方数的右端。如：5 的平方是 25，5 就是同构数。FOR I=1 TO 100J=10IF I=10 THEN J=1008IF I=100 THEN J=1000D=I*IIF D MOD J=I THEN PRINT INEXT I23. 编程计算 1
5、/1+2/3+5/8+13/21+的前 10 项之和。从第二项起其分子是前一项的分子与分母之和，分母是前一项的分母和本项的分子之和。A1=1：A2=1：S=0FOR I=1 TO 10T=A1/A2S=S+TA1=A1+A2A2=A2+A1NEXT IPRINT S24. 编程输出如下图形：12 223 33 3334 44 444 44445 55 555 5555 55555FOR J=1 TO 5A=0FOR K=1 TO JA=A*10+JPRINT TAB（7*（5+K-J）-K） ；A；NEXT KPRINT NEXT J25. 编程计算 1/1！+1/2！+ +1/N!的值，N
6、由键盘输入。N=VAL（INPUTBOX（“” ） ）9S=0FOR I=1 TO N FACT=1FOR J=1 TO IFACT=FACT*JNEXT JS=S+1/FACTNEXT IPRINT S26. 求 1！+2！+3 ！+100 ！Dim I as integer,j as integer,s as double,m as doubleS=0For i=1 to 100M=1For j=1 to iM=m*jNext jS=s+mNext iPrint “1！+2！+3 ！+100 ！=”;s27、输出 100-200 之间不能被 7 整除的数。Dim I as integerF
7、or i=100 to 200If I mod 7 Max Then Max = a(i)Next iPrint Max3. 有一个 35 的矩阵，求全部元素的平均值。SUM=0FOR I=1 TO 3FOR J=1 TO 5SUM=SUM+A（I，J）NEXT JNEXT IAVER=SUM/（3*5）PRINT AVER4. 按行给 45 矩阵赋值，再求出各行前四列之和，放在该行的第五列。DIM A（4，5） AS INTEGERFOR I=1 TO 4FOR J=1 TO 411A（I，J）=INPUTBOX（“” ） ）NEXT JNEXT IFOR J=1 TO 4A（J，5）=0F
8、OR K=1 TO 4A（J，5）=A（J，5）+A（J，K）NEXT KNEXT J5. Fibonacci 数列的第一项是 1，第二项是 1，以后各项都是前两项的和，编写一个函数，求 Fibonacci 数列第 N 项的值。Function Fibonacci(N As Integer)redim a(n)a(1) = 1a(2) = 1For i = 3 To Na(i) = a(i - 1) + a(i - 2)Next iFibonacci=a(n)End Sub6. 假设一维数组 a 有 20 个元素，编程将其按从小到大排序并输出。For i = 1 To 19For j = i+
9、1 To 20If a(i) a(j) Thenk = a(i)a(i) = a(j)a(j) = kEnd IfNext j, iFor i = 1 To 20Print a(i)Next i127. 编写程序，建立并输出一个 10 乘 10 的矩阵，该矩阵对角线元素为 1 ，其余元素均为 0。 Dim a(10, 10)For i = 1 To 10For j = 1 To 10If i = j Or i + j = 11 Then a(i, j) = 1 Else a(i, j) = 0Print a(i, j);Next jPrintNext i8. 假设已经有 10 个整数存放在一维
10、数组 B 中，请找出最小的数输出，同时输出其所在位置。 MIN=B（1）： POSITION=1FOR I=2 TO 10IF MINB（I） THENMIN=B(I):POSITON=IENDIFNEXT IPRINT “MIN=”;MIN, “POSITION=”;POSITION9.编写程序，在窗体上输出如图所示的“杨辉三角型” 。Dim a(10, 10) As IntegerFor t = 1 To 10a(t, t) = 1a(t, 1) = 1Next t13For i = 3 To 10 For j = 2 To i-1a(i, j) = a(i-1, j - 1) + a(i
11、-1, j)Next jNext iFor i = 1 To 10For j = 1 To iPrint a(i, j);Next jPrintNext i10. 将一个 3 行 4 列的矩阵的第 1 列和第 4 列互换。第 2 列和第 3 列互换。DIM A（3，4）FOR I=1 TO 3FOR J=1 TO 4A（I，J）=VAL（INPUTBOX（“” ） ）NEXT JNEXT IFOR I=1 TO 3FOR J=1 TO 2T=A（I，J）A（I，J）=A（I，5-J）A（I，5-J）=TNEXT JNEXT I11. 在一个已按升序排好的数组（10 个元素）中插入一个从键盘上输
12、入的数，使序列仍保持升序。DIM A（11）X=VAL（INPUTBOX（“” ） ）FOR I=1 TO 10IF XA（10） THEN A（11）=X12. 设有一个 4*4 的矩阵，求出两个对角线元素之和（注：矩阵中的每个数据元素是其行号和列号的乘积） 。99.Dim a(4, 4) As IntegerFor i = 1 To 4For j = 1 To 4a(i, j) = i * jNext jNext iFor i = 1 To 4For j = 1 To 4If i = j Or i + j = 5 Thens = s + a(i, j)End IfNext jNext iP
13、rint s11、随机产生 10 个100，200之间的整数，编程求最小值及其下标。Dim x(1 to 10) as integer,min as integer,I as integer,j as integerFor i=1 to 10X(i)=int(rnd*101+100)Print x(i);Next iMin=x(1):j=115For i=2 to 10If x(i)min then min=x(i):j=iNext iPrint “最小值：” ；min,“它所在位置：”;j12、随机产生 10 个100，200之间的整数，编程由大到小排序。Dim x(1 to 10) as
14、integer,I as integer,j as integer,c as integerPrint “产生的 10 个数：“For i=1 to 10X(i)=int(rnd*101+100)Print x(i);Next iPrint For i=1 to 9For j=i+1 to 10If x(i)x(j) then C=x(i)X(i)=x(j)X(j)=cNext jNext iPrint “由大到小排序后的数据序列是：”For i=1 to 10Print x(i);Next i第三部分 函数部分1. 编一个求 n 的阶乘的函数 Fact(n)。 FUNCTION FACT(N
15、)F=1FOR I=1 TO NF=F*INEXT IFACT=F16END FUNCTION（用 SUB 过程：Private sub jc(N,M)M=1FOR I=1 TO NM=M*INEXT IEND SUB )2. 定义并调用函数，求 3 至 20 之间个素数之和。PUBLIC FUNCTION ISPRIME（A）AS INTEGERK=SQR（A）FOR I=2 TO KIF A MOD I=0 THEN ISPRIME=0EXIT FUNCTIONENDIFNEXT IISPRIME=1END FUNCTIONSUB MAIN()SUM=0FOR I=3 TO 20IF ISPRIME(I)=1 THEN SUM=SUM+INEXT IPRINT “SUM=“；SUMEND SUB3、编写一个 Function 过程，计算圆面积。Private function ymj(r) as single Ymj=3.1415926*r2End function
