vb程序设计实例

vb程序设计实例2009-5-2215:37提问者：淘淘的某在|悬赏分：20|浏览次数：1688次编写程序，设银行定期存款的年利率为：1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：①存一次5年期；②存一次3年期，一次2年期；③存一次3年期，两次1年期；④存两次2年期，一次1年期；⑤存一次2年期，三次1年期；⑥存五次1年期.分别计算各种存法5年后到期的本息合计，如图所示2009-5-2217:06最佳答案PrivateSubForm_Activate()'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：Constx1AsDouble=0.0225,x2AsDouble=0.0243,x3AsDouble=0.027,x5AsDouble=0.0288DimxAsDoublex=Val(InputBox())Print①存一次5年期,5年后到期的本息合计;ss(x,5,x5)Print②存一次3年期，一次2年期,5年后到期的本息合计;ss(ss(x,3,x3),2,x2)Print③存一次3年期，两次1年期,5年后到期的本息合计;ss(ss(ss(x,3,x3),1,x1),1,x1)Print④存两次2年期，一次1年期,5年后到期的本息合计;ss(ss(ss(x,2,x2),2,x2),1,x1)Print⑤存一次2年期，三次1年期,5年后到期的本息合计;ss(ss(ss(ss(x,2,x2),1,x1),1,x1),1,x1)Print⑥存五次1年期,5年后到期的本息合计;ss(ss(ss(ss(ss(x,1,x1),1,x1),1,x1),1,x1),1,x1)EndSubPrivateFunctionss(ByValaAsDouble,bAsInteger,cAsDouble)AsDoubless=a+a*c*bEndFunctionPrivateSubForm_Load()AutoRedraw=TrueEndSub如下DimstrAsStringPrivateSubCommand1_Click()str=Text1.SelTextText1.SelText=Command3.Enabled=TrueEndSubPrivateSubCommand2_Click()str=Text1.SelTextCommand3.Enabled=TrueEndSubPrivateSubCommand3_Click()Text1.SelText=strEndSubPrivateSubCommand4_Click()EndEndSubPrivateSubCommand5_Click()Form2.ShowForm1.HideEndSubPrivateSubForm_Load()Command1.Enabled=TrueCommand2.Enabled=TrueCommand3.Enabled=FalseCommand4.Enabled=TrueEndSub如何让Command1~4功能键的目标转向text1内的内容我点的时候必须把text1里面的内容去选定后才能进行操作如何让他自己选定为text1的内容--！上面的Command1剪切功能Command2复制功能Command3粘贴功能Command4退出--！三、利用VB三维面板控件设计流动条2000-09-1500:00:00·王金柱·yeskyVB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的界面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进程的流动条，并可显示进程百分比，改变流动条的颜色等。一、介绍属性FloodColor：确定流动条的颜色，缺省为蓝色。FloodPercent：显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0～100。FloodShowpct：决定是否在三维面板控件上显示百分比，是一个逻辑值。为True时显示，为False时不显示。FloodType：表示用户对三维面板控件的使用方式。可取值有6个，如下所示：0缺省设置1表示流动条方向从左到右2表示流动条方向从右到左3表示流动条方向从上到下4表示流动条方向从下到上5表示使用指定的颜色从圆心向外画圆二、流动条设计如果在Windows3？X下，工具箱中不存在三维面板控件，可选择File菜单中的“AddFile…”进行添加，在弹出的对话框中找到Windows\System目录，然后选定Threed？vbx文件即可，如果使用VB4.0，需在Tools菜单中选择CustomControls命令，选定Sheridan3dControls项，按OK按钮，可在工具箱中增加三维面板控件。启动VB3？0，在窗体中画一水平方向的长方形三维面板控件，按F4，在属性窗口中设置其Name为P3d、Bevellnner为2－Raised、FloodType为1、FloodshowPct为True，再在窗体中画一个按钮Command1，双击该按钮，键入下面的代码：SubCommand1_Click()P3d？floodpercent=0ForN％=1To100IfN％$#@62;100THENExitSubEndIfP3d？FloodPercent=N％NextI％EndSub按F5，运行该程序，点击Command按钮，即可看到流动条效果。四、使用VB设计具有动感的命令图标栏2000-09-1500:00:00·张嵘·VB编程乐园p我们在使用Word、Excel等Windows应用程序时，经常会见到在程序界面顶端有一行“立体式”图标按钮。当用鼠标按下某一个图标按钮时，程序就执行相应的操作。这一行“立体式”图标按钮通常就称作命令图标栏或工具条。命令图标栏一般提供一些最常用的命令，供用户快速地取用，并且它设计时采用了“立体式”按钮，操作时会产生凹下去和凸出来的“动感”，笔者这里就谈谈如何用VB来建立具有“动感”的命令图标栏。使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。当鼠标按下时，图标显示为凹入状态的图像；当松开时，图标显示为凸出状态的图像。通过图像切换就使命令图标具有了“动感”，具体设计步骤如下：1。首先在窗体中创建一个图片框（PictureBox），将其Align属性置为1，使图片框固定在窗体上端，调节其宽度使其能安置图像或命令按钮。2。在图标框内创建若干个图像框（ImageControl），设置其Autosize＝True，Picture属性在程序运行中设置。3。编写程序代码。这里假设某个命令图标凸出状态的图像文件名为＂zrup.bmp＂，凹入状态的图像文件名为＂zrdown.bmp＂。窗体装入时：Subform－load（）Imagel.picture＝Loadpicture（＂zrup.bmp＂）’命令图标凸出Endsub鼠标按下时：SubImagel－mousedown（ButtonAsIntegerShiftAsInteger，XAssingle，YAssingle）Imagel.picture＝Loadpicture（＂zrdown.bmp＂）’命令图标如下：Endsub鼠标松开时：SubImagel－mouseup（ButtonAsInteger，ShiftAsInteger，XAssingle，YAssingle）Imagel.picture＝Loadpicture（＂zrup.bmp＂）’命令图标凸出Endsub以上只能使命令图标具备凹下去的功能，但当在按鼠标按钮不放，并拖曳鼠标使光标移到外头，原来图标仍然处于凹下状态。要使其自动凸起，就要编写如下代码：SubImagel-mouseup(ButtonAsInteger,ShiftAsInteger,XAssingle,YAssingle)SelectCaseButtonCase1IfX$#@60;=0orX$#@62;Imagel.WidthorY$#@60;=0orY$#@62;Imagel.HeightthenImagel.picture=Loadpicture(zrup.bmp)’凸出elseImagel.picture=Loicture(zrdown.bmp)’凹入EndifEndselectEndsub通过以上三步骤就可以建立具有“动感”的命令图标，若具有多个命令图标时，可通过创建图像控制数组来实现。BMP是常见的一种图像格式，也可以使用VB提供的丰富的不同状态的命令图标位图文件，它在VB的子目录＼bitmaps＼中。五、实现窗体内部的左右移动'分割区的宽度PrivateConstSPL99vTERWIDTH=45'最小移动宽度PrivateConstHMIN=15'picLeft和picRight的宽度相对于窗体的比例PrivatePercentAsSingle'正在拖动的标志PrivateDragFlagAsBoolean'每次拖动后需要重排窗体上的控件PrivateSubRedrawMe()DimNewWidthAsSingle'忽略窗体缩小的情况IfWindowState=vbMinimizedThenExitSubNewWidth=(ScaleWidth-SPL99vTERWIDTH)*PercentPicleft.Move0,0,NewWidth,ScaleHeightPicright.MoveNewWidth+SPL99vTERWIDTH,0,ScaleWidth-NewWidth-SPL99vTERWIDTH,ScaleHeightEndSubPrivateSubForm_Load()'PicLeft和PicRight的MousePointer=1Percent=0.5EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DragFlag=TrueEndSubPrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)'定义鼠标为vbSizeWE型MousePointer=vbSizeWEPercent=X/ScaleWidthRedrawMeEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)DragFlag=FalseMousePointer=0'此行语句实际没有起作用EndSub六、封面的设计一、封面的设计是这样的，先出现一窗体，上面为你喜欢的图案。然后出现一艘从左向右行驶着的船。屏幕上方从两侧分别移动出“欢迎”两个字。具体的制作方法是：把预先选好的背景图案装入封面窗体中，窗体命名为CAI。再分别在三个图像控件(image)中装入预先制作好的位图“欢”、“迎”和船型图案。然后把三个image放置在初始位置(即图案刚在窗体出现时的位置)，并把它们的可视属性都设置为“false”。程序如下：SubForm_load()cai.Show′显示封面窗体Dimi′定义变量image3.visible=True′船型图像控件出现a1:Ifimage3.Left6120Then′6120为船移动到屏幕右边的坐标,此值可以随需要选取image3.Moveimage3.Left＋50′移动此图像控件如嫌移动慢,可改变移动值Gotoa1EndIfimage1.visible=True′“欢”字出现a2:Ifimage1.Left2120Then′2120为“欢