Visual Basic程序设计考试试卷[A](2005-2006学年度第二学期)

4,5为边长可以形成多少个三角形,不考虑相同情况,请输出这些三角形的三个边长。(10分)3.用递归的方法求两个正整数a,b的最大公约数,已知a和b的公约数于b和amodb的公约数相同。请写出相应的Function。(12分)武汉职业技术学院2005~2006学年度第一学期考试试卷[A]考试课目:《VisualBasic程序设计》答题纸班级学号姓名题号一二三四总分分数一、选择题(10╳2=20分)题号12345678910答案badbcdbdbd二、填空题(13╳2=26分)1.组合框2顺序方式3.94.Picture1.picture=loadpicture()5timer6.rnd7.Xmod58.x9.3010.5011.keypress12.additem13.三、读程填程题(5╳2=104╳1=44╳2=8共22分)1.trueImodj=0flag=falses=s+i2.turefalsefalsefalseloadpicture()source.indexfalsedrag四、编程题(10+10+12=32分做在答题纸上,另发)1.mand1_Click()Dima(5)AsIntegerFori=1To5a(i)=Val(InputBox("输入数据"))Nextima=a(1):xb=1Fori=2To5Ifa(i)>maThenma=a(i):xb=iNextiPrintma,xbEndSub2.mand1_Click()s=0Fora=1To5Forb=1ToaForc=1TobIfb+c>aThens=s+1:Printa,extc,b,aPrintsEndSub3.Functiongys(mAsInteger,nAsInteger)AsIntegerIfn=0Thengys=mElsegys=gys(n,mModn)EndIfEndFunction