期末复习之VB编程题汇总

第2章补充实验1、设计程序，在窗体上建立3个命令按钮，隐藏最小化、最大化按钮，如图1所示。单击3个命令按钮后分别使窗体最大化、还原或最小化。最后将工程文件、窗体文件分别以ch2-1.vbp、ch2-1.frm为文件名保存在D:\ch2文件夹下。图1参考代码：PrivateSubCommand1_Click()Form1.WindowState=2EndSubPrivateSubCommand2_Click()Form1.WindowState=0EndSubPrivateSubCommand3_Click()Form1.WindowState=1EndSub2、设计程序，在窗体上建立3个命令按钮，3个文本框，如图2、图3所示。利用2个文本框输入两个数，单击“计算”按钮时，将两个数的平方和显示在第三个文本框中；单击“清除”按钮，清除所有文本框的内容；单击“定位”按钮，将光标定位到第二个文本框中。最后将工程文件、窗体文件分别以ch2-2.vbp、ch2-2.frm为文件名保存在D:\ch2文件夹下。图2图3参考代码：PrivateSubCommand1_Click()Text3=Text1^2+Text2^2EndSubPrivateSubCommand2_Click()Text1=Text2=Text3=EndSubPrivateSubCommand3_Click()Text2.SetFocusEndSub3、设计一个调色板程序，在窗体上建立5个命令按钮，1个标签，如图4所示。单击对应的颜色按钮，将在标签中显示对应的颜色。最后将工程文件、窗体文件分别以ch2-3.vbp、ch2-3.frm为文件名保存在D:\ch2文件夹下。图4参考代码：PrivateSubCommand1_Click()Label1.BackColor=vbRedEndSubPrivateSubCommand2_Click()Label1.BackColor=vbGreenEndSubPrivateSubCommand3_Click()Label1.BackColor=vbBlueEndSubPrivateSubCommand4_Click()Label1.BackColor=vbBlackEndSubPrivateSubCommand5_Click()Label1.BackColor=vbWhiteEndSub第5章补充实验1、设计一个程序，要求如下：⑴产生10个2位随机正整数；⑵在窗体上分别输出10个2位随机正整数的正序和逆序；⑶求出这10个数的平均值ave、最大值max和最小值min，并输出到一个标签上；⑷窗体的参考运行结果界面如图1所示。⑸最后将工程文件、窗体文件分别以ch5-1.vbp、ch5-1.frm为文件名保存在D:\ch5文件夹下。图1参考运行结果界面参考代码：OptionBase1PrivateSubCommand1_Click()Dima(10)AsInteger,ave!,max%,min%,i%RandomizePrint10个数的正序为：;Fori=1To10a(i)=Int(Rnd*90)+10ave=ave+a(i)Printa(i);Nextave=ave/10PrintPrint10个数的逆序为：;Fori=10To1Step-1Printa(i);NextPrintmax=a(1):min=a(1)Fori=2To10Ifa(i)maxThenmax=a(i)Elsemin=a(i)EndIfNextLabel1=平均值：&ave&vbCrLf&最大值：&max&vbCrLf&最小值：&minEndSubPrivateSubCommand2_Click()EndEndSub2、编写程序产生4×4矩阵A，输出矩阵A，以及矩阵A的上三角矩阵和下三角矩阵。程序参考运行结果界面如图2所示。最后将工程文件、窗体文件分别以ch5-2.vbp、ch5-2.frm为文件名保存在D:\ch5文件夹下。图2参考运行结果界面参考代码：OptionBase1PrivateSubCommand1_Click()Dima%(4,4),b%(4,4),i%,j%Fori=1To4'产生数组AForj=1To4a(i,j)=4*(i-1)+jNextjNextiPrint产生的矩阵A为：;'输出数组AFori=1To4Forj=1To4PrintTab(10+j*4);a(i,j);NextjPrintNextiPrint它的上三角矩阵为：'输出数组A的上三角矩阵Fori=1To4Forj=iTo4PrintTab(10+j*4);a(i,j);NextjPrintNextiPrint它的下三角矩阵为：'输出数组A的下三角矩阵Fori=1To4Forj=1ToiPrintTab(10+j*4);a(i,j);NextjPrintNextiEndSub第3章补充实验11、设计程序，求出VB系统赋给各种类型变量的默认值，将工程文件、窗体文件分别以ch31-1.vbp、ch31-1.frm为文件名保存在D:\ch31文件夹下，并根据程序的运行结果及所学的知识填写表1。表1类型类型名类型符默认值字节型Byte无0整型Intege%0长整型Long&0单精度型Single!0双精度型Double#0货币型Currency@0字符串型String$“”逻辑型Boolean无False日期型Date无0:00:00对象型Object无无变体型Variant无“”参考结果与代码：PrivateSubCommand1_Click()DimaAsByte,b%,c&,d!,e#,f@,g$DimhAsBoolean,iAsDate,jAsObject,kAsVariantPrinta=;a,b=;b,c=;c,d=;d,e=;ePrintf=;f,g=;g,h=;h,i=;i,k=;kEndSub第3章补充实验21、设计程序，求解一元二次方程ax2+bx+c=0的实根（假定判别式△≥0），窗体参考界面如图1、图2所示。最后将工程文件、窗体文件分别以ch32-1.vbp、ch32-1.frm为文件名保存在D:\ch32文件夹下。图1窗体界面图2参考运行结果界面参考代码：PrivateSubCommand1_Click()Dima!,b!,c!,d!,x1!,x2!a=Text1b=Text2c=Text3d=b*b-4*a*cx1=(-b+Sqr(d))/2/ax2=(-b-Sqr(d))/2/aText4=x1Text5=x2EndSubPrivateSubCommand2_Click()EndEndSub2、修改题1中程序，改用inputbox函数输入a,b,c的值，输出x1、x2的值改用msgbox函数，程序参考界面如图3、图4所示。最后将工程文件、窗体文件分别以ch32-2.vbp、ch32-2.frm为文件名保存在D:\ch32文件夹下。图3输入界面图4参考运行结果界面参考代码：PrivateSubForm_Click()Dima!,b!,c!,d!,x1!,x2!a=InputBox(a=)b=InputBox(b=)c=InputBox(c=)d=b*b-4*a*cx1=(-b+Sqr(d))/2/ax2=(-b-Sqr(d))/2/aMsgBox(x1=&x1&,x2=&x2)EndSub3、设计程序，从键盘上输入3位的正整数，单击“求解”按钮，则能分解出该3位数的个位、十位和百位，单击“退出”按钮，则结束程序运行。窗体参考界面如图5、图6所示。最后将工程文件、窗体文件分别以ch32-3.vbp、ch32-3.frm为文件名保存在D:\ch32文件夹下。图5窗体界面图6参考运行结果界面参考代码：PrivateSubCommand1_Click()Dimn%,x%,y%,z%n=Text1x=n\100y=(n-x*100)\10z=n-100*x-y*10Text2=x:Text3=y:Text4=zEndSubPrivateSubCommand2_Click()EndEndSub第4章补充实验11、设计程序，计算如下函数的值：𝐲={𝐥𝐧𝐱𝐱𝟎𝐞𝐱𝐱≤𝟎要求如下：(1)使用inputbox函数输入x的值，使用msgbox显示函数y的值。(2)使用单分支if-then-endif语句实现分支功能。(3)窗体参考界面如图1、图2所示。(4)将工程文件、窗体文件分别以ch41-1.vbp、ch41-1.frm为文件名保存在D:\ch41文件夹下。图1窗体运行界面图2参考运行结果界面参考代码：PrivateSubForm_Click()Dimx!,y!x=Val(InputBox(x=))Ifx0Theny=Log(x)EndIfIfx=0Theny=Exp(x)EndIfMsgBox(x=&x&,y=&y)EndSub2、修改题1中程序，要求如下：(1)使用双分支if-then-else-endif语句实现分支功能。(2)将工程文件、窗体文件分别以ch41-2.vbp、ch41-2.frm为文件名保存在D:\ch41文件夹下。参考代码：PrivateSubForm_Click()Dimx!,y!x=Val(InputBox(x=))Ifx0Theny=Log(x)Elsey=Exp(x)EndIfMsgBox(x=&x&,y=&y)EndSub3、设计程序，求解一元二次方程ax2+bx+c=0，要求如下：(1)当判别式△＜0时，用msgbox显示“判别式△＜0，方程无实根！”，单击“确定”按钮后清空三个文本框；当判别式△≥0时，求出两实根。(2)使用if-then-else-endif语句实现分支功能。(3)窗体参考界面如图3、图4、图5所示。(4)将工程文件、窗体文件分别以ch41-3.vbp、ch41-3.frm为文件名保存在D:\ch41文件夹下。图3窗体界面图4参考运行结果界面1图5参考运行结果界面2参考代码：PrivateSubCommand1_Click()Dima!,b!,c!,d!,x1!,x2!a=Val(Text1)b=Val(Text2)c=Val(Text3)d=b*b-4*a*cIfd0ThenMsgBox(判别式△＜0，方程无实根！)Text1=:Text2=:Text3=Elsex1=(-b+Sqr(d))/2/ax2=(-b-Sqr(d))/2/aText4=x1Text5=x2EndIfEndSubPrivateSubCommand2_Click()EndEndSub4、修改题3中程序，要求如下：(1)改用inputbox函数输入a,b,c的值，输出x1、x2的值改用msgbox函数。(2)当a=0时，用msgbox显示“a=0,不是一元二次方程！”；当判别式△＜0时，用msgbox显示“判别式△＜0，方程无实根！”；当判别式△≥0时，求出两实根，并用msgbox显示。(3)使用if-then-elseif-endif语句实现分支功能。(4)窗体参考界面如图6、图7、图8、图9所示。(5)将工程文件、窗体文件分别以ch41-4.vbp、ch41-4.frm为文件名保存在D:\ch41文件夹下。图6输入界面图7参考运行结果界面1图8参考运行结果界面2图9参考运行结果界面3参考代码：PrivateSubForm_Click()Dima!,b!,c!,d!,x1!,x2!a=InputBox(a=)b=InputBox(b=)c=InputBox(c=)d=b*b-4*a*cIfa=0ThenMsgBox(a=0,不是一元二次方程！)ElseIfd0ThenMsgBox(判别式△＜0，方程无实根！)Elsex1=(-b+Sqr(d))/2/ax2=(-b-Sqr(d))/2/aMsgBox(x1=&x1&,x2=&x2)EndIfEndSub第4章补充实验21、设计一个调色板程序，在窗体