资源描述：
《vb第7-11章大课后答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、第7章过程判断题：1、对2、错3、错4、错5、对6、对7、错选择题：1．B2、D3、D4、C5、A程序阅读题：1、y=5a=52、n=1z=4y=15a=10n=2z=7y=30a=15n=3z=103、32644、22216648644645、A1=10B1=20A2=20B2=10程序填空题：1、（1）hwstring(str)（2）""（3）AsBoolean（4）n=len(strtxt)(5)True（6）False2．（1）Xsch(Nman,Nkcen)（2）n（3）sum=sum+x(i,j)（4）tt/n（5）x(
2、i,m+1)<1.2*verandx(i,m+1)>=1.1*ver3．（1）number（i）（2）ByvalnasInteger（3）number=number+7*10^i4．（1）temp=1（2）temp（3）nFactor(i)（4）sum程序设计题：1、具体程序为：FunctionMaxnum(ByRefa()AsInteger,ByValnAsInteger)AsIntegerDimiAsIntegerMaxnum=a(1)Fori=2TonIfa(i)>MaxnumThenMaxnum=a(i)NextiEndFu
3、nctionFunctionAvenu(ByRefa()AsInteger,ByValnAsInteger)AsSingleDimiAsInteger,sumAsIntegerFori=1Tonsum=sum+a(i)NextiAvenu=sum/nEndFunctionSubSortrnum(ByRefa()AsInteger,ByValnAsInteger)DimiAsInteger,jAsInteger,kAsIntegerDimtempAsIntegerFori=1Tonk=iForj=i+1TonIfa(k)>a(j)Th
4、enk=jNextjIfi<>kThentemp=a(i)a(i)=a(k)a(k)=tempEndIfNextiEndSubPrivateSubForm_Click()Dimb(10)AsInteger,iAsIntegerFori=1To10b(i)=InputBox("请输入整数","输入")NextiCallSortrnum(b(),10)Print"从小到大排序为："Fori=1To10Printb(i);NextPrintPrint"最大数为：";Maxnum(b(),10)Print"平均数为：";Avenu(b(),
5、10)EndSub2、具体程序为：Functionfe(n%,x!)AsSingleDimtempAsSingle,iAsIntegerfe=1temp=1Fori=1Tontemp=temp*x/ife=fe+tempNextiEndFunctionPrivateSubForm_Click()DimnAsInteger,xAsSinglen=Val(InputBox("请输入n","输入"))x=Val(InputBox("请输入x","输入"))Print"e的值为：";fe(n,x)EndSub3、具体程序为：Subsort(
6、a()AsSingle,nAsInteger)DimiAsInteger,jAsInteger,kAsIntegerDimtempAsSingleFori=1Tonk=iForj=i+1TonIfa(k)kThentemp=a(i)a(i)=a(k)a(k)=tempEndIfNextiEndSubPrivateSubForm_Click()Dima(10)AsSingle,iAsIntegerFori=1To10a(i)=Val(InputBox("请输入数据","输入"))NextiC
7、allsort(a(),10)Print"从大到小为："Fori=1To10Printa(i);IfiMod5=0ThenPrintNextiEndSub第8章常用控件参考答案：一、判断题1、×2、×3、√4、√5、×6、×7、×8、×9、×10、×11、×12、√13、×14、√15、√二、单选题1、A2、B3、A4、C5、B6、D7、A8、B9、C10、C11、A12、A13、C14、B15、A三、填空题1、AutosizeWordWrap2、EnabledVisible3、文本框和列表框4、拖动滚动框5、Change6、Com
8、mand1.Setfocus7、Timer8、MaxLength9、AddItem10、定时器屏蔽四、程序阅读题463789w=4w=13w=135w=311、2、2345134512李子苹果橘子葡萄柚子香蕉3、4、61528455.
