第2题（1、0分）题号:1 2 9＇【程序改错】'题目:该程序实现将输入得0 —255 之间得正整数转换成二进制数O p t i on Explici tP riv a t e Sub Fo r m _Cl i ck ()Con st n = 8Dim a(n) A s I n tege r, s As Stri ng, m A s I n te g er, x A s Integerx = Va l (In p utB ox （”请输入一个0 — 2 55之间得正整数: ")) Prin t x** ＊* ＊＊＊***FOUND**Fo r m = 1 T o n(m ) = x Mod 2*** * *F^) D******＊** ＊Nex t mFor m =n To 0 S t e p —1* ＊********FOU N D * **** * * ** *s = Str(a( m ))Nex t mPri n t sE n d Sub答案:(答案1)For m = 0 To n======= 答案2)x= x \ 2 或x= int(x/2)=======(答案3)s = s + St r (a (m))第3题(l、0分) 题号:463'题目：以下程序功能就是输入三个数,由大到小排序。

Op t io n ExplicitDi m A A s I n tegerDim B As I n te g erD im C As I nt e gerP r ivat e Sub F o r m_Click()Dim nTemp A s IntegerA = V a l(ln putB o x (H P lease in put fi r st i nt e ger","输入正整数”))B = Val( I n putBo x (” Pl e a s e in put s eco nd int e ge r”，"输入正整数”))C = Va i (In pu tB o x(” P 1 e a se in put third int e ger ” ,"输入正整数”))F OU ND * * *****If A v= C T h enn Te m p = AA = BB = n Te mpE nd I f> ***** ＊FOUND**** * * * ***I f B <= C T hennTe mp = AA = CC = nTem p* * *FO UN D * ** **If A 〈= B T hennT e mp = BB = CC = n TempEnd IfPrint ” The in te g e rs in of der isE nd Sub答案:=======（答案1）=======I f A <= B The n==== == ===或===== === =If B >= A Th e n===== ==（答案2）= ======I f C >= A T hen=== ====（答案3）===== ==I f B 〈 = C Then= ===== ===或===== ====If C >= B Th en第4题（1、0分）题号：127'题目:下面程序可输出如下图形E n d IfA; B；C* * */ * ***** * **Opt io n Explic i tPrivate Sub For m _C 1 ick()Di m m As In teger , n As In t eger, s As St ring , i As In t e g e r , j AsI nte g e rn = 4Fo r i = 5 To 1 St ep —1Print S p c (n)F or j = 1 To 2* m — 1 P r int s;Next jPrintOUND*＊*Next iE nd Sub* **o U N D*** * * * ****/ ****** * ** ***** *FOUN * ******答案：==== ===（答案 1）=======Print S pc （ n ）;=======（答案 2）=======n = n - 1===== ==（答案 3）==== ===m = m + 1第5题 （1、0分）题号:4 69'题目：已知一个函数 f （ x ） = 1 000* s in （x ），利用绘图方法' 在图片框中显示其图形。

结果如图 1Op t i on E x plici tPr i v ate C o nst pi = 3、1 4159P r iv ate Sub man dl _C 1 ick ()〉 ********** 匚 Cl I MH**** * ** * **D i m x As In teg e rP icture1、Scale (- p i , -1 2 00)—( pi, 1200)**F O UND*＊ **For x = -p i To p i S tep p i1000 ＊ pi ＊ Sin(x ) )，vbRedEn d Sub答案：答案 1）= 咲 ******* **FO U N D *** *******P ic ture1、P S e t (x ,Dim x As Single^=^=^= ^=^=^=^= 或 ^=^=^= ^=^=^= ^=D i m x!_====_=(答案 2)_=_===_F o r x = -pi T o pi Step p i / 18 0=====_=(答案 3)====_==Picturel 、PS et (x, 1 0 00 * S in (x)) __ =_=_===或_=======Picture1、P Se t (x, S in(x )* 1 0 00), v bRe d第6题 (1、0分)题号：49 7'题目：编程求一个十进制整数n 得各位数字之与 ，设n 为小于或等于5位得数 Option Explic i tP r ivat e S u b F o rm_Click()Dim N As I nt eg er, S u m As I n teger, S 1 As Str ing , S2 As St rD im i As I n te g er, Ch A s Strin gSum _ 0N _ InputBox ("输入整数 n ”S 1 = Str(N )S1 = R T r im (S1)For i = 1 To Len(S 1)* FO U N D*** ***C h = Mid ( N, i , 1)Su m = Val(Ch )vbRedng ********* *F OU N D***I****** * * * *FO U ND*** * * * ***N e x t iPrint ”该整数得各位数之与就是: ”; SumE n d S ub答案:=== ====（答案1）== =====S1 = Trim（S1）== == ===（答案2）===== ==Ch = M id（S1, i, 1 ）= == ====（答案3）===== ==Sum = Su m + Val（C h）第7题（1、0分）题号：454＇题目:本程序得功能就是随机产生得10 个两位正整数，并进行递减排序。

Option Ex p licitP r ivate Su b C r eat eRND ()Di m T e m p As IntegerD im I As Inte gerDi m N As IntegerDim X( 10) As I n t e gerDim J A s In te gerN = 10P r in t "数据："For I = 1 To NFO UND***X(l) = In t(R n d () * 9 0)Pri nt X (I);Next lPrin tP r int ”排序：”For I = 0 To N - 1F or J = I+ 1 To N> ****** * * * * F OUN D**If X(I) > X (J) T h en* FOUND** * ***Te mp = X(I)X( J) = X( I)X (I) = Tem pEnd IfNe xt JPr int X(I)Next IPr i n tEn d SubPrivate S ub m a nd1_Click ()C r eateRNDEnd S u b答案:=======(答案1)=======X(I) = I n t(10 + R n d() * 90)NextPrint ” 5得”；"n 次方就是” ；sE nd Su b答案：=======(答案1) =======k= 1=======(答案 2)=======If X (I ) < X ( J ) T hen= == === =(答案 3)=== ====temp = X (J )第9题(1、0分) 题号：1 3 0'题目：以下程序段用于计算5得 N 次方。

Option ExplicitPr iva te S ub Di m n As Int e ger , k As In teg e r, s As Long n =Inp u tBox(” I np ut n ”)> * *** * *** * *FO u N D** * * * ** * * ** * ****** * *FO UN D ***s = 0D o W hi 1 e k <= ns = s * 5* ** * * * * * F O U N D*For m _C 1 i c k()=======(答案2)===== ==s= 1== ===== (答案3) ===== ==L o op第11 题(1、0 分) 题号：452'题目：用自定义函数得方法求s um(x)，求当一1<x< 1时,'s um(x)=x/2! +x A2/3! +x人3/4!+ ......... + x A n/ (n+1)!, / 当x> 1或x〈一1时，函数值为0。

当n <=0时，输入数' 据错误.X、N都就是由用户输入。

O pti o n E x plicitP r iv at e Su b ma nd1_ C lick()Dim s A s S ingl eDim n As Integer, x As Si ng 1 e, k As I n t e gern = V al (I n putB o x("Please in put a in teger va lue:” ))x = Val(I nputBo x ("Ple a se i np u t a sin gle valu e :"))If n 〈= 0 T henk = Ms g Box (” 数据输入错误！" , v b Re t ryCancel + v bExclamati o n, ”数据输入” )Ex i t Su bE n d Ifs = Sum( x，n)P r in t sEnd Su bFu n cti on Sum( x As Singl e , n A s Inte ge r)Dim i As I n teger , ss As Lon gs s = 1Sum = 0If x >1 O f x <— 1 Th e nExi t DoElseF o r i = 2 T o ns s = s s ＊ iS u m = x A （i — 1） / s sN e xt iEnd If End F unction答案：=======（答案 1）== =====e x i t Function=======（答案 2）=======For i = 2 T o n + 1=== ======或 = = =======Fo r i = 2 T o 1 +n == === ==（答案 3）=====s u m = s u m + x A （i - 1 ）/ s s第14题 （1、0分） 题号：1 3 6/ ***** F OUN D*** ** * * *** ＊FOUN D ** ＊＊* ****** F O UND* *** ******'题目：程序功能为打印下列图形** * * *O p t i o n Ex pli citPr i vate Sub F o r m _Clic k()C IsLo opPrin tNe x t iE nd S ub答案:=======(答案 1)====== Dim i As Inte ge rDim j As Inte ge r＇* * * * **** ** F O UND*** *** * ***Fo ri = 1 T o 7 ' * * * * * ** * * * FOUND**** * ** ***Fo r j = 1 T o 5P rin t "* ”；咲* * * * * * * * * FO UND* * * * ***For i = 1 To 5 =======（答案2）=== ====Fo r j = 1 T o i=======（答案3 ）=======Next j____ I—»I / ___________ I~~I y _______N ext第16题（1、0分）题号：461'题目：产生30个小于100 得成绩随机数,并统计出优、良' 、中等、及格、不及格数得个数, 并计算出成绩属' 于优秀段得成绩平均分。