下载
加入VIP
  • 专属下载特权
  • 现金文档折扣购买
  • VIP免费专区
  • 千万文档免费下载

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序设计第三版实验E答案(论文资料)

VB程序设计第三版实验E答案(论文资料).doc

VB程序设计第三版实验E答案(论文资料)

如果丶没有日记
2017-10-17 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序设计第三版实验E答案(论文资料)doc》,可适用于高等教育领域

VB程序设计第三版实验E答案(论文资料)VB程序设计第三版实验E答案(全)PrivateSubFormClick()Dima(To)AsIntegerFori=Toa(i)=Int(Rnd*)Printa(i)""NextiMax=a()Min=a()Avg=a()Fori=ToIfa(i)>MaxThenMax=a(i)Ifa(i)<MinThenMin=a(i)Avg=Avga(i)NextiAvg=AvgPrintPrint"Max="Max"Min="Min"Avg="AvgEndSubPrivateSubFormClick()Dimaa=Array(,,,,,)Fori=ToPrintString(a(i),"")a(i)PrintNextiEndSubDima()PrivateSubCommandClick()PictureClsFori=Toa(i)=Int(Rnd*)PicturePrinta(i)""If(i)Mod=ThenPicturePrintNextiEndSubPrivateSubCommandClick()PictureClsDims(To)Fori=Tok=a(i)SelectCasekCaseTos()=s()CaseTo',分的人数s()=s()CaseTo'存放其他三个分数段的下标有规律根据K获得s(k)=s(k)EndSelectNextiFori=ToIfs(i)<>ThenPicturePrint"s("i")的人数有"Format(s(i),"")"个"NextiEndSubPrivateSubCommandClick()PictureClsDimd(To)Fori=ToRandomized(i)=Int(Rnd*)NextiFori=ToForj=ToiIfd(j)<d(j)Thent=d(j):d(j)=d(j):d(j)=tEndIfNextjNextiFori=To:PicturePrintd(i)IfiMod=ThenPicturePrintNextiEndSubDima(,),b(,)PrivateSubFormLoad()Fori=ToForj=Toa(i,j)=Int(Rnd*)b(i,j)=Int(Rnd*)NextjNextiEndSubPrivateSubCommandClick()PictureClsFori=ToForj=ToiPicturePrinta(i,j)""NextjPicturePrintNextiEndSubPrivateSubCommandClick()PictureClsFori=ToForj=iToPicturePrintTab(j*)b(i,j)NextjPicturePrintNextiEndSubPrivateSubCommandClick()PictureClssa=Fori=Tosa=saa(i,i)Nextisb=Fori=Tosb=sbb(i,i)NextiPicturePrint"A数组主对角线元素和为:"saPicturePrint"B数组副对角线元素和为:"sbEndSubPrivateSubFormClick()n=InputBox("输入n值")ReDima(n,n)a(,)=:a(,)=:a(,)=Fori=TonForj=Toia(i,j)=a(i,j)a(i,j)PicturePrinta(i,j)""NextjPicturePrintNextEndSubPrivateSubFormLoad()ListClearListAddItem"大学计算机基础"ListAddItem"CC程序设计"ListAddItem"VB程序设计"ListAddItem"Web程序设计"ListAddItem"多媒体技术与应用"ListAddItem"数据库技术与应用"ListAddItem"网络技术与应用"ListAddItem"硬件技术基础"ListAddItem"软件技术技术基础"EndSubPrivateSubListClick()IfListListCount>=ThenMsgBox("超过门课程不能再选")ExitSubElseListAddItemListTextListRemoveItemListListIndexEndIfEndSubSubComboKeyPress(KeyAsciiAsInteger)SelectCaseKeyAsciiCaseTo,CaseElseKeyAscii=EndSelectIfKeyAscii=ThenComboAddItemComboTextComboText=""EndIfEndSubPrivateSubCommandClick()Dimmin,maxmin=Val(ComboList())max=Val(ComboList())imin=imax=Fori=ToComboListCountIfVal(ComboList(i))>maxThenimax=imax=ComboList(i)ElseIfVal(ComboList(i))<minThenimin=imin=ComboList(i)EndIfNextit=ComboList()ComboList()=ComboList(imin)ComboList(imin)=tt=ComboList(ComboListCount)ComboList(ComboListCount)=ComboList(imax)ComboList(imax)=tEndSubPrivateSubFormClick()Fori=ToScreenFontCountIfAsc(Left(ScreenFonts(i),))<ThenPicturePrintScreenFonts(i)PictureFontName=ScreenFonts(i)PicturePrint"中国同济大学"EndIfNextiEndSubPrivateTypeclerknumberAsString*nameAsString*salaryAsIntegerEndTypeDima(To)Asclerk,nPrivateSubCommandClick()Ifn>=ThenMsgBox("输入人数超过数组声明的个数")ElseWitha(n)number=Textname=Textsalary=TextPicturePrinta(n)number,a(n)name,a(n)salaryPrintEndWithn=nText=""Text=""Text=""EndIfEndSubPrivateSubCommandClick()DimtAsclerk,i,jFori=TonForj=iTonIfa(i)salary<a(j)salaryThent=a(i):a(i)=a(j):a(j)=tEndIfNextjNextiPictureClsPicturePrint"工号姓名工资"Fori=TonPicturePrinta(i)number,a(i)name,a(i)salaryPrintNextiEndSub

用户评价(0)

关闭

新课改视野下建构高中语文教学实验成果报告(32KB)

抱歉,积分不足下载失败,请稍后再试!

提示

试读已结束,如需要继续阅读或者下载,敬请购买!

文档小程序码

使用微信“扫一扫”扫码寻找文档

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/10

VB程序设计第三版实验E答案&#40;论文资料&#41;

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利