资源描述：
《VB编程题2012》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、VB上机编程题目实验课上遇到的问题，①1和l部分②多条件不会使用,两个或两个以上的条件用逻辑运算符连接P443．编写程序，随机输入10个100以内的整数，计算其和及平均值。要求：可以输入并计算负整数。第1种方法，使用输入框函数输入10个随机数。PrivateSubCommand1_Click()Dims&,p!,i%Fori=1To10s=s+Val(InputBox("请输入第"&i&"个整数"))NextPrint"和为：";s,"平均值为：";s/10EndSub第2种方法，使用随机函数生成10个随机数。PrivateSubCommand1_Click()
2、Dims&,p!,i%Fori=1To10p=-Int(Rnd*32867)+100Printps=s+pNextPrint"和为：";s,"平均值为：";s/10EndSubP634．编写程序，求出100以内的所有勾股数。（提示：a2+b2=c2，a,,b,c为自然数，且a<>b）PrivateSubCommand1_Click()Dima%,b%,c%Fora=1To100Forb=1To100Forc=1To100Ifa*a+b*b=c*cAnda<>bThen4Printa,b,cEndIfNextNextNextEndSub5．编写程序，把输入的字符串
3、逆序输出。第1种方法，从前往后循环PrivateSubCommand2_Click()Dimx$,i%Fori=1ToLen(Text1.Text)x=Mid(Text1.Text,i,1)&xNextLabel1.Caption=xEndSub第2种方法，从后往前循环PrivateSubCommand2_Click()Dimx$,i%Fori=Len(Text1.Text)To1Step-1x=x&Mid(Text1.Text,i,1)NextLabel1.Caption=xEndSub第3种方法，直接用字符串反转函数实现PrivateSubCommand2_
4、Click()Dimx$,i%x=StrReverse(Text1.Text)Label1.Caption=xEndSub6．某大型超市实行会员制，每消费1元积1分，不满1元不计。当会员卡：积分<1000元时，不打折；1000《积分<2000元时，打9折；2000《积分<3000元时，打8.5折；3000《积分<5000元时，打8折；5000《积分<9000元时，打7.5折；积分》》9000元时，打7折。编写程序，根据用户积分情况给出用户应交款数和当前积分。4程序设计界面程序运行界面PrivateSubCommand1_Click()Dimxykjf%,xfje
5、!,zkbl!,yjks!,dqjf%xykjf=Val(Text1.Text)xfje=Val(Text2.Text)SelectCasexykjf'计算折扣比例CaseIs<1000zkbl=1CaseIs<2000zkbl=0.9CaseIs<3000zkbl=0.854CaseIs<5000zkbl=0.8CaseIs<9000zkbl=0.75CaseElsezkbl=0.7EndSelectText3.Text=zkbl'显示折扣比例Text4.Text=xfje*zkbl'计算应交款数Text5.Text=xykjf+Int(xfje)'当前积分E
6、ndSub也可以采用其它方式编程①单分支方式If条件1ThenEndIfIf条件2ThenEndIf②双分支嵌套If条件1ThenElseIf条件1ThenElseIf条件1ThenElseEndIfEndIfEndIf③IF多分支方式If条件1ThenElseIf条件2ThenElseIf条件3ThenElseEndIf4
