《vb编程题附答案》word版

《《vb编程题附答案》word版》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、Vb编程题1.求自然数1～100之间奇数之和。PrivateSubForm_Click()Dimi%,sum%Fori=1To99Step2sum=sum+iNextiPrint"sum=";sumEndSub2.求自然数1～100之间偶数之和。PrivateSubForm_Click()Dimi%,sum%Fori=1To100Ifimod2=0thensum=sum+iendifNextiPrint"sum=";sumEndSub3.编写程序，在窗体上随机输出一个10--99之间的两位整数。Subcommand1_click()Dima%Randomizea=int(rnd*

2、90+10)printaendsub4.编程计算从200到1000之间的所有4的倍数之和。PrivateSubForm_Click()DimsumAsLongsum=0Fori=200To1000IfiMod4=0Thensum=sum+iEndIfNextiPrintsumEndSub5.编写程序在窗体上显示出：5/6+4/5+3/4+2/3+1/2DimsAsSingles=0Fori=5To1Step-1s=s+i/(i+1)NextPrint“5/6+4/5+3/4+2/3+1/2=”;s1.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出最大数。PrivateS

3、ubCommand2_Click()Clsa=Val(InputBox("接收三个数:"))Printa;Max=aFori=1To2a=Val(InputBox("接收三个数:"))Printa;Ifa>MaxThenMax=aNextPrintPrint"三数中最大者是:";MaxEndSub2.在窗体的单击事件中编写程序，从键盘上任意输入3个数，输出中间数。PrivateSubCommand2_Click()Dima(1To3)AsIntegerFori=1To3a(i)=InputBox("请输入第"&i&"个数")NextiFori=1To2Forj=i+1To3Ifa

4、(i)

5、averEndSub9.在窗体的单击事件过程中，编写程序计算1！+2！+3！+…+20!PrivateSubForm_Click()clsSum=0x=1Fori=1To15x=x*iSum=Sum+xNextPrint"1!+2!+...+15!=";SumEndSub10.输入x，计算y的值。其中：y=1+3x(x>=0);y=1-5x(x<0)。PrivateSubCommand1_Click()Dimx!,y!x=InputBox("请输入x的值")Ifx<0Theny=1-5*xElsey=1+3*xEndIfPrint"y=";yEndSub11.编写程序，在窗体上输

6、出由1、2、3、4、5这五个数字组成的所有可能的两位数，并统计它们的个数。PrivateSubCommand1_Click()Dima%,n%Fori=1To5Forj=1To5a=i*10+jn=n+1PrintStr(a)NextjNextiPrint"总个数：";nEndSub12.有一个窗体，窗体中有一个文本框，名称为Text1，有一个按钮，试编写按钮的单击事件，实现计算1！+2！+3！+…+10!,将结果显示在文本框Text1中。PrivateSubCommand1_Click()Sum=0x=1Fori=1To10x=x*iSum=Sum+xNextText1.tex

7、t=SumEndSub13.编写程序计算：s=1+1/2!+1/3!+…+1/n!,说明：在窗体中有一个文本框控件：Text1,用来接收n的值，有一个标签控件：Label1，用来显示S的值，试编写窗体的单击事件，实现计算与显示功能，只要求写出事件的主要代码，事件过程的起始语句和结束语句可略去。PrivateSubCommand1_Click()Sum=0x=1n=Text1.textFori=1Tonx=x*iSum=Sum+xNextText1.text=SumEndSub14