春等级考试卷上机答案.pdfVIP

2011年（春）上机VisualBasic（VB07）答案

一、改错

【题目】本程序的功能是，生成一个n行4列的整数数组，该数组每一行第一列的元素是随

机生成的一个不含数字0的三位整数，其余三列元素的值分别是前一列元素各位数字的连

乘积。n使用InputBox函数输入。

PrivateSubCommand1_Click()

DimnAsInteger,ra()AsInteger

DimkAsInteger,iAsInteger,jAsInteger

n=InputBox(数据个数:,,4)

ReDimra(n,4)

i=1

Do

k=Int(Rnd*899)+100

IfInStr(CStr(k),0)=0Then

ra(i,1)=k

Pic1.PrintRight(ra(i,1),4);

Forj=2To4

ra(i,j)=fun(ra(i,j-1))

Pic1.PrintRight(ra(i,j),4);

Nextj

Pic1.Print

i=i+1位置错

EndIf

LoopUntilin

EndSub

PrivateFunctionfun(ByvalnAsInteger)AsInteger

fun=1

Do

fun=fun*(nMod10)fun*nMod10

n=n\10

LoopWhilen0n=0

EndFunction

二、编程题

【题目】编写程序，把一个汉字的2进制表示的机内码，转换成相应的区位码。

PrivateSubCmdTrans_Click()

DimstAsString,pAsString,qAsString,nAsInteger

st=Text1

p=Left(st,8)

q=Right(st,8)

Text2=CStr(b2d(p)-160)CStr(b2d(q)-160)

EndSub

PrivateFunctionb2d(stAsString)AsInteger

DimkAsInteger,pAsString*1,nAsInteger

n=Len(st)

k=0

Do