刘亮VB编程题

1编程题（40题）1、在文本框Text1中输入一个正整数N，按“计算”命令按钮Command1，产生N个0~100之间的随机整数，计算这N个随机整数的平均数，显示在标签Label1中。将编写的程序存盘，工程文件名为Ex12nnnn.Vbp，窗体文件名为Ex12nnnn.Frm。（当N足够大时，该平均值应趋向于50）。Ex12nnnn.VbpEx12nnnn.FrmPrivateSubCommand1_Click()N=Val(Text1.Text)Sum=0Fork=1ToNV=Int(Rnd*101)Sum=Sum+VNextkLabel1.Caption=Sum/NEndSub2、在文本框Text1中输入一正整数N，按“计算”命令按钮Command1，计算该数的阶乘N!，结果显示在标签框Label1中。按“结束”命令按钮Command2结束程序。PrivateSubCommand1_Click（）PrivateSubCommand2_Click（）N=Val(Text1.Text)EndP=1EndSubFork=1ToNP=P*kNextkLabel1=PEndSub3、在文本框Text1中输入一个字符串，按“排列”按钮Command1，将输入字符串中每两个相邻的字符之间插入一个空格，结果显示在标签框Label1中。按“结束”命令按钮Command2结束程序。PrivateSubCommand1_Click（）PrivateSubCommand2_Click（）X=Text1.TextEndL=Len(X)EndSubW=“”Fork=1ToL-1V=Mid(X,k,1)W=W+V+“”NextkW=W+Right(X,1)Label1.Caption=WEndSub4、编写程序，从键盘输入任一x的值，求分段函数的值（可用InputBox函数）。00002xxxxxY2PrivateSubForm_Click()DimxAsDouble,yAsDoublex=Val(InputBox(Inputx))Ifx0Theny=2*xElseIfx0Theny=Abs(x)Elsey=0EndIfPrintyEndSub5、定义一个下界为1，上界为10的整数型一维数组A，将10个随机生成的两位数保存到数组A中，并将数组A各个元素显示在窗体上，然后，找出数组A中所有的偶数输出到窗体上。（Int(Rnd*90)+10）。PrivateSubCommand1_Click()Dima%(1To10)Fori=1To10a(i)=Int(Rnd*90+10)Printa(i);NextiPrintFori=1To10Ifa(i)Mod2=0ThenPrinta(i);NextiEndSub6、定义一个下界为1，上界为10的整数型一维数组A，将10个随机生成的两位数保存到数组A中，并将其在窗体上按从小到大的顺序显示成一行。（Int(Rnd*90)+10）PrivateSubCommand1_Click()Dima%(1To10)Fori=1To10a(i)=Int(Rnd*90+10)Printa(i);NextiPrintFori=1To9Forj=i+1To10Ifa(i)a(j)Thent=a(i):a(i)=a(j):a(j)=tNextjNextiFori=1To103Printa(i);NextiEndSub7、在文本框Text1和Text2中分别输入任意两个正整数M和N，单击命令按钮Command1,使较大的数显示在标签框Label1上，较小的数显示在标签框Label2上。PrivateCommand1_Click()DimMAsInteger,NAsIntegerM=Val(Text1.Text):N=Val(Text2.Text)IfMNThenLabel1.Caption=M:Label2.Caption=N8、在文本框(Textl)中输入一个字符串，按排列按键(Commandl)将输入的字符串中的字符之间插入一个空格，显示在标签框(Label”中。按“结束”(Command2)按键结束程序。PrivateSubCommand1_Click()a=Text1x=Len(a)Fori=1Toxz=Mid(a,i,1)Label1=Label1+z+NextiEndSubPrivateSubCommand2_Click()EndEndSub9、单击窗体Form1，在窗体第一行显示10个[1，50]之间的随机整数，在文本框Text1中显示其最小数。(提示：Int(Rnd*50)+1)PrivateSubCommand1_Click()Dima%(1To10)Fori=1To10a(i)=Int(Rnd*50+1)Printa(i);NextiMin=a(1)Fori=2To10IfMina(i)ThenMin=a(i)NextiText1=MinEndSub10、编一程序，显示所有的水仙花数。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如153是水仙花数，因为153=13+53+33。4PrivateSubCommand1_Click()Fori=100To999a=iMod10b=i\10Mod10c=i\100Ifi=a^3+b^3+c^3ThenPrintiNextiEndSub11、先在窗体上添加一个文本框、一个标签和一个命令按钮。编程实现：单击命令按钮，使标签和文本框中的内容进行互换。PrivateSubCommand1_Click()t=Text1Text1=Label1Label1=tEndSub12、使用数组实现：单击窗体，按每行7个数显示斐波那契数列的前20个（0，1，1，2，3，…，4181）。提示：an=an-1+an-2PrivateSubCommand1_Click()Dima(1To20)a(1)=0a(2)=1Printa(1);a(2);Fori=3To20a(i)=a(i-2)+a(i-1)Printa(i);IfiMod7=0ThenPrintNextiEndSub13、单击窗体，在窗体上显示100到200之间的所有的素数。PrivateSubCommand1_Click()Fori=100To200x=TrueForj=2Toi-1IfiModj=0Thenx=FalseNextjIfx=TrueThenPrintiNextiEndSub14、单击命令按钮Command1后在窗体Form1上显示以下形状的图形。PrivateSubCommand1_Click()ForI=1To4IfIMod20ThenPrintString(4,A)ElseAAAAABBBBBAAAAABBBBBA5PrintString(4,B)EndIfNextIEndSub15、在窗体上有一个名称为text1的文本框，一个名称为C1，标题为“校验”的命令按钮。其中文本框用来输入口令，要求在文本框中输入的内容都必须以“*”显示（通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是“ABC”这3个大写字母，则用MsgBox信息框输出“正确”，否则输出“错误”。如图所示。PrivateSubCommand1_Click()IfText1=ABCThenMsgBox(正确)ElseMsgBox(错误)EndSub16、在文本框Text1中输入一个任意长度的字符串，单击“逆序排列”命令按钮Command1，将文本框中的字符串按与输入相反的顺序排列，结果显示在标签框Label1中。PrivateSubCommand1_Click()a=Text1x=Len(a)Fori=xTo1Step-1z=Mid(a,i,1)Label1=Label1+zNextiEndSub17、用InputBox函数输入长方形的长和宽,用MsgBox输出长方形的周长和面积.PrivateSubCommand1_Click()a=Val(InputBox(输入长方形的长))b=Val(InputBox(输入长方形的宽))q=MsgBox(长方形的周长为+Str(2*(a+b))+面积为+Str(a*b))EndSub18、打印出3-100的所有素数,并统计个数PrivateSubCommand1_Click()Fori=3To100x=TrueForj=2Toi-1IfiModj=0Thenx=FalseNextjIfx=TrueThenPrinti:t=t+1NextiPrintt6EndSub19、用输入对话框输入半径R的值，编写单击计算命令按钮事件代码，计算S=πR2的值和V=4πR3的值，并将结果分别显示在标签框Label1和Label2中。PrivateSubCommand1_Click()r=InputBox(请输入半径R＝,数据输入框)s=3.141592*r*rv=4*s*rLabel1.Caption=sLabel2.Caption=vEndSub20、利用inputbox函数输入2个整数，求它们的最大公约数。PrivateSubForm_Click()n1=InputBox(输入n)m1=InputBox(输入m)Ifm1n1Then'使得mnm=m1:n=n1Elsem=n1:n=m1EndIfr=mModnDoWhiler0m=nn=rr=mModnLoopPrintm1;,;n1;的最大公约数为;nEndSub21、输入3个数，输出其中最大的数。PrivateSubCommand1_Click()a=Val(InputBox(输入第一个数))b=Val(InputBox(输入第个数))c=Val(InputBox(输入第三个数))IfabThena=bIfacThena=cPrintaEndSub22、单击命令按钮Command1后在窗体Form1上显示以下形状的图形。PrivateSubCommand1_Click()Fori=4To1Step-1PrintString(2*i-1,A)NextiEndSubAAAAAAAAAAAAAAAA723、窗口的下部有3个命令按钮，其中左边按钮中标有“单击”，中间按钮中标有“清屏”，右边按钮中标有“结束”。当单击鼠标左边按钮时，屏幕上部的文本框中显示“欢迎使用VB6.0”，若单击中间按钮，清除文本框中的内容，若单击右边的按钮，则程序结束。PrivateSubCommand1_Click()Text1=欢迎使用VB6.0EndSubPrivateSubCommand2_Click()Text1=EndSubPrivateSubCommand3_Click()EndEndSub24、利用标签和计时器设计电子钟。PrivateSubForm_Load()Timer1.Interval=1000EndSubPrivateSubTimer1_Timer()Label1=TimeEndSub25、用InputBox输入球体的半径，然后计算球体的体积。PrivateSubCommand1_Click()r=InputBox(请输入r)v=4*3.14*r^3/3Printv=;vEndSub26、利用For循环，在文本框中显示1—100之间能被4整除的整数。PrivateSubCommand1_Click()Fori=1To100IfiMod4=0ThenText1=Text1+Str(i)NextiEndSub27、编程求解表达式1！+2！+3！+…+n!的和，n（n1）由键盘输入，最后输出结果。PrivateSubCommand1_Click()n=Val(InputBox(n))x=1Fori=1Tonx=x*is=s+xNextiPrints8EndSub28、编写一个计算三角形面积的Function过程，然后调用该过程计算一个不规则五边形的面积。FunctionA