对口计算机高职单招VB编程练习题及答案

-1-计算机高职单招VB编程练习题练习一数据的输入输出以下程序代码在窗体的单击事件过程（Form_click）中编写，结果输出到窗体上。1、从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过inputbox函数输入数据，在窗体上显示和及平均值。PrivateSubForm_Click()a=InputBox(输入第一个数)a=Val(a)b=InputBox(输入第二个数)b=Val(b)c=InputBox(输入第三个数)c=Val(c)d=InputBox(输入第四个数)d=Val(d)Sum=a+b+c+daver=Sum/4Print所输入的4个数分别为：;a;b;c;dPrint4个数的和为：;SumPrint4个数的平均值为：;averEndSub2、编写程序，要求用户输入下列信息：姓名、年龄、通信地址、邮政编码、电话，然后将输入的数据用适当的格式在窗体上显示出来。PrivateSubForm_Click()n$=InputBox(请输入您的姓名)Age$=InputBox(请输入您的年龄)Addr$=InputBox(请输入通信地址)Pos$=InputBox(请输入邮政编码)Tel$=InputBox(请输入电话号码)PrintPrintTab(6);姓名;Space$(3);年龄;Space$(3);通信地址;_Space$(5);邮政编码;Space$(3);电话号码PrintPrintTab(5);n$;Space$(3);Age$;Space$(3);Addr$;_Space$(3);Pos$;Space$(3);Tel$EndSub3、编写程序，求解鸡兔同笼问题。一个笼子中有鸡X只，兔Y只，每只鸡有2只脚，每只兔有4只脚，今知鸡和兔的总头数为H，总脚数为F。问笼中鸡和兔各若干？提示：根据数学知识，可以写出如下的联立方程式：X＋Y＝H（1）2X＋4Y＝F（2）（2）式－2*（1）式：2Y＝F－2H故Y＝（F－2H）/24*（1）－（2）式：2X＝4H－F故X=（4H－F）/2可按上式编写程序。用inputbox函数输入H和F的值，设H＝71，F＝158，请编写程序并上机运行。PrivateSubForm_Click()h=InputBox(请输入鸡和兔的总的头数)h=Val(h)f=InputBox(请输入鸡和兔的总的脚数)-2-f=Val(f)y=(f-2*h)/2x=(4*h-f)/2Print笼中有鸡;x;只，兔;y;只EndSub4、设a=5，b=2.5，c=7.8，编程计算：Y＝pi*ab/（a+b*c）。y=3.14*a*b/(a+b*c)PrivateSubForm_Click()a=5:b=2.5:c=7.8y=(3.1416*a*b)/(a+b*c)Printy=;yEndSub程序运行后，单击窗体，输出结果为：y=1.602857142857145、输入以秒为单位表示的时间，编写程序，将其换算成几日几时几秒。PrivateSubForm_Click()DimSecond,Minute,Hour,DayAsLongDimSecond1AsLongSecond=InputBox(请输入秒数)Second=Val(Second)Second1=SecondMinute=Int(Second/60)Second=SecondMod60Hour=Int(Minute/60)Minute=MinuteMod60Day=Int(Hour/24)Hour=HourMod24PrintSecond1;秒=;Day;天;Hour;小时;Minute;分;Second;秒EndSub6、自由落体位移公式为：s＝1/2gt2+vt，其中V为初始速度，g为重力加速度，t为经历程的时间，编写程序，求位移量s。设v=4.8m/s，t=0.5s，g=9.81m/s2，在程序中把g定义为符号常量，用inputbox函数输入v和t两个变量的值。PrivateSubForm_Click()Constg=9.81V=InputBox(PleaseinputV:)T=InputBox(PleaseinputT:)s=1/2*g*T^2+V*TPrint位移量为:;sEndSub程序运行后，单击窗体，输出结果为：位移量为：3.62625练习二常用标准控件1、在窗体上画4个图像框和一个文本框，在每个图像框中装入一个箭头图形，分为4个不同的方向，把文本框的multiline属性设置为true。编写程序，当单击某个图像框时，在文本框中显示相应的信息。例如，单击向右的箭头时，在文本框中显示“单击向右箭头”。程序如下：PrivateSubForm_Load()Image1.Picture=LoadPicture(c:\vb98\Graphics\Icons\arrows\arw04up.ico)Image2.Picture=LoadPicture(c:\vb98\Graphics\Icons\arrows\arw04dn.ico)Image3.Picture=LoadPicture(c:\vb98\Graphics\Icons\arrows\arw04lt.ico)-3-Image4.Picture=LoadPicture(c:\vb98\Graphics\Icons\arrows\arw04rt.ico)EndSubPrivateSubimage1_Click()Text1.Text=单击向上箭头EndSubPrivateSubimage2_Click()Text1.Text=单击向下箭头EndSubPrivateSubimage3_Click()Text1.Text=单击向左箭头EndSubPrivateSubimage4_Click()Text1.Text=单击向右箭头EndSub2、在窗体上建立3个文本框和一个命令按钮。程序运行后，单击命令按钮，在第一个文本框中显示由command1_click事件过程设定的内容（例如“MicrosoftVisualBasic”），同时在第二、第三个文本框中分别用小写字母和大写字母显示第一个文本框中的内容。（提示：用第一个文本框的Change事件过程在第二、三个文本框中显示指定的内容）在窗体上画3个文本框和1个命令按钮，把命令按钮的标题设置为“显示”，然后编写如下程序：PrivateSubCommand1_Click()Text1.Text=MicrosoftVisualBasicEndSubPrivateSubText1_Change()Text2.Text=LCase(Text1.Text)Text3.Text=UCase(Text1.Text)EndSub3、编写程序，用文本框检查口令输入。在窗体上画1个文本框、1个图片框和3个命令按钮，把文本框的PasswordChar属性设置为“*”，把3个命令按钮的标题分别设置为“开始”、“检查口令”和“结束”。程序运行后，单击第一个命令按钮，清除文本框中的信息，并把光标移到文本框中，接着在文本框中输入口令，然后单击第二个命令按钮，检查输入的口令是否正确。如果正确，则在图片框中显示一个图形，否则显示一个信息框，要求重新输入，此时将调用第一个命令按钮的Click事件过程，再一次在文本框中输入口令，直到输入正确的口令为止。如果单击“结束”按钮，则结束程序。PrivateSubCommand1_Click()Text1.Text=Text1.SetFocusEndSubPrivateSubCommand2_Click()IfText1.Text=123456ThenPicture1=LoadPicture(c:\vb98\graphics\metafile\arrows\3darrow4.wmf)MsgBox口令正确，继续执行,,ElseMsgBox口令不对，请重新输入,,Command1_Click′调用事件过程Command1_clickEndIfEndSubPrivateSubCommand3_Click()EndEndSub4、用图形编辑软件（如Windows下的“画图”）画一个简单的图形，然后把它装入图片框。-4-解答：略5、编写程序，演示列表框控件的基本操作。在窗体上建立两个列表框，两个命令按钮。程序运行后，在第一个列表框中选择所需要的项目，单击“添加”按钮，可把所选择的项目移到第二个列表框中。如果单击“删除”按钮，则执行相反的操作。在第二个列表框中，允许同时选择多个项目。要求在每个列表框的下面用标签控件显示各自的Style和Sorted属性。解答：在窗体上建立两个列表框，两个命令按钮，其Name属性分别为List1，List2，cmdAdd，cmdDel。其中，List1采用默认配置，List2的Sorted属性设置为True，Style属性设置为复选框形式。再建立四个标签，Caption属性分别为Style=Standard、Sorted=False、Style=Checkbox、Sorted=true。编写如下代码：PrivateSubcmdAdd_Click（）IfList1.ListIndex=0ThenList2.AddItemList1.TextList1.RemoveItemList1.ListIndexEndIfEndSubPrivateSubcmdDel_Click（）DimIAsIntegerIfList2.SelCount=1ThenList1.AddItemList2.TextList2.RemoveItemList2.ListIndexElseIfList2.SelCount1ThenForI=List2.ListCount-1To0Step-1IfList2.Selected（I）ThenList1.AddItemList2.List（I）List2.RemoveItemIEndIfNextEndIfEndSubPrivateSubForm_Load（）List1.AddItem中国List1.AddItem日本List1.AddItem马来西亚List1.AddItem美国List1.AddItem德国List1.AddItem法国List1.AddItem英国EndSub程序运行后，单击“添加”按钮，将把List1中的所选项移到List2中，然后删除List1中所选项目。单击“删除”按钮，将检查SelCount属性。如果选择了一个项目，则将这个项目移回List1中，如果选择了多个项目，则由后向前扫描List2，将每个选择的项目移回到List1中。6、编写程序，用计时器按秒计时。在窗体上画一个计时器控件和一个标签，程序运行后，在标签内显示经过的秒数，并响铃。解答:在窗体上画1个计时器控件和1个标签，其Name属性分别为Timer1和Label1，并把计时器的Interval属性设置为1000，然后编写如下事件过程：PrivateSubForm_Load()Label1.FontSize=16EndSubPrivateSubTimer1_Timer()StaticcAsInteger-5-c=c+1Label1.Caption=Str$(c)BeepEndSub程序运行后，将在标签内显示经过的秒数，并响铃。7、在窗体上画一个文本框和两个命令按钮，并把两个命令按钮的标题分别设置为“隐藏文本框”和“显示文本框”。当单击第一个命令按钮时，文本框消失；而当单击第二个命令按钮时，文本框重新出现，并在文本框中显示“VB程序设计”(字体大小为16)。运行该程序。PrivateSubCommand1_Click()Text1.Visible=FalseEndSubPrivateSubCommand2_Click()Text1.FontSize=16Text1.Visible=TrueText1.Text=VB程序设计EndSub7、编写程序，计算对两个数进行加、减、乘、除所得的各、差、积、商。