VB程序改错40题.docx

1、VB程序改错40题第2题 (1、分) 题号:1【程序改错】题目:该程序实现将输入得 0 255之间得正整数转 换成二进制数OtonExpliciPae Sub r_Clck（) Const = 8 Dim a(n) s Itege， sString， m A Iteer, x A Integer x = l（Inox（”请输入一个 0 55 之间得正整数：) Prin *FOUND* Fo m = 1 o n () =xMod 2*FOD* =x / Nex m = ” For m= nTo0 tp *FOUD* s= Str(a（m） Nex m Prit s Ed Sub答案:(答案1)F

2、or m = 0To n=(答案2)x= x 或x int(x/2）=（答案3)s= s r（a（m）第3题 (、分） 题号:463题目：以下程序功能就是输入三个数,由大到小排序。-Opio ExplicitDi sItegerDim As Iteerim As ntgerPivat SubomClick() DimnTemp s Integer A Vl(InputBx（lease input fist ntger， 输入正整数”) Val(nputBo(”Plae input sndintge”, 输入正整数）) C =Va(IntBx(”Pese inputthirdintger”, 输

3、入正整数”)） *OU* If CTen Tep = A = B = Te E I *FOUND* I B= C hen nTe = A A= C C= nTem Ed If *UN* If = B hen nTmp = B = Temp End If Print”The ingrsin deris”;A; B； CE Sub答案:=(答案1)=I B The=或=If B A Thn=(答案2)=If = A hen=（答案3)=fB = Then=或=IfC B en第4题 （1、分） 题号:127题目:下面程序可输出如下图形: * * * * *-Optn ExplictPrivate

4、Sub For_Cick()Di As Integer， Ineger, s As ring， i As Inee, As Igrn = 4m =1= ”Fo i = 5To 1St *FUD* Printp(n) orj= 1 To * m 1 Pint s; Next j Print *OUND* n=n 1 *FOUN* = m 1Next iE Sub答案：=(答案1)=Print pc();=(答案2)=n = n - 1=（答案3)= m 第题 （1、0分) 题号:69题目：已知一个函数f（x）=000*in（),利用绘图方法 在图片框中显示其图形。结果如图1-ton Eplici

5、iateCnstpi= 3、4159rate Sub man_Cick（） *FOUND* Dm x As Integr icture1、Scale(-i， -00)(， 1200） *FUND* For x =-p To i tep i *FON* Pture1、Pe （x，1000 pi Sin(x）), vbRed etxEn Sub答案：=（答案1)=Dim x Single=或=ix!=(答案2)=o = -pi Tpi Step p/18=(答案3)=Picture1、et(，100 * in（x)）,vbRed=或=Picture1、Se （x, in(x）00),bRe第6题（

6、1、0分) 题号：47题目：编程求一个十进制整数得各位数字之与,设n为小于或等于位得数Option ExplictPivat Sb Frm_Click() Dim N As nter,Sm As Iteger, 1 As ing，S2As Srng D iAs Iteer, Ch A Strin Sum 0 InputBox（输入整数n”） 1= Str(N） *OUD* S1= Tim（S1) For i = 1ToLen(S） *FON* C = Mid（N, i， 1） *FOND* Su = Val(Ch） Nx i Print ”该整数得各位数之与就是:”; SumEd ub答案:=

7、(答案1)=S1= Trim（S1)=(答案2）=Ch id(S1， i, )=（答案3）=Sum Su + Val(h)第7题 （1、0分） 题号：454题目:本程序得功能就是随机产生得10个两位正整数，并进行递减排序。-Option ExlicitPivateSu reRND（） Diep As Integer imI As ger DiN As Integer Dim（10)As Itger Dim J s Inger N = 10 rt 数据： ForI =1 To N *UND* X(I) = t(Rn() * 9） nt(I）； Next I Prin Pint”排序：” For

8、I= 0 To -1 or J =I + To N *OUN* If（） X（J） Ten *FOUND* mp =X(I） X（J） = X（I） X（I) = Tem End If xt J Pr X（）; Next itEnSubPrivate ubmnd1_Click（) CeateRNDEndSb答案:=(答案1)=X(I) = It（10 + Rd() * 90）=(答案2）=If (I） X（J）hen=（答案3)=temp=X（)第9题 (1、分)题号：10题目:以下程序段用于计算得N次方。-OptionExplicitiva ubFor_Cik() m n As Intger， k As Integr, s As Long n= InptBox(” Iut n ”）*FON* k = 0*FOD* s = D hie k n s = s * 5 k = k + 1*FUD* Next Print”5得;次方就是； ndSu答案：=(答案）=1=(答案2）=s=(答案3）=Lop第11题 (1、0分) 题号：452题目：用自定义函数得方法求um(x)，求当11时, um(x)=x2！+x23！+x34！+n/（n+1)!, 当x1或x时,函数