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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序代码

VB程序代码.doc

VB程序代码

肖恩鑫
2017-10-17 0人阅读 举报 0 0 暂无简介

简介:本文档为《VB程序代码doc》,可适用于综合领域

VB程序代码计算…PrivateSubCommandClick()Dims!,is=Fori=ToSteps=siNextiPrint"s="s计算s=!!!!…n!请在输入的文件中用commandclick事件利用文本控text输入正整数n的值并显示在form上Dimi,j,n,s#,sum#PrivateSubCommandClick()n=Val(TextText)s=:sum=Fori=TonForj=Toisum=sum*jNextjs=ssumNextiPrint"s="sEndSub请在给出窗体中使用for循环语句编写程序打印下面给出的图形特别说明每一行两个数字之间有两个空格PrivateSubCommandClick()DimsFori=ToForj=Tois=i*jPrintsSpace()NextjPrintNextiEndSub通过键盘输入个数找到其中的最大值和最小值并对掉将对调之后的结果以红色号子显示在label中Dima(To)AsInteger,i,jPrivateSubCommandClick()Fori=Toa(i)=Val(InputBox("请输入一个数",""))Printa(i):NextiDimb(To)AsIntegerMax=a():imax=:Min=a():imin=Fori=ToIfa(i)>MaxThenMax=a(i)imax=iEndIfIfa(i)<MinThenMin=a(i)imin=iEndIfNextiFori=Tob(i)=a(i)Nextij=b(imax)b(imax)=b(imin)b(imin)=jLabelFontSize=LabelForeColor=RGB(,,)Fori=ToLabelCaption=LabelCaption""Str(b(i))NextiEndSubS=!!…………n!计算DimsAsInteger,iAsInteger,jAsIntegerPrivateSubCommandClick()n=Val(InputBox("请输入一个正整数"))s=Fori=Tonm=Forj=Toim=m*jNextjs=smNextiPrint"s="sEndSub打印aaaaBbbbDimch()AsString,iAsInteger,jAsIntegerPrivateSubFormclick()ch()="a"ch()="b"ch()="c"ch()="d"Fori=ToForj=ToPrintTab(i*j*)ch(i)NextjNextiEndSubDima(To)AsLong,iAsInteger,sAsSinglePrivateSubCommandClick()Fori=To'通过键盘输入个数找到其中大于的数并求出这些数的和a(i)=Val(InputBox("请输入一个数"))'将大于的数和他们的和以红色号字显示在标签中Printa(i),s=NextiFori=ToIfa(i)>Thens=sa(i)LabelCaption=LabelCaptionStr(a(i))EndIfNextiLabelForeColor=RGB(,,)LabelFontSize=LabelCaption=LabelCaption"总和为:"Str(s)EndSubDima,b,cPrivateSubCommandClick()a=Val(TextText)b=Val(TextText)c=Val(TextText)Ifab>cAndac>bAndbc>aThenPicturePrint"这三边能构成一个三角形"Ifa=bOra=cOrb=cThenPicturePrint"这三边能构成一个等腰三角形"ElseIfa=bAndb=cThenPicturePrint"这三边能构成一个等边三角形"ElseIfa^b^=c^Orc^b^=a^Ora^c^=b^ThenPicturePrint"这三边能构成一个直角三角形"ElsePicturePrint"这三边能构成一个任意三角形"EndIfElsePicturePrint"这三边能不能构成一个三角形"EndIfEndSubDimiAsInteger,jAsInteger,sAsSinglePrivateSubCommandClick()n=Val(InputBox("请输入一个正整数"))'编写程序计算s=oFori=Tonm=Forj=Toim=m*jNextjs=smNextiLabelCaption=sEndSubPrivateSubCommandClick()LabelLeft='将红色标签向下移个单位EndSubPrivateSubCommandClick()LabelCaption="大家好"'在红色标签中显示"大家好"EndSubPrivateSubCommandClick()IfLabelVisible=FalseThenLabelVisible=TrueElseLabelVisible=FalseEndIfEndSub【】图像框(image)有一个属性可以自动调整图形的大小以适应图像框的尺寸这个属性是A、AutosizeB、StretchC、AutoRedrawD、Appearance标准答案:B】函数InStr("windowse",Mid("winnt",,))的返回值是()。A、B、C、D、标准答案:C】下列符号中哪个是VB程序中合法的变量名()A、abB、abC、IfD、abc标准答案:A【】VB中工程文件的扩展名为()A、(vbpB、frmC、dsD、bas标准答案:A窗体文件的后缀名为BAS。标准答案:N,,中窗体文件的后缀名为frm标准答案:Y下列程序段的运行结果为()n=j=dowhilen>n=njloopprintn,jA、B、C、D、标准答案:C当style属性值为时组合框中的文本框不能被编辑标准答案:YDima(To)AsLong,i,j,kPrivateSubCommandClick()FormFontSize=FormForeColor=vbBlueFori=Toa(i)=Int(Rnd*)Print"原始数组为:"a(i)NextiPrinti=Forj=ToIfa(i)>a(j)Thenk=a(i)a(i)=a(j)a(j)=kEndIfNextjPrint"最小数为:"a()PrintPrint"删除后的最小数为:"Fori=ToPrinta(i)NextiEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/10

VB程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利