10级VB程序设计题.doc

VB程序设计题 （10级2、3班 程序汇总 2013—01--28） 第一部分 三大结构基本程序 1．编一个程序，打印出下面图形 * *** ***** ******* FOR I=1 TO 4 PRINT TAB（10-I）； FOR J=1 TO 2*I-1 PRINT “*“； NEXT J Print NEXT I 2. 编一段程序，从键盘输入3个整数，找出其中绝对值最小的数。 A=INPUTBOX(A=) B=INPUTBOX(B=) C=INPUTBOX(C=) MIN=ABS(A) IF ABS(B)MIN THEN MIN=ABS(B) IF ABS(C)MIN THEN MIN=ABS(C) PRINT MIN=;MIN 3. 编一个程序，打印出下面图形： ******** ******** ******** ******** FOR I=1 TO 4 PRINT TAB（10+I）； FOR J=1 TO 8 PRINT “*“； NEXT J PRINT NEXT I 4. 编程序，输出如下图形： A AB ABC ABCD ABCDE s$ = ABCDE FOR n = 1 to 5 PRINT LEFT$(s$,n) NEXT n 5. 编写程序，任意输入一个整数，判定该整数的奇偶性。 n = InputBox(请输入一个数) If n Mod 2 = 0 Then Print n; 是偶数 Else Print n; 是奇数 End If 6. 编写程序求1+2+3+…+1000的结果。 i = 1 Do While i = 1000 s = s + i i = i + 1 Loop Print s 7. 将一个字符串中的字符按倒序输出。 DIM A，B AS STRING A=INPUTBOX（“”） L=LEN（A） FOR I=L TO 1 STEP -1 B=B+MID（A，L，1） NEXT I PRINT B 8. 编写一个程序，用InputBox函数输入3个数，选出其中的最大数和最小数，显示于窗体上。 a = Val(InputBox(请输入第一个数：)) b = Val(InputBox(请输入第二个数：)) c = Val(InputBox(请输入第三个数：)) If a b Then m = a Else m = b If c m Then m = c Print 最大数：; m If a b Then n = a Else n = b If c n Then n = c Print 最小数：; n 9. 编写程序：输出3～100之间的所有奇数、奇数之和。要求每行输出10个数。 n = 0 Print 3～100间所有奇数： For i = 3 To 100 Step 2 Print i; Sum = Sum + i n = n + 1 If n Mod 10 = 0 Then Print Next i Print 和为：; Sum 10. 编程求出100～200之间的全部素数。 For n = 101 To 200 Step 2 k = INT(SQR(n)) i= 2 flag=0 While i=k AND flag=0 If n MOD i =0 then flag=1 Else i=i+1 EndIf Wend If flag=0 Then Print n, Next n 11. 编写程序求出S=1+(1+2)+(1+2+3)+…+(1+2+3+…+n)的值。 n = InputBox(请输入n的值) For i = 1 To n For j = 1 To i m = m + j Next j s = s + m Next i Print m 12. 某单位制定生产计划，未来五年的生产量年递增率为5%，从第六年起年递增率调整到8%，试计算常量翻一翻（基数的2倍）所需的最少年数。 S=1：N=0 DO N=N+1 IF N5 THEN S=S*(1+.08) ELSE S=S*(1+.05) END IF IF S=2 THEN EXIT DO LOOP PRINT N 13. 如果一个数的因子之和等于这个数本身，则称为“完全数”。例如，整数28的因子有1、2、4、7、14，其和等于28，因此28是一个完全数。编写程序求出1000以内的所有完全数 For i = 2 To 1000 s =