下载

1下载券

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

上传资料

关闭

关闭

关闭

封号提示

内容

首页 VB程序代码

VB程序代码.doc

VB程序代码

Una小青
2017-10-17 0人阅读 举报 0 0 暂无简介

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

VB程序代码、程序填空。程序的功能是通过Inputbox函数输入年龄再使用Msgbox输出出生年份。例如用户在输入对话框中输入年龄为“”则在消息对话框中输出“你的出生年份是”。程序运行情况如图所示,程序如下请将空缺部分补充完整。PrivateSubCommandClick()DimageAsInteger,yAsIntegerage=Val(InputBox("请输入你的年龄:","年龄",))y=Year(Date)agerespond=MsgBox("你的出生年份是:"y,vbYesNo,"年份")EndSubPrivateSubFormClick()DimageAsInteger,yAsIntegerage=Val(InputBox("","年龄"))y=Year()ageMsgBox,,"年份"EndSub欧洲科学家用于预测子女身高的计算公式如下:儿子成年身高(cm),(父亲身高母亲身高)×女儿成年身高(cm),(父亲身高×母亲身高)根据上述计算公式编写如图所示运行界面的程序在文本框中分别输入父亲和母亲身高之后单击“男孩”或“女孩”单选按钮即在标签Label中输出预测结果。查询百分制的等级,运行结果应如图所示。请画出流程图并设计程序上机调试。PrivateSubCommandClick()DimsAsSingles=TextTextIfs<ThenText="不及格"ElseIfs<ThenText="及格"ElseIfs<ThenText="良"ElseIfs<ThenText="优良"ElseIfs<=ThenText="优秀"ElseIfs>""ThenText="你输入的分数不符合格式~"EndIfEndSub、设计程序利用文本框输入用户密码(假设密码为)单击“检查”按钮后检查输入的密码是否正确并通过消息对话框显示“欢迎你用机”或“对不起密码错”。PrivateSubCommandClick()DimmAsDoublem=Val(TextText)Ifm=Val()Thenrespond=MsgBox("欢迎使用~",vbOKOnly,"密码正确~")Elserespond=MsgBox("对不起你的密码有误~",vbOKOnly,"密码错误~")EndIfEndSub、在文本框中输入字符串统计其中数字字符出现的个数。流程如图所示程序代码如下。开始开始c=TextTextc=TextTextp=p=––p<=len(c)p<=len(c)c=Mid(c,i,)c=Mid(c,i,)––CC是大写字母是大写字母n=nn=np=pp=p显示结果显示结果结束结束图图实例实例流程图流程图流程图PrivateSubCommandClick()DimcAsString,cAsString,pAsInteger,nAsIntegerc=TextTextForp=ToLen(c)c=Mid(c,p,)Ifc>=""Andc<=""Thenn=nNextpLabelCaption="数字字符的个数为:"Str(n)EndSub图实例程序运行界面图图实例实例程序运行界面程序运行界面分析:本题的意图是需要对输入的字符串的每个字符逐个的进行判断因此判断的语句需要被重复执行就需要用循环结构来控制。循环体的内容就是从字符串中取一个字符再判断该字符的类型循环的次数是已知的就是字符串中的字符个数因此用ForNext循环语句。有一堆苹果个数在至之间按人均分余个按人均分余个按人均分余个用穷举法设计程序输出苹果有多少个,共有几种分法,流程如图所示请写出相应程序并上机调试。图图看图写程序第看图写程序第题程序运行结果题程序运行结果开始开始n=n=k=k=––k<=k<=––kmod=andkmod=andkmod=kmod=andkmod=andkmod=n=nn=nprintkprintk输出输出nnk=kk=k结束结束图图看图写程序第看图写程序第题流程图题流程图流程图执行下面程序单击窗体后窗体上显示的内容是()PrivateSubFormClick()ForI=ToStepI=INextPrintIEndSub运行下面程序后单击命令按钮Command则在标签框Label中显示的结果是:PrivateSubCommandClick(CISAB)X=“BASIC”L=Len(X)Fork=ToLV=Mid(X,k,)W=VW““NextkLabelCaption=WEndSub

用户评价(0)

关闭

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

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

提示

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

文档小程序码

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

1

打开微信

2

扫描小程序码

3

发布寻找信息

4

等待寻找结果

我知道了
评分:

/7

VB程序代码

VIP

在线
客服

免费
邮箱

爱问共享资料服务号

扫描关注领取更多福利