2010秋VB03上机答案分析和总结.docxVIP

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

一、改错

【题目】本程序的功能是，在5张卡片上写有1～5五个数字，对卡片进行排列，找出相邻卡片以及首尾卡片上的数字不相邻的所有排法。

PrivateSubCmdRun_Click()

DimiAsLong,jAsInteger,SAsString*5,Char(5)AsString*1DimBLAsBoolean

‘BL=False 位置错

Fori=12345To54321

BL=FalseS=CStr(i)

CallValidate(S,Char,BL)IfBLThen

Forj=2ToLen(S)

IfAbs(Char(j-1)-Char(j))=1ThenExitFor

EndIfNextj

IfjLen(S)AndAbs(Char(1)-Char(5))1Then errOrList1.AddItemi

EndIfEndIf

NextiEndSub

PrivateSubValidate(SAsString,Ch()AsString*1,FlgAsBoolean)DimiAsInteger,jAsInteger

Fori=1To5

Ch(i)=Mid(S,i,1)

IfCh(i)=0OrCh(i)5ThenExitSub errExitForForj=1Toi-1

IfCh(i)=Ch(j)ThenExitSub

EndIfNextj

Nexti

Flg=TrueEndSub

二、编程题

【题目】编写程序，在1001～9999范围内，找出满足下列条件的数对：一个首尾数字相同的素数，将该数字的百位和十位数字互换后得到一个新的4位数也是一个素数；并要求数对的第一个数比第二个数小。例如：(10211201)、(12011021)只取第一对。

OptionExplicit

PrivateSubCmdRun_Click()

DimpAsString,kAsInteger,nAsIntegerFork=1001To9999

p=CStr(k)

IfLeft(k,1)=Right(p,1)ThenCallTransform(k,n)

IfPrime(k)AndPrime(n)AndknThen

Text1=Text1(k n)vbCrLfEndIf

EndIfNextk

EndSub

PrivateFunctionPrime(nAsInteger)AsBooleanDimkAsInteger

Fork=2ToSqr(n)

IfnModk=0ThenExitFunctionNextk

Prime=TrueEndFunction

PrivateSubTransform(nAsInteger,MAsInteger)DimiAsInteger,S1AsString,S2AsStringS1=CStr(n)

Fori=Len(S1)To1Step-1S2=S2Mid(S1,i,1)

Nexti

M=Val(S2)

EndSub

PrivateSubCmdClear_Click()Text1=CmdRun.SetFocus

EndSub

PrivateSubCmdExit_Click()End

EndSub