上海海事大学VB程序改错40题.docx

上海海事大学VB程序改错40题.docx

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

上海海事大学VB程序改错40题

第2题（1.0分）题号:

129

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

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

'换成二进制数

'------------------------------------------------

OptionExplicit

PrivateSubForm_Click（）

Constn=8

Dima（n）AsInteger,sAsString,mAsInteger,xAsInteger

x=Val（InputBox（"请输入一个0-255之间的正整数：

"））

Printx

'**********FOUND**********

Form=1Ton

a（m）=xMod2

'**********FOUND**********

x=x/2

Nextm

s=""

Form=nTo0Step-1

'**********FOUND**********

s=Str（a（m））

Nextm

Prints

EndSub

答案：

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

Form=0Ton

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

x=x\2

=========或=========

x=int（x/2）

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

s=s+Str（a（m））

第3题（1.0分）题号:

463

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

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

'------------------------------------------------

OptionExplicit

DimAAsInteger

DimBAsInteger

DimCAsInteger

PrivateSubForm_Click（）

DimnTempAsInteger

A=Val（InputBox（"Pleaseinputfirstinteger","输入正整数"））

B=Val（InputBox（"Pleaseinputsecondinteger","输入正整数"））

C=Val（InputBox（"Pleaseinputthirdinteger","输入正整数"））

'**********FOUND**********

IfA<=CThen

nTemp=A

A=B

B=nTemp

EndIf

'**********FOUND**********

IfB<=CThen

nTemp=A

A=C

C=nTemp

EndIf

'**********FOUND**********

IfA<=BThen

nTemp=B

B=C

C=nTemp

EndIf

Print"Theintegersinorderis";A;B;C

EndSub

答案：

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

IfA<=BThen

=========或=========

IfB>=AThen

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

IfA<=CThen

=========或=========

IfC>=AThen

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

IfB<=CThen

=========或=========

IfC>=BThen

第4题（1.0分）题号:

127

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

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

'*

'***

'*****

'*******

'*********

'------------------------------------------------

OptionExplicit

PrivateSubForm_Click（）

DimmAsInteger,nAsInteger,sAsString,iAsInteger,jAsInteger

n=4

m=1

s="*"

Fori=5To1Step-1

'**********FOUND**********

PrintSpc（n）

Forj=1To2*m-1

Prints;

Nextj

Print

'**********FOUND**********

n=n+1

'**********FOUND**********

m=m-1

Nexti

EndSub

答案：

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

PrintSpc（n）;

=========或=========

PrintSpc（i）;

=========或=========

?

Spc（n）;

=========或=========

?

Spc（i）;

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

n=n-1

=========或=========

n=-1+n

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

m=m+1

第5题（1.0分）题号:

469

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

已知一个函数f（x）=1000*sin（x），利用绘图方法

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

结果如图1

'------------------------------------------------

OptionExplicit

PrivateConstpi=3.14159

PrivateSubCommand1_Click（）

'**********FOUND**********

DimxAsInteger

Picture1.Scale（-pi,-1200）-（pi,1200）

'**********FOUND**********

Forx=-piTopiSteppi

'**********FOUND**********

Picture1.PSet（x,1000*pi*Sin（x））,vbRed

Nextx

EndSub

答案：

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

DimxAsSingle

=========或=========

Dimx!

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

Forx=-piTopiSteppi/180

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

Picture1.PSet（x,1000*Sin（x））,vbRed

=========或=========

Picture1.PSet（x,Sin（x）*1000）,vbRed

第6题（1.0分）题号:

497

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目:

编程求一个十进制整数n的各位数字之和，设n为小于或等于5位的数。

'------------------------------------------------

OptionExplicit

PrivateSubForm_Click（）

DimNAsInteger,SumAsInteger,S1AsString,S2AsString

DimiAsInteger,ChAsString

Sum=0

N=InputBox（"输入整数n"）

S1=Str（N）

'**********FOUND**********

S1=RTrim（S1）

Fori=1ToLen（S1）

'**********FOUND**********

Ch=Mid（N,i,1）

'**********FOUND**********

Sum=Val（Ch）

Nexti

Print"该整数的各位数之和是：

";Sum

EndSub

答案：

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

S1=Trim（S1）

=========或=========

S1=lTrim（S1）

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

Ch=Mid（S1,i,1）

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

Sum=Sum+Val（Ch）

=========或=========

Sum=Sum+Val（Ch）

第7题（1.0分）题号:

454

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

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

'------------------------------------------------

OptionExplicit

PrivateSubCreateRND（）

DimTempAsInteger

DimIAsInteger

DimNAsInteger

DimX（10）AsInteger

DimJAsInteger

N=10

Print"数据：

"

ForI=1ToN

'**********FOUND**********

X（I）=Int（Rnd（）*90）

PrintX（I）;

NextI

Print

Print"排序：

"

ForI=0ToN-1

ForJ=I+1ToN

'**********FOUND**********

IfX（I）>X（J）Then

'**********FOUND**********

Temp=X（I）

X（J）=X（I）

X（I）=Temp

EndIf

NextJ

PrintX（I）;

NextI

Print

EndSub

PrivateSubCommand1_Click（）

CreateRND

EndSub

答案：

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

X（I）=Int（10+Rnd（）*90）

=========或=========

X（I）=Int（10+Rnd（）*90）

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

IfX（I）

=========或=========

IfX（I）<=X（J）Then

=========或=========

IfX（J）>X（I）Then

=========或=========

IfX（J）>=X（I）Then

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

temp=X（J）

第9题（1.0分）题号:

130

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

以下程序段用于计算5的N次方。

'------------------------------------------------

OptionExplicit

PrivateSubForm_Click（）

DimnAsInteger,kAsInteger,sAsLong

n=InputBox（"Inputn"）

'**********FOUND**********

k=0

'**********FOUND**********

s=0

DoWhilek<=n

s=s*5

k=k+1

'**********FOUND**********

Next

Print"5的";"n次方是";s

EndSub

答案：

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

k=1

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

s=1

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

Loop

第11题（1.0分）题号:

452

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

用自定义函数的方法求sum（x），求当-1≤x≤1时，

'sum（x）=x/2！

+x^2/3!

+x^3/4!

+……+x^n/（n+1）!

，

'当x〉1或x〈-1时，函数值为0。

当n〈=0时，输入数

'据错误。

X、N都是由用户输入。

'------------------------------------------------

OptionExplicit

PrivateSubCommand1_Click（）

DimsAsSingle

DimnAsInteger,xAsSingle,kAsInteger

n=Val（InputBox（"Pleaseinputaintegervalue:

"））

x=Val（InputBox（"Pleaseinputasinglevalue:

"））

Ifn<=0Then

k=MsgBox（"数据输入错误！

",vbRetryCancel+vbExclamation,"数据输入"）

ExitSub

EndIf

s=Sum（x,n）

Prints

EndSub

FunctionSum（xAsSingle,nAsInteger）

DimiAsInteger,ssAsLong

ss=1

Sum=0

Ifx>1Orx<-1Then

'**********FOUND**********

ExitDo

Else

'**********FOUND**********

Fori=2Ton

ss=ss*i

'**********FOUND**********

Sum=x^（i-1）/ss

Nexti

EndIf

EndFunction

答案：

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

exitFunction

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

Fori=2Ton+1

=========或=========

Fori=2To1+n

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

sum=sum+x^（i-1）/ss

第14题（1.0分）题号:

136

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

程序功能为打印下列图形：

'*

'**

'***

'****

'*****

'------------------------------------------------

OptionExplicit

PrivateSubForm_Click（）

Cls

DimiAsInteger

DimjAsInteger

'**********FOUND**********

Fori=1To7

'**********FOUND**********

Forj=1To5

Print"*";

'**********FOUND**********

Loop

Print

Nexti

EndSub

答案：

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

Fori=1To5

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

Forj=1Toi

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

Nextj

=========或=========

Next

第16题（1.0分）题号:

461

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

产生30个小于100的成绩随机数，并统计出优、良

'、中等、及格、不及格数的个数，并计算出成绩属

'于优秀段的成绩平均分。

'------------------------------------------------

OptionExplicit

PrivateSubForm_Click（）

Dimk%,a%,bjg%,jg%,zd%,lh%,yxAsInteger

DimpjfAsInteger

Randomize

pjf=0

Fork=1To30

'**********FOUND**********

a=Int（Rnd（））

SelectCasea

Case0To59

bjg=bjg+1'不及格

Case60To69

jg=jg+1'及格

Case70To79

zd=zd+1'中等

Case80To89

lh=lh+1'良好

Case90To100

yx=yx+1'优秀

'**********FOUND**********

pjf=pjf+1

EndSelect

Nextk

'**********FOUND**********

Ifyx>0Thenpjf=pjf/30

Debug.Print"不及格"+Str$（bjg）+"人，及格"+Str$（jg）+"人，中等"+Str$（zd）+"人";

Debug.Print"良好"+Str$（lh）+"优秀"+Str$（yx）+"人"

Debug.Print"优秀分数段成绩平均分"&pjf

EndSub

答案：

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

a=Int（Rnd（）*100）

=========或=========

a=Int（Rnd*100）

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

pjf=pjf+a

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

Ifyx>0Thenpjf=pjf/yx

第17题（1.0分）题号:

456

'------------------------------------------------

'【程序改错】

'------------------------------------------------

'题目：

挑选单数并排序程序：

程序启动后由计算机自动产

'生20个属于[100，300]之间的随机整数，单击"显

'示全体"按钮时，在Form1上显示这20个随机数；

'单击"显示奇数"按钮时，在Form1上显示其中的奇数；

'单击"排序"按钮时，在Form1上将这些奇数从小到大显示。

'要求显示格式为每行显示5个数据。

'------------------------------------------------

OptionExplicit

Privatea（20）AsInteger,b（20）AsInteger

PrivatekAsInteger

PrivateSubcmdodd_Click（）

DimIAsInteger

k=0

ForI=1To20

'**********FOUND**********

Ifa（I）/2=Int（a（I）/2）Then

k=k+1

b（k）=a（I）

EndIf

NextI

ForI=1Tok

Printb（I）;

'**********FOUND**********

IfInt（I/5）<>I/5ThenPrint

NextI

Print

EndSub

PrivateSubcmdAll_Click（）

Randomize

DimIAsInteger

ForI=1To20

'**********FOUND**********

a（I）=Int（Rnd（）*20+100）

Printa（I）,

IfInt（I/5）=I/5ThenPrint

NextI

Print

EndSub

PrivateSubcmdsort_Click（）

DimIAsInteger

DimJAsInteger

DimTempAsInteger

ForI=1Tok-1

ForJ=ITok

Ifb（I）>b（J）ThenTemp=b（I）:

b（I）=b（J）:

b（J）=Temp

NextJ