VB上机练习习题

PAGEText2Text11.新建工程，界面如下图，将窗体名称改为f1，标 题 快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题 属性为“我的第一个工程”，Text2允许多行，三个命令按钮名称分别为C1、C2、C3，单击C1按钮将Text1的字体改为黑体，Text2的字体改为隶书。单击C2按钮将Text1的文字颜色改为红色，Text2的背景颜色改为蓝色。单击C3按钮结束程序运行。PrivateSubCommand1_Click()=黑体EndSubPrivateSubCommand2_Click()=vbRed=vbBlueEndSubPrivateSubCommand3_Click()EndEndSub2.新建工程，界面如上图，运行时，鼠标在“改变窗体颜色”按钮上按下时使窗体背景色变为红色，鼠标抬起时使窗体背景色变为绿色。鼠标在窗体空白地方按下时使Text1的内容为“在窗体上按下了鼠标”，鼠标抬起时使Text1的内容为“在窗体上抬起了鼠标”。PrivateSubCommand1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)=vbRedEndSubPrivateSubCommand1_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)=vbGreenEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)="在窗体上按下了鼠标"EndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)="在窗体上抬起了鼠标"EndSub3.新建工程，界面如下图，运行时，在文本框Text1中输入内容的同时，在文本框Text2、Text3中显示相同的内容，但字体不同（字体自定）。PrivateSubCommand1_Click()=""=""=""EndSubPrivateSubCommand2_Click()EndEndSubPrivateSubText1_Change()==EndSub注：“字体不同”可以在属性那调“Font”4.设计一个窗体，如上图所示。当单击某个命令按钮时，对文本框中的文字完成相应的设置。其中，每单击一次“增大”或“缩小”按钮将使文本框中的文字增大或缩小5磅，“粗体”按钮将使文本框中的文字加粗，“斜体”按钮将使文本框中的文字倾斜，“下划线”按钮将使文本框中的文字加下划线，“删除线”按钮将使文本框中的文字加删除线。PrivateSubCommand1_Click()=+5EndSubPrivateSubCommand2_Click()=-5EndSubPrivateSubCommand3_Click()=TrueEndSubPrivateSubCommand4_Click()=TrueEndSubPrivateSubCommand5_Click()=TrueEndSubPrivateSubCommand6_Click()=TrueEndSub5.设计一个窗体，如下图所示。程序中将π定义成符号常量（用Const）,运行时，输入底面半径r和圆柱高h，然后单击“计算”命令按钮，在相应文本框中显示计算结果。运算结果为只读。PrivateSubCommand1_Click()Constpi=h=Val(Text1)r=Val(Text2)=pi*r^2=2*pi*r*h=pi*r^2*hEndSub6.设计界面如上图所示。单击“出题”按钮，产生任意两个【1，100】之间的随机整数于Text1、Text2中，单击“计算”按钮，求两个数的和。运算结果为只读。PrivateSubCommand1_Click()=Int(100*Rnd+1)=Int(100*Rnd+1)EndSubPrivateSubCommand2_Click()a=Valb=Val=a+bEndSub7．设计一个数字钟表程序，界面如图所示。运行时单击窗体，显示当前的年月日星期及时间。PrivateSubForm_Click()=Year(Now)=Month(Now)=Day(Now)=Weekday(Now)=TimeEndSub8．设计一个数学函数程序，界面如图所示。程序运行时，在文本框中输入任意数值，单击相应按钮标签中显示结果。文本框始终处于选中状态。PrivateSubCommand1_Click()=Abs(Val(Text1))=0=LenEndSubPrivateSubCommand2_Click()=Sqr(Val(Text1))=0=LenEndSubPrivateSubCommand3_Click()=Fix(Val(Text1))=0=LenEndSubPrivateSubCommand4_Click()=Int(Val(Text1))=0=LenEndSubPrivateSubCommand5_Click()=Sgn(Val(Text1))=0=LenEndSub9．设计一工程，在文本框中输入一整数，单击“判断”按钮，判断能否同时被3、5、7整除，若能用MsgBox函数显示“能同时被3、5、7整除”，否则显示“不能整除”。PrivateSubCommand1_Click()a=Val(Text1)IfaMod3=0AndaMod5=0AndaMod7=0ThenMsgBox"能同时被3、5、7整除"ElseMsgBox"不能整除"EndIfEndSub10．设计一个计算购书价钱的程序，界面如下图所示。为了提高运行速度，设置Tab键序，使得输入完单价后，焦点定位到输入数量文本框中。单击“计算总价”或用访问键，算出总价。总价文本框要求为只读属性。完成相应功能。PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)=a*bEndSubPrivateSubCommand2_Click()EndEndSub11．设计一工程，界面如上图所示。程序运行，单击“计算”，求出对应角度的三角函数的绝对值于文本框Text2中，同时要求选中文本框Text1内容，以便继续输入。PrivateSubCommand1_Click()a=Val(Text1)b=a*/180c=Abs(Sin(b))d=Abs(Cos(b))=&a&Space(10)&Format(c,"")_&Space(10)&Format(d,"")&vbCrLf=0=LenEndSub12．设计一个程序，用户界面如下图所示。程序运行后，单击“计算”，求出应付款额；单击“清除”，清除所有文本框内容。PrivateSubCommand1_Click()a=Val(Text1)b=Val(Text2)c=Val(Text3)=a*b*cEndSubPrivateSubCommand2_Click()=""=""=""=""EndSub13．输入一个学生的学号和考试成绩，然后按如图格式在图片框中输出学号、考试成绩及评语，评语：90~100优秀；80~89良好；70~79中等；60~69及格；0~59不及格。PrivateSubCommand1_Click()a=Val(Text2)SelectCaseaCase90To100h="优秀"Case80To89h="良好"Case70To79h="中等"Case60To69h="及格"Case0To59h="不及格"EndSelect"学号："&"分数："&a&Space(3)&hEndSub14．设计一个窗体Forml，界面如上图所示。编写适当的事件过程，程序运行后在第一个文本框中输入圆的半径，单击“计算”按钮，分别在第二个和第三个文本框中显示圆的面积和周长。PrivateSubCommand1_Click()a=Val(Text1)=a^2*=2*a*EndSub15．设计一个程序，用户界面如下图所示。程序运行后，单击Command1按钮，求出最大、最小数。PrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)IfacOrAbs(a-c)>bOrAbs(b-c)>aThen="FALSE"Elseh=(a+b+c)/2s=Sqr(h*(h-a)*(h-b)*(h-c))=Format(s,"")EndIfEndSub17．设计一个程序运行界面如下图所示，将输入的三个不同数，按从小到大的顺序排列。PrivateSubCommand1_Click()a=Val(Text1):b=Val(Text2):c=Val(Text3)Ifa100000EndSubPrivateSubCommand2_Click()s=0Fori=1To20n=1Fork=1Toin=n*kNextks=s+nNexti=sEndSub19．在窗体上画两个文本框输入a和n的值（a和n均为一位数字），单击命令按钮输出Sn=a+aa+aaa+aaaa+…+aa…a（最后一项n个a，例如3+33+333+3333）的值于标签中。PrivateSubCommand1_Click()a=n=Val(Text2)Sn=0Fori=1Tonb=String(i,a)Sn=Sn+Val(b)Nexti=SnEndSub20．单击命令按钮将3到200之间的所有奇数显示在列表框中。PrivateSubCommand1_Click()Fori=3To200Step2iNextiEndSub21．在窗体上画一文本框用于输入n值，画两个命令按钮分别求下述表达式的值S1=S2=1×3×5×7×…×(2n-1)并将S1、S2的结果输出到图片框。PrivateSubCommand1_Click()n=Val(Text1)s=0Fori=1Tons=s+(-1)^(i+1)/(2*i-1)NextiS2=1Fori=1TonS2=S2*(2*n-1)Nexti4*sS2EndSub22．在文本框T1中打印100~999之间的所有水仙花数。（该数为各位数字的立方和。例如：153=13+53+33）PrivateSubCommand1_Click()Fori=100To999a=Fix(i/100)b=Fix(i/10)-a*10c=i-Fix(i/10)*10Ifa^3+b^3+c^3=iThen=&i&vbCrLfNextiEndSub23．有一数列，它的头2个数为0、1，以后的每个数都是其前2个数之和。编程在文本框T1中输出所有这些数列，直到第30个数或最后一项等于1000为止，同时在另一文本框中输出它们的和。PrivateSubCommand1_Click()a=0:b=1:s=0=a&vbCrLf&b&vbCrLfFori=1To14s=s+a+ba=a+bb=a+b=&a&vbCrLf&b&vbCrLfNexti=sEndSub24．设计如下图所示界面，单击时输出相应结果，2~N之间素数在列表框中输出，要求判断素数用过程实现。Functionh(aAsInteger)AsBooleanDimmAsInteger,sAsBooleanm=0Fori=2To(a-1)IfaModi=0Thenm=m+1NextiIfm=0Thens=TrueElses=Falseh=sEndFunctionPrivateSubCommand1_Click()DimaAsIntegera=Val(Text1)Ifh(a)=FalseThen="不是素数"Else="是素数"EndIfEndSubPrivateSubCommand2_Click()DimiAsIntegera=Val(Text1)Fori=2ToaIfh(i)=TrueTheniNextiEndSub25．界面如上图，单击各按钮时输入行数，按此行数在窗体上显示不同的图形（参考教材练习6-15）。PrivateSubCommand1_Click()Clsa=Val(InputBox("请输入行数"))Fori=1ToaPrintTab(i);String(a,"*")NextiEndSubPrivateSubCommand2_Click()Clsa=Val(InputBox("请输入行数"))Fori=1ToaPrintTab(a-i+1);String(2*i-1,"*")NextiEndSubPrivateSubCommand3_Click()Clsa=Val(InputBox("请输入行数"))Fori=aTo1Step-1PrintTab(a-i+1);String(2*i-1,"*")NextiEndSubPrivateSubCommand4_Click()Clsa=Val(InputBox("请输入行数"))Fori=aTo1Step-1PrintTab(a-i+1);String(2*i-1,"*");_Space(3);String(2*(a-i)+1,"*")NextiEndSub26．设计如下图所示界面，单击时输出N!和1!+2!+…+N!结果，要求N!用过程实现。Functionh(nAsInteger)AsIntegerDimsAsIntegers=1Fori=1Tons=s*iNextih=sEndFunctionPrivateSubCommand1_Click()DimnAsIntegern=Val(Text1)=h(n)EndSubPrivateSubCommand2_Click()DimnAsIntegerm=Val(Text1)s=0Forn=1Toms=s+h(n)Nextn=sEndSub27．编写一个程序，输出一个5*5的矩阵，该矩阵主、负对角线上元素均为1，其余元素均为2，执行结果如上图所示。OptionBase1DimA(5,5)AsIntegerPrivateSubForm_Click()Fori=1To5Forj=1To5A(i,j)=2Ifi=jThenA(i,j)=1Ifi+j=6ThenA(i,j)=1Nextj,iFori=1To5CurrentY=i*300Forj=1To5CurrentX=j*300PrintA(i,j);Nextj,iEndSub28．界面如下图所示。分别在Textl和Text2中输入两个自然数x、y，用展转相除的方法求自然数x，y的最大公约数和最小公倍数。在窗体上显示结果。DimaAsInteger,bAsInteger,xAsInteger,yAsInteger,rasIntegerPrivateSubCommand1_Click()x=Val(Text1)y=Val(Text2)a=x:b=yr=xModyDoWhiler<>0x=yy=rr=xModyLoop=yEndSubPrivateSubCommand2_Click()=a*b/yEndSubText1Text2Label3Label429．仿照25题画四个命令按钮，单击各按钮在图片框上显示如下不同的数据图形。PrivateSubCommand1_Click()Fori=1To6Forj=iTo1Step-1Printj;NextjPrintNextiEndSubPrivateSubCommand2_Click()Fori=6To1Step-1PrintSpace(18-3*i);Forj=1ToiPrintj;NextjPrintNextiEndSubPrivateSubCommand3_Click()Fori=1To6PrintSpace(18-3*i);Forj=iTo1Step-1Print7-j;NextjPrintNextiEndSubPrivateSubCommand4_Click()Fori=6To1Step-1Forj=iTo1Step-1Printj;NextjPrintNextiEndSub30．设计一个窗体Forml，编写适当的事件过程。控制Text1中背景色和字体格式。(字体默认为宋体，内容为“欢迎学习VB”)程序运行界面如图所示。PrivateSubCheck1_Click()=TrueEndSubPrivateSubCheck2_Click()=TrueEndSubPrivateSubCheck3_Click()=TrueEndSubPrivateSubOption1_Click()=vbRedEndSubPrivateSubOption2_Click()=vbYellowEndSubPrivateSubOption3_Click()=vbBlueEndSub31．利用两个列表框控件，设计选项移动窗体如上图。编写适当的事件过程实现功能要求。PrivateSubCommand1_Click()If=0ThenMsgBox"列表中没有可选的列",,"注意"ExitSubIf>=0ThenFori=0To–1EndIfEndSubPrivateSubCommand2_Click()Fori=0To-1(0)=True0NextiEndSubPrivateSubCommand4_Click()Fori=0To-1(0)=True0NextiEndSub32．设计界面如下图所示，运行时，当移动滚动条时，在标签中能正确显示摄氏、华氏温度值(C=5（F-32）/9)PrivateSubForm_Load()=100=0EndSubPrivateSubVScroll1_Change()==Format*9/5+32,"#.0")EndSub33．设计上面界面，按“开始”按钮使标签在窗体上从左向右移动，当遇到窗体的右侧后，改成从右向左移动，按“停止”按钮停止标签移动。DimaAsIntegerPrivateSubCommand1_Click()=TrueEndSubPrivateSubCommand2_Click()=FalseEndSubPrivateSubTimer1_Timer()EndSub34．编写一个程序，实现在标签中自动依次显示“祝你”，“考试”，“成功”。DimaAsIntegerPrivateSubTimer1_Timer()a=a+1b=aMod3Ifb=1Then="祝你"Ifb=2Then="考试"Ifb=0Then="成功"EndSub35．窗体上有一个名为L1的列表框，通过属性向列表框添加3个项目，分别是“123、456、789”。当启动后，每次双击列表框中任何一项，则总在最后添加一项，该项是所有项之和。界面如下图。PrivateSubL1_DblClick()DimbAsDouble,sAsDoublea=Vals=0Fori=0Toab=Val(i))s=s+bNextisEndSub36．设计如上界面，编写适当的事件过程。程序运行后，每过1秒钟文本框的背景色能够由红到绿，绿到蓝，再由蓝到红循环变化。DimaAsIntegerPrivateSubTimer1_Timer()a=a+1b=aMod3Ifb=1Then=vbRedIfb=2Then=vbGreenIfb=0Then=vbBlueEndSub37．单击第一个按钮，生成20个[0,100]之间的随机整数，显示于文本框1中，单击第二个按钮，求这20个数中的最大数和最小数，显示于文本框2中。OptionBase1Dima(20)AsIntegerPrivateSubCommand1_Click()=""Fori=1To20a(i)=Int(99*Rnd-0)=&a(i)&vbCrLfNextiFori=1To19Forj=i+1To20Ifa(i)>a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextj,i=a(1)&Space(3)&a(20)EndSub38．编写程序，单击第一个按钮，用随机函数产生4行5列的两位整数并输出到图片框1中。单击第二个按钮，实现将第1行和第3行数据交换或第2列和第4列数据交换，输出到图片框2中。DimA(1To4,1To5)AsInteger,B(1To4,1To5)AsIntegerPrivateSubCommand1_Click()Fori=1To4s1=""Forj=1To5A(i,j)=Int(91*Rnd+10)s1=s1&Space(2)&A(i,j)Nextjs1&vbCrLfNextiEndSubPrivateSubCommand2_Click()Fori=1To4s1=""Forj=1To5IfiMod2<>0Thenc=4-iB(i,j)=A(c,j)s1=s1&Space(2)&B(i,j)ElseB(i,j)=A(i,j)s1=s1&Space(2)&B(i,j)EndIfNextjs1&vbCrLfNextiEndSub39．利用Function计算N！，求组合数。在文本框1中输入n，文本框2中输入m，单击命令按钮，在文本框3中显示组合结果。FunctionA(hAsInteger)AsIntegerDimsAsInteger,iAsIntegers=1Fori=1Tohs=s*iNextiA=sEndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsInteger,kAsDoublen=Val(Text1):m=Val(Text2):p=m-nx=A(m):y=A(n):z=A(p)k=x/(y*z)=kEndSub40．生成两个0~10之间的随机整数矩阵，分别放入两个列表框，求两个矩阵之和放入第三个列表框。如下图所示。PrivateSubForm_Load()Fori=1To5s1=""Forj=1To5a(i,j)=Int(Rnd*11)s1=s1&Format(a(i,j),"!@@@")Nextjs1&vbCrLfNextiFori=1To5s1=""Forj=1To5b(i,j)=Int(Rnd*11)s1=s1&Format(b(i,j),"!@@@")Nextjs1&vbCrLfNextiEndSubPrivateSubCommand1_Click()Fori=1To5s1=""Forj=1To5c(i,j)=a(i,j)+b(i,j)s1=s1&Format(c(i,j),"!@@@")Nextjs1&vbCrLfNextiEndSubPrivateSubCommand2_Click()EndEndSub41．生成10个两位数的随机整数，放入A数组，单击显示按钮全部显示在文本框1中，单击排序按钮由小到大排序，显示在文本框2中。（如上图）OptionBase1DimA(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10A(i)=Int(91*Rnd+10)=&A(i)&Space(1)NextiEndSubPrivateSubCommand2_Click()Fori=1To9Forj=i+1To10IfA(i)>A(j)Thent=A(i)A(i)=A(j)A(j)=tEndIfNextj,iFori=1To10=&A(i)&Space(1)NextiEndSub42．如下图，单击显示按钮，将20个随机两位整数，输出在LIST1中；单击排序按钮，将使用子过程降序排序的结果输出在LIST2中。OptionBase1DimA(10)AsIntegerPrivateSubCommand1_Click()Fori=1To10A(i)=Int(91*Rnd+10)A(i)NextiEndSubPrivateSubCommand2_Click()Fori=1To9Forj=i+1To10IfA(i)>A(j)Thent=A(i)A(i)=A(j)A(j)=tEndIfNextj,iFori=1To10A(i)NextiEndSub43．编写适当的事件过程,在窗体上输出相应行数的杨辉三角形。点击窗体弹出InputBox对话框，在对话框中输入行数，打印出如上图所示形态的杨辉三角形。DimA()AsIntegerPrivateSubForm_Click()DimmAsInteger,nAsIntegerm=Val(InputBox("请输入行数"))n=mReDimA(m,n)Fori=0Tom-1A(i,i)=1A(i,0)=1NextiPrintTab(3*m-1);1Fori=2Ton-1s=""Forj=1Toi-1A(i,j)=A(i-1,j)+A(i-1,j-1)s=s&Space(5)&A(i,j)NextjPrintTab(3*(m-i));A(i,0)&s&Space(5)&A(i,i)NextiEndSub44．编写程序，实现矩阵转置，即将一个nm的矩阵（均由随机函数产生，并且是两位整数）的行和列互换。单击显示按钮将原矩阵放在图片框1，单击转置按钮将转置后的矩阵输出在图片框2。OptionBase1Dima(4,5)AsInteger,b(5,4)AsIntegerPrivateSubCommand1_Click()Fori=1To4s=""Forj=1To5a(i,j)=Int(91*Rnd+10)s=s&Space(2)&a(i,j)NextjsNextiEndSubPrivateSubCommand2_Click()Fori=1To5s=""Forj=1To4b(i,j)=a(j,i)s=s&Space(2)&b(i,j)NextjsNextiEndSub45．编写函数过程计算1+2+3+。。。+n，运行时输入m，n，p的值，单击“Y=”输出结果（保留三位小数）。如上图所示。FunctionA(hAsInteger)AsIntegerDimsAsInteger,iAsIntegers=0Fori=1Tohs=s+iNextiA=sEndFunctionPrivateSubCommand1_Click()DimmAsInteger,nAsInteger,pAsInteger,kAsDoublem=Val(Text1):n=Val(Text2):p=Val(Text3)x=A(m):y=A(n):z=A(p)k=(x+y)/z=kEndSub46．利用控件数组Text1、Text2将Text1中随机产生的数，交换到Text2中，界面如下图所示。PrivateSubForm_Load()Fori=0To5Text1(i).Text=Int(91*Rnd+10)NextiEndSubPrivateSubCommand1_Click()Fork=0To5Text2(k).Text=Text1(5-k).TextNextkEndSub47．在一工程中有两窗体，界面如图所示，试完成相应功能。’这是 标准 excel标准偏差excel标准偏差函数exl标准差函数国标检验抽样标准表免费下载红头文件格式标准下载 模块的代码：PublicwAsInteger’这是Form1的代码：PrivateSubCommand1_Click()n=Val(Text1)=n^3EndSubPrivateSubCommand2_Click()UnloadMeEndSub’这是Form2的代码：PrivateSubForm_Load()=nEndSubPrivateSubCommand1_Click()s=1Fori=1Tons=s*iNexti=sEndSubPrivateSubCommand2_Click()UnloadMeEndSub48．在窗体放一个文本框和四个组合框，界面如下图所示，组合框1和组合框2的颜色包括：白、黑、红、绿、蓝、黄。组合框3的对齐方式有左、中、右。组合框4字体大小有10、12、14、18、20、22磅，试完成相应功能。PrivateSubCombo1_Click()SelectCaseCase0=vbWhiteCase1=vbBlackCase2=vbRedCase3=vbGreenCase4=vbBlueCase5=vbYellowEndSelectEndSubPrivateSubCombo2_Click()SelectCaseCase0=vbWhiteCase1=vbBlackCase2=vbRedCase3=vbGreenCase4=vbBlueCase5=vbYellowEndSelectEndSubPrivateSubCombo3_Click()SelectCaseCase0=0Case1=1Case2=2EndSelectEndSubPrivateSubCombo4_Click()SelectCaseCase0=10Case1=12Case2=14Case3=18Case4=20Case5=22EndSelectEndSub49．用inputBox函数输入10个数，分别求出奇数和偶数之和，用消息框(Msgbox函数)输出。PrivateSubCommand1_Click()s1=0:s2=0Fori=1To10a=Val(InputBox("请输入第"&i&"个数"))b=aMod2Ifb<>0Thens1=s1+aElses2=s2+aEndIfNextiMsgBox"奇数之和为"&s1&vbCrLf&"偶数之和为"&s2EndSub50．用文本框1输入10个学生的某门课程的分数后，给出五级评分。评分标准如下：优90≤成绩≤100良80≤成绩≤90中70≤成绩≤80及格60≤成绩≤70不及格0≤成绩≤60评分结果显示在文本框2中，如果分数不在[0，100]范围内，则用消息框(Msgbox函数)给出错误提示，并将焦点定位在输入分数的文本框。PrivateSubForm_Click()StaticiAsIntegeri=i+1a=Val(Text1)SelectCaseaCaseIs<0,Is>100MsgBox"输入错误，请重新输入",,"错误"CaseIs<=60=&i&Space(2)&a&Space(2)&"不及格"&vbCrLf="输入第"&i&"个学生的成绩"CaseIs<=70=&i&Space(2)&a&Space(2)&"及格"&vbCrLf="输入第"&i&"个学生的成绩"CaseIs<=80=&i&Space(2)&a&Space(2)&"中"&vbCrLf="输入第"&i&"个学生的成绩"CaseIs<=90=&i&Space(2)&a&Space(2)&"良"&vbCrLf="输入第"&i&"个学生的成绩"CaseIs<=100=&i&Space(2)&a&Space(2)&"优"&vbCrLf="输入第"&i&"个学生的成绩"EndSelectEndSubPrivateSubForm_Load()="输入第1个学生的成绩"EndSubPrivateSubForm_Load()="请输入第1个学生的成绩"EndSub