VB程序改错40题.docx

VB程序改错40题.docx

《VB程序改错40题.docx》由会员分享，可在线阅读，更多相关《VB程序改错40题.docx（52页珍藏版）》请在冰豆网上搜索。

VB程序改错40题

第2题（1、０分）　题号:

1２９

＇【程序改错】

’题目:

该程序实现将输入得0－255　之间得正整数转

＇　换成二进制数

Oｐtｉon　Expliciｔ

PｒｉｖaｔeSubＦｏrｍ_Clｉck（）

　　Constｎ=8

　　　　　Dima（n）　　ＡsIｎtegeｒ，s　Ａｓ　String，mAｓIｎteｇer,xAｓ

Integer

　x=Ｖａl（InｐｕｔＢox（”请输入一个0—　２55之间得正整数：

"））

　　　Prinｔｘ

’**＊*＊＊＊***FOUND**＊＊**＊＊**

　　Foｒm=1Ｔon

　ａ（ｍ）=　x　Mod2

’****＊***＊*FOＵＮD******＊**＊

　ｘ=　x/２

　Nexｔm

　　　ｓ　="　”

　Form　=n　To　0Ｓtｅp－１

’*＊********FOUＮD＊****＊*＊＊*

　　　　s　=Str（a（m））

　Nexｔm

　Priｎts

　EｎdSub

答案:

（答案1）Form=0　Ton＝======（答案2）x=x\２或x＝int（x/2）＝==＝===（答案3）s　=s　＋Ｓｔr（a（m））

第3题（１、０分）　题号:

463

'题目：

以下程序功能就是输入三个数,由大到小排序。

’-----—-——-——---——－——-————-—－----—-———----—----——

OpｔioｎExplicit

DiｍＡＡs　Iｎteger

DimＢAsIｎteｇer

ＤimＣAsＩntｅger

PｒivatｅSub　Ｆoｒm＿Click（）

Dim　nTempＡsInteger

　A＝Vａl（InputBｏx（＂Ｐleaseinputfiｒstｉntｅger＂，"输入正整数”））

Ｂ＝Val（ＩnputBoｘ（”Plｅaｓeinputsｅｃｏnd　intｅgeｒ”,＂输入正整数"））

　　C=　Vaｌ（InｐｕtBｏx（”Pｌeａseinput　third　intｅger”,"输入正整数”））

'**＊****＊**ＦOUＮＤ*＊*****＊**

　If　Ａ　＜＝C　Tｈen

ｎTeｍp=Ａ

　　　　A=　Ｂ

　　B=ｎTeｍｐ

　　　EｎｄIｆ

　　’*****＊＊**＊FOUND****＊＊＊***

　IｆB　<=CＴhen

　　nTeｍｐ=A

　　A　=C

　　C　=nTemｐ

EｎdIf

　'*＊＊＊＊**＊*＊ＦＯUNＤ*＊＊**＊*＊＊＊

　　IfＡ〈=BＴhen

　nTｅmp=B

　　　　Ｂ=Ｃ

　　　Ｃ＝ｎTemp

　EndIf

Print　”Theinｔｅgｅrs　inｏｒder　is”;　A;B；C

EｎｄSub

答案:

==＝===＝（答案1）＝==＝=＝=

Iｆ　Ａ　<＝BTheｎ

==＝＝=＝===或====＝==＝=

IfB＞＝　AThｅn

==＝＝＝==（答案2）＝======

If　Ａ<＝Ｃ　Then

＝＝=====＝=或=======＝＝

IｆC　>=AＴhen

==＝====（答案3）＝＝＝＝＝==

Ｉf　B〈=Ｃ　Then

＝====＝===或====＝====

If　C>＝　BＴｈen

第4题（1、０分）题号:

127

’题目:

下面程序可输出如下图形:

’　　*

’　　*＊＊

’　****＊

'*＊***＊*

＇　　＊*****＊**

’———－------－—－—-———－——---——----————－———－—————－———

OptｉｏnExplicｉt

PrivateSubForｍ_Cｌick（）

DiｍｍAsInteger，ｎ　ＡｓInｔeger,sAsＳｔring，iAsInｔeｇeｒ,ｊAs

Iｎｔｅgｅr

n=4

m=　1

ｓ　=＂＊”

Foｒi=5　To1　Stｅｐ—１

　’**＊**＊****FＯUＮD***＊＊＊****

Print　Ｓpｃ（n）

Ｆor　j　=1To２　*m—　1

　Pｒints;

Nextj

　Print

＇******＊＊＊＊ＦOUND*＊*＊*＊＊*＊*

　n　=　n　＋1

　’＊**＊******FOUNＤ*＊******＊＊

ｍ　=m—1

Nexti

EｎｄSub

答案：

===＝===（答案1）＝======

PrintＳpc（ｎ）;

=＝====＝（答案2）==＝=＝==

n=n-1

====＝==（答案3）===＝===

ｍ＝m＋　　１

第５题（1、0分）题号:

４69

’题目：

已知一个函数f（x）=１000*ｓin（ｘ）,利用绘图方法

'　在图片框中显示其图形。

结果如图1

’-———--－－-——-—————-—－-—-—-－—-———-－—-————-—－—-—-——

ＯｐtｉonEｘpliciｔ

Ｐｒiｖate　Cｏnst　pi　=3、１4159

ＰrｉｖateSubmanｄ１_Cｌick（）

’＊＊＊**＊＊＊＊＊FOUND****＊**＊**

　　DｉmxAsIntegｅr

　Ｐicture1、Scale　（-ｐi，-１２00）—（ｐｉ，1200）

　　'＊****＊＊＊**FＯUND*＊**＊＊***＊

　Forx=　-pｉToｐiＳtepｐi

　　'*＊＊*＊＊＊＊**FOＵNＤ***＊*＊＊＊＊＊

　Pｉｃture1、PＳeｔ（x，　1000　＊pi　＊Sin（x））,vbRed

　Ｎeｘt　x

EnｄSub

答案：

=======（答案1）＝======

DimxＡｓSingle

===＝＝====或===＝===＝=

Ｄiｍ　x!

＝====＝=（答案2）＝=＝===＝

Ｆoｒｘ=-piTｏ　piSteppｉ　/　18０

=====＝=（答案3）====＝==

Picture1、ＰＳet　（ｘ，　1０00*Ｓin（x））,　vbRed

＝＝=＝=＝===或＝=======＝

Picture1、ＰSeｔ（x,　Ｓin（x）＊１０00）,　ｖbReｄ

第6题　（1、0分）题号：

4９7

'题目：

编程求一个十进制整数ｎ得各位数字之与,设n为小于或等于５位得数

OptionExplicｉt

PｒivatｅSｕbFｏrm_Click（）

　　DimNAsＩntｅｇer,　SｕmAsIｎteger,Ｓ1AsＳｔｒing，　S2　AsSｔrｉng

　Dｉｍi　AsIｎteｇer,ChAｓStrinｇ

　Sum＝0

Ｎ＝InputBox（"输入整数n”）

　Ｓ1　=Str（N）

　’＊*＊*＊*＊**＊ＦOUＮD***＊**＊***

　S1　=ＲTｒim（S1）

　　Fori=1　To　Len（S１）

　　　　　'**＊＊*****＊FOＵNＤ＊＊＊***＊***

Cｈ=Mid（N,i，1）

'******＊*＊*FOＵND***＊*＊***＊

　　　　Suｍ=Val（Ch）

Nｅxｔi

　　Print”该整数得各位数之与就是:

”;Sum

EｎdＳub

答案:

＝＝＝==＝=（答案1）＝＝=====

S1　=Trim（S1）

＝＝=＝===（答案2）===＝＝=＝

Ch＝Ｍid（S1，i,１）

＝=＝====（答案3）====＝=＝

Sum　＝Suｍ+Val（Ｃh）

第7题（1、0分）题号：

454

＇题目:

本程序得功能就是随机产生得10个两位正整数，并进行递减排序。

'－——-—－-—--—－-－—-－-——————－—————-－———-—－-——-——－-——

OptionExｐlicit

Pｒivate　SuｂＣrｅａｔeRND（）

　　Diｍ　ＴeｍpAsInteger

　　Ｄim　IAsＩｎｔｅger

Diｍ　NAsInteger

Dim　Ｘ（10）　AsIｎtｅger

DimJＡsInｔｅger

N=10

Ｐrｉｎt"数据：

＂

For　I=　1ToN

　　　'*****＊＊***ＦＯUND***＊＊****＊

　　X（I）=Ｉｎt（Rnｄ（）*9０）

　Ｐｒｉnt　Ｘ（I）；

　　NextI

　Prinｔ

　　Pｒint　”排序：

”

　ForI　=0ToＮ-　1

　ＦorJ=　I+１ToN

　　　’******＊*＊*ＦOUNＤ＊＊***＊****

　　If　Ｘ（Ｉ）>　X（J）Tｈen

　　　’＊***＊****＊FOUND*＊*＊＊＊*＊＊*

　　　　　Ｔｅmp=　X（I）

　X（J）=X（I）

　　　　X（I）=Temｐ

　　EndIf

　　　ＮｅxtJ

　　PrｉｎｔX（Ｉ）;

　NextＩ

Ｐｒiｎt

Enｄ　Sub

PrivateＳub　mａnd1_Click（）

　CｒeateRND

End　Sｕb

答案:

＝=＝====（答案1）===＝===

X（I）=Iｎt（10+Rｎd（）*90）

====＝==（答案2）=＝＝===＝

IfＸ（I）

＝=＝==＝=（答案3）==＝====

temp　=　X（Ｊ）

第9题（1、０分）　　题号：

1３0

’题目:

以下程序段用于计算５得N次方。

'-—-—-—-－—-—-—-－-－——--———-—-－———-－－－——---—-——————

Option　Explicit

ＰｒivaｔｅＳub　Forｍ_Cｌiｃk（）

　　ＤｉmnAsIntｅger，kAsIntegｅr,sAsLong

　　　　n　=InpｕtBox（”Iｎｐutn”）

’＊***＊***＊*FOＵNＤ＊＊*＊*＊＊*＊*

　k=0

’＊＊******＊*FOＵＮD＊＊＊**＊*＊**

　　s=　０

　　DｏＷhiｌek　<＝n

　　　　s=s*5

　　　k=k+1

＇*＊＊**＊*＊*＊FＯUＮD*＊＊*＊***＊*

Next

　　Print　”5得";　"ｎ次方就是"；ｓ

Ｅnd　Suｂ

答案：

=＝====＝（答案１）===＝===

ｋ＝1

=＝＝====（答案2）====＝＝=

s=１

=＝====＝（答案3）====＝=＝

Lｏop

第11题（1、0分）题号：

452

’题目：

用自定义函数得方法求ｓum（x），求当—1≤ｘ≤1时,

’　　ｓum（x）=x／2！

+x^2／3！

+x＾3／4！

＋……+ｘ^n/（n+1）!

＇　当x〉1或x〈—１时,函数