2010秋VB01上机答案分析和总结.docx

2010年（秋）上机 VisualBasic（VB01）答案

一、改错

【题目】本程序的功能是，找出10～100之间的所有只有奇数真因子的整数。所谓数据n

的真因子是指除1和n之外的因子。

PrivateSubCmd1_Click()

Dimfac()AsInteger,nAsInteger

DimiAsInteger,snAsString,flagAsBooleanflag=False err位置错

Forn=10To100

flag=False

Calljsyz(n,fac,flag)

IfflagThen

sn=n:

Fori=1ToUBound(fac)sn=snfac(i),

Nexti

List1.AddItemLeft(sn,Len(sn)-1)EndIf

NextnEndSub

PrivateSubjsyz(nAsInteger,fa()AsInteger,flagAsBoolean)

DimiAsInteger,kAsInteger err nAsInteger重复定义Fori=2Ton-1

IfnModi=0Then

IfiMod20Thenk=k+1

ReDimPreservefa(k) err无Preserve

fa(k)=i

Else

ExitSub

EndIfEndIf

Nexti

Ifk0Thenflag=TrueEndSub

二、编程题

【题目】编写程序，随机生成一个元素值为10～40之间整数的4行5列数组；找出该二维数组的最大元素与最小元素,并将最大元素与最小元素的值以及相应的行号和列号输出到图片框中。（注意：等于数组最大元素值与最小元素值的数组元素都可能有多个）

OptionExplicitOptionBase1

PrivateSubCmdRun_Click()

Dima(4,5)AsInteger,iAsInteger,jAsIntegerDimmaxiAsInteger,miniAsIntegerRandomize

Fori=1To4

Forj=1To5

a(i,j)=Int(Rnd*31)+10Pic1.Printa(i,j);

NextjPic1.Print

Nexti

Callmaxmin(a,maxi,mini)Fori=1To4

Forj=1To5

Ifa(i,j)=maxiThenPic2.Printmaxi;i;jNextj

Nexti

Fori=1To4

Forj=1To5

Ifa(i,j)=miniThenPic2.Printmini;i;jNextj

NextiEndSub

PrivateSubmaxmin(a()AsInteger,maxvAsInteger,minvAsInteger)

DimiAsInteger,jAsIntegermaxv=a(1,1):minv=a(1,1)Fori=1ToUBound(a,1)

Forj=1ToUBound(a,2)

Ifa(i,j)maxvThenmaxv=a(i,j)

ElseIfa(i,j)minvThenminv=a(i,j)

EndIfNextj

NextiEndSub

PrivateSubCmdClear_Click()Pic1.Cls:Pic2.Cls

EndSub

PrivateSubCmdExit_Click()End

EndSub