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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 vb程序代码

vb程序代码.doc

vb程序代码

似曾不可拥有本人
2017-09-27 0人阅读 举报 0 0 暂无简介

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

vb程序代码、成绩题(一个命令按钮)PrivateSubCommandClick()Forn=ToStepSco=InputBox$("请输入学生成绩:")a=b=c=d=IfSco>=AndSco<Thena=aElseIfSco>=AndSco<Thenb=bElseIfSco>=AndSco<Thenc=cElseIfSco>=AndSco<=Thend=dEndIfNextnPrint"不及格"a"人,""及格"b"人,""良"c"人,""优秀"d"人"EndSub、阶乘题(一个命令按钮、一个标签控件)PrivateSubCommandClick()s=i=n=InputBox("请输入整数N:","输入框")Fori=TonSteps=s*iNextiLabelCaption=sEndSub、价格题(一个命令按钮)PrivateSubCommandClick()a=InputBox("请输入第一个商品单价:","输入框")a=InputBox("请输入第一个商品购买数量:","输入框")b=InputBox("请输入第二个商品单价:","输入框")b=InputBox("请输入第二个商品购买数量:","输入框")c=InputBox("请输入第三个商品单价:","输入框")c=InputBox("请输入第三个商品购买数量:","输入框")Print"第一种商品的金额为",a*aPrint"第二种商品的金额为",b*bPrint"第二种商品的金额为",c*cPrint"总金额为",a*ab*bc*cEndSub、奇偶题(一个命令按钮)PrivateSubCommandClick()Fori=Toc=InputBox("请输入整数:")IfcMod=Thena=aElseb=bEndIfNextiPrint"偶数个数为"a"个。奇数个数为"b"个"EndSub、窗口转换题(两个窗体、:命令按钮:文本框)PrivateSubCommandClick()FormVisible=FalseFormVisible=TrueFormTextText="第二个窗口"EndSub、字体题(一个标签、一个文本框、四个复选框、一个按钮)PrivateSubChkColorClick()IfChkColorValue=ThenTxtVBprogForeColor=HFFElseTxtVBprogForeColor=HEndIfEndSubPrivateSubChkItalicClick()IfChkItalicValue=ThenTxtVBprogFontItalic=TrueElseTxtVBprogFontItalic=FalseEndIfEndSubPrivateSubChkKaiClick()IfChkKaiValue=ThenTxtVBprogFontName="楷体GB"ElseTxtVBprogFontName="宋体"EndIfEndSubPrivateSubChkSizeClick()IfChkSizeValue=ThenTxtVBprogFontSize=ElseTxtVBprogFontSize=EndIfEndSubPrivateSubCmdExitClick()EndEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/4

vb程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利