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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序设计第三版实验G答案

VB程序设计第三版实验G答案.doc

VB程序设计第三版实验G答案

wu飞wu
2017-10-17 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序设计第三版实验G答案doc》,可适用于综合领域

VB程序设计第三版实验G答案VB程序设计第三版实验G答案(全)PrivateSubCommandClick()ListClearListAddItemComboIfOptionThenListAddItem"PentiumII"IfOptionThenListAddItem"PentiumI"IfOptionThenListAddItem"Celeron"ListAddItemTextIfCheckThenListAddItem"声卡"IfCheckThenListAddItem"Modem"IfCheckThenListAddItem"网络适配器"EndSubPrivateSubTextLostFocus()st=UCase(Trim(Text))le=Len(st)IfNotIsNumeric(Left(st,le))OrRight(st,)<>"MB"ThenMsgBox"有不合法字符~"Text=""TextSetFocusEndIfEndSubPrivateSubCheckClick()PictureFontBold=NotPictureFontBoldEndSubPrivateSubCheckClick()PictureFontItalic=NotPictureFontBoldEndSubPrivateSubCommandClick()PictureClsIfOptionThenPicturePrintSin(Val(Text))ElseIfOptionThenPicturePrintExp(Val(Text))ElseIfOptionThenPicturePrintSqr(Val(Text))EndIfEndSubPrivateSubreturnClick(IndexAsInteger)FormShowUnloadFormEndSubPrivateSubHScrollChange()Text=VScrollValueText=HScrollValueText=HScrollValueText=Format(Val(Text)*(Text)*(Text),"")Text=Format(Val(Text)Val(Text),"")EndSubPrivateSubHScrollChange()Text=VScrollValueText=HScrollValueText=HScrollValueText=Format(Val(Text)*(Text)*(Text),"")Text=Format(Val(Text)Val(Text),"")EndSubPrivateSubVScrollChange()Text=VScrollValueText=HScrollValueText=HScrollValueText=Format(Val(Text)*(Text)*(Text),"")Text=Format(Val(Text)Val(Text),"")EndSubDimtAsSinglePrivateSubCommandClick()t=InputBox("输入倒计时分钟数")t=t*ProgressBarMin=ProgressBarMax=tProgressBarValue=tEndSubPrivateSubCommandClick()TimerInterval=ProgressBarVisible=TrueEndSubPrivateSubTimerTimer()Dimm,st=tProgressBarValue=tm=ts=tModLabel=m"分"s"秒"Ift=ThenMsgBox"时间到~"TimerInterval=ProgressBarVisible=FalseEndIfEndSubPrivateSubCommandClick()CommonDialogShowColorLabelForeColor=CommonDialogColorEndSubPrivateSubCommandClick()CommonDialogShowOpeni=Shell("C:WINDOWSNOTEPADexe"CommonDialogFileName,vbNormalFocus)EndSubrivateSubboldClick()TextFontBold=NotTextFontBoldboldChecked=NotboldCheckedEndSubPrivateSubdelClick()Text=""EndSubPrivateSubendClick()EndEndSubPrivateSubfontClick()TextFontSize=EndSubPrivateSubfontClick()TextFontSize=EndSubPrivateSubFormLoad()boldChecked=FalseitalicChecked=FalseEndSubPrivateSubitalicClick()TextFontItalic=NotTextFontItalicitalicChecked=NotitalicCheckedEndSubPrivateSubTextMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=ThenPopupMenumenuEndSubPrivateSubCommandClick()CommonDialogShowColorLabelForeColor=CommonDialogColorEndSubPrivateSubCommandClick()CommonDialogShowOpeni=Shell("C:WINDOWSNOTEPADexe"CommonDialogFileName,vbNormalFocus)EndSubPrivateSubreturnClick(IndexAsInteger)FormShowUnloadFormEndSubPrivateSub结束Click()EndEndSubPrivateSub删除最大值Click()max=ListList()Fori=ToListListCountIfmax<ListList(i)Thenmax=ListList(i):j=iNextiListRemoveItemjEndSubPrivateSub删除最小值Click()min=ListList()Fori=ToListListCountIfmin>ListList(i)Thenmin=ListList(i):j=iNextiListRemoveItemjEndSubPrivateSub随机产生Click()RandomizeFori=ToListList(i)=Int(Rnd*)NextiEndSubPrivateSub添加数据Click()ListAddItemInt(Rnd*)EndSubPrivateSub统计Click()Dimmax,min,ave!,m,nmax=ListList()min=ListList()ave=ListList()m=n=Fori=ToListListCountIfmax<ListList(i)Thenmax=ListList(i):m=iIfmin>ListList(i)Thenmin=ListList(i):n=iave=aveListList(i)NextiFormText=ListList(n)FormText=ListList(m)FormText=Format(aveListListCount,"")FormShowEndSubPrivateSubexperimentGClick()FormShowEndSubPrivateSubexperimentGClick()FormShowEndSubPrivateSubexperimentGClick()FormShowEndSubPrivateSubexperimentGClick()FormShowEndSubPrivateSubfontClick()TextFontSize=EndSubPrivateSubfontClick()TextFontSize=EndSubPrivateSubrndClick()RandomizeFori=ToListList(i)=Int(Rnd*)NextiEndSubPrivateSubstatClick()Dimmax,min,ave!,m,nmax=ListList()min=ListList()ave=ListList()m=n=Fori=ToListListCountIfmax<ListList(i)Thenmax=ListList(i):m=iIfmin>ListList(i)Thenmin=ListList(i):n=iave=aveListList(i)NextistatText=ListList(n)statText=ListList(m)statText=Format(aveListListCount,"")statShowEndSubPrivateSubTextMouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=ThenPopupMenucaidan,vbPopupMenuCenterAlignEndSubPrivateSubxieClick()TextFontItalic=NotTextFontBoldEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/9

VB程序设计第三版实验G答案

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利