VB程序设计30道编程题.doc
《VB程序设计30道编程题.doc》由会员分享,可在线阅读,更多相关《VB程序设计30道编程题.doc(5页珍藏版)》请在咨信网上搜索。
1、1.输入3个数,输出最大的数Private Sub mand11_Click()Dim max%X1=Val(InputBox(input)X2=Val(InputBox(input)x3=Val(InputBox(input)max=X1If max=X2 Thenmax=X2End IfIf max=x3 Thenmax=x3End IfMsgBox(3个数之中的最大数max=&max)End SubPrivate Sub mand12_Click()2.有一元二次方程:aX2+bX+c=0,依次输入a,b,c,判断此方程是否有实根a=Val(InputBox(input)B=Val(In
2、putBox(input)c=Val(InputBox(input)s=B2-4*a*cIf a0 ThenIf s=0 ThenMsgBox(两个相等实根)ElseIf s0 ThenMsgBox(两个不相等实根)ElseIf s=60 ThenMsgBox(恭喜!成绩通过!)ElseMsgBox(抱歉!成绩没有通过!)End IfEnd SubPrivate Sub mand14_Click()4.输入一年份,判断它是否为闰年,并显示有关信息。(判断闰年的条件是:年份能被4整除但不能被100整除,或者能被400整除)yes=Val(InputBox(year)If yes Mod 4=0
3、And yes Mod 1000 Or yes Mod 400=0 ThenMsgBox(yes&是闰年)ElseMsgBox(yes&不是闰年)End IfEnd SubPrivate Sub mand15_Click()5.输入学生的百分制成绩,转换输出为五级制成绩,90100分转换为优秀,8089转换为良好,7079转换为中等,6069转换为及格,060转换为不及格。score=Val(InputBox(input)Select Case scoreCase Is=90MsgBox(优秀)Case Is=80MsgBox(良好)Case Is=70MsgBox(中)Case Is=60M
4、sgBox(及格)Case ElseMsgBox(不及格)End SelectEnd Sub6.随机产生一个三位正整数,然后逆序输出,产生的数与逆序数同时显示。例如,产生246,输出是642。a=645n=Len(a)For i=1 To Int(n/2)c=Mid(a,i,1)Mid(a,i,1)=Mid(a,n-i+1,1)Mid(a,n-i+1,1)=cNext iMsgBox(a)End Sub7.输入两个整数,求它们的最大公约数m=Val(InputBox(input m值)n=Val(InputBox(input n值)If nm Thent=nn=mm=tEnd Ifr=m Mo
5、d nDo While r0m=nn=rr=m Mod nLoopMsgBox(最大公约数=&n)End Sub21.随机产生10个30,100内的整数,求最小值及所对应的下标。Dim a(10)As IntegerFor i=0 To 9a(i)=Int(Rnd*70+30)Next imin=a(0)Mini=0For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin=a(i)End Ifsum=sum+a(i)Next iMsgBox(max=&max)MsgBox(min=&min)MsgBox(avg=&sum/10)End SubPrivate Sub
6、 mand2_Click()8.编程求200-400范围内5的倍数或7的倍数之和。(一个数如果同时是7和5的倍数,则只能加一次。Dim sum1%,sum2%sum1=0:sum2=0For i=200 To 400If i Mod 5=0 Thensum1=sum1+iElseIf i Mod 7=0 Thensum2=sun2+iEnd IfDebug.Print i,sum1,sum2Next iMsgBox(5的倍数之和sum=&sum1)MsgBox(7的倍数之和sum=&sum2)End SubPrivate Sub mand20_Click()17.编程求斐波那契数列前11项。(
7、斐波那契数列:F(0)=f(1)=1,F(n)=F(n-1)+F(n-2)n=2)Dim f(11)As Integerf(0)=1f(1)=1For i=2 To 10f(i)=f(i-1)+f(i-2)Next iFor i=0 To 10Print f(i);Next iEnd SubPrivate Sub mand21_Click()18.将输入的字符串以反序显示。例如:输入ASDFGT,显示TGFDSADim s(10)As StringFor i=0 To 9s(i)=InputBox(input)Next iFor i=9 To 0 Step-1Print s(i)Next iE
8、nd SubPrivate Sub mand22_Click()19.随机产生10个30,100内的整数,求最大值及所对应的下标Dim a(10)As Integer,max%For i=0 To 9a(i)=Int(Rnd*70+30)Next imax=a(0)maxi=0For i=1 To 9If a(i)=max Thenmax=a(i)maxi=iEnd IfNext iMsgBox(max=&max)MsgBox(maxi=&maxi)End SubPrivate Sub mand23_Click()20.随机产生10个30,100内的整数,求最大值、最小值和平均值。Dim a(
9、10)As Integer,max%,min%For i=0 To 9a(i)=Int(Rnd*70+30)Next imax=a(0)min=a(0)For i=1 To 9If a(i)=max Thenmax=a(i)Elsemin=a(i)End Ifsum=sum+a(i)Next iMsgBox(max=&max)MsgBox(min=&min)MsgBox(avg=&sum/10)End SubPrivate Sub mand24_Click()24.利用随机函数生成一个44的矩阵(即二维矩阵),范围是20,50内的整数,输出该矩阵所有数据之和Dim a(4,4)As Integ
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 30 编程
1、咨信平台为文档C2C交易模式,即用户上传的文档直接被用户下载,收益归上传人(含作者)所有;本站仅是提供信息存储空间和展示预览,仅对用户上传内容的表现方式做保护处理,对上载内容不做任何修改或编辑。所展示的作品文档包括内容和图片全部来源于网络用户和作者上传投稿,我们不确定上传用户享有完全著作权,根据《信息网络传播权保护条例》,如果侵犯了您的版权、权益或隐私,请联系我们,核实后会尽快下架及时删除,并可随时和客服了解处理情况,尊重保护知识产权我们共同努力。
2、文档的总页数、文档格式和文档大小以系统显示为准(内容中显示的页数不一定正确),网站客服只以系统显示的页数、文件格式、文档大小作为仲裁依据,平台无法对文档的真实性、完整性、权威性、准确性、专业性及其观点立场做任何保证或承诺,下载前须认真查看,确认无误后再购买,务必慎重购买;若有违法违纪将进行移交司法处理,若涉侵权平台将进行基本处罚并下架。
3、本站所有内容均由用户上传,付费前请自行鉴别,如您付费,意味着您已接受本站规则且自行承担风险,本站不进行额外附加服务,虚拟产品一经售出概不退款(未进行购买下载可退充值款),文档一经付费(服务费)、不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
4、如你看到网页展示的文档有www.zixin.com.cn水印,是因预览和防盗链等技术需要对页面进行转换压缩成图而已,我们并不对上传的文档进行任何编辑或修改,文档下载后都不会有水印标识(原文档上传前个别存留的除外),下载后原文更清晰;试题试卷类文档,如果标题没有明确说明有答案则都视为没有答案,请知晓;PPT和DOC文档可被视为“模板”,允许上传人保留章节、目录结构的情况下删减部份的内容;PDF文档不管是原文档转换或图片扫描而得,本站不作要求视为允许,下载前自行私信或留言给上传者【天****】。
5、本文档所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用;网站提供的党政主题相关内容(国旗、国徽、党徽--等)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。
6、文档遇到问题,请及时私信或留言给本站上传会员【天****】,需本站解决可联系【 微信客服】、【 QQ客服】,若有其他问题请点击或扫码反馈【 服务填表】;文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“【 版权申诉】”(推荐),意见反馈和侵权处理邮箱:1219186828@qq.com;也可以拔打客服电话:4008-655-100;投诉/维权电话:4009-655-100。