VB考试复习题培训资料.doc

《VB考试复习题培训资料.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1、已知x,y,z3个变量中存放了3个不同的数，比较它们的大小并进行调整，使得x

2、除的数的和PrivateSubCommand1_Click()Dimi%Fori=0To200IfiMod11=0OriMod5=0ThenSum=Sum+iEndIfNextiPrint"总和是";SumEndSub3、从键盘输入三角形的三条边a,b,c的值，根据其数值，判断能形。PrivateSubCommand1_Click()Dima%,b%,c%a=Val(InputBox("inputa"))b=Val(InputBox("inputb"))c=Val(InputBox("inputc"))Ifa+b>cAndb+c>aAnda+c>bThenMsgBox("能构成三角形")El

3、seMsgBox("不能构成三角形")EndIfEndSub4、随机产生10个[30,100]内的整数，求最小值及所对应的下标。PrivateSubForm_click()Dima(1To10)AsInteger,zb%,mina%,i%Fori=1To10a(i)=Int(Rnd*71+30)Printa(i);Nextizb=1mina=a(1)Fori=2To10Ifmina>a(i)Thenmina=a(i):zb=iNextiPrintPrint"min=";mina,"下标=";zbEndSub5、随机产生10个[30,100]内的整数，求最大值、最小值和平均值。Dima(1To

4、10)AsInteger,amin,amax,i%,avera!PrivateSubForm_Click()Fori=1To10a(i)=Int(Rnd*71+30)Nextiamin=a(1)amax=a(1)avera=a(1)Fori=2To10Ifa(i)>amaxThenamax=a(i)Ifa(i)

5、求最大值及所对应的下标PrivateSubForm_Click()Dima(9),max%,imax%Fori=0To9a(i)=Int(Rnd*71+30)Printa(i);NextiPrintmax=a(0)Fori=1To9Ifmax

6、!,aver!,i%aver=0Fori=1To7mark=InputBox("输入第"&i&"位评委的打分")Ifi=1Thenmax=mark:min=markElseIfmarkmaxThenmax=markEndIfaver=aver+markNextiaver=(aver-min-max)/5PrintaverEndSub8,9、求s=a+aa+aaa+...aaaaa（n个a），其中a和n的值随机产生，a的范围是[1,9]的整数，n的范围是[5,10]。如a=3,n=6,则s=3+33+333+3333+33333+333333。编程

7、确定n和a的值，并计算s。PrivateSubForm_click()Dims!,t!,i!,a%,n%a=Int(Rnd*9+1)n=Int(Rnd*6+5)t=0:s=0PrintTab(9);"a=";a,"n=";nPrintFori=1Tont=t*10+as=s+tPrintTab(9);tNextiPrintPrintTab(9);"s=";Val(s)EndSub10.产生1－100以内的素数