vb程序设计实例2009-5-22 15: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-22 17:06最佳答案Private Sub Form_Activate()'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。
今有X元，5年以后使用，共有如下6中存法：Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288Dim x As Doublex = 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)End SubPrivate Function ss(ByVal a As Double, b As Integer, c As Double) As Double ss = a + a * c * bEnd FunctionPrivate Sub Form_Load()AutoRedraw = TrueEnd Sub如下Dim str As StringPrivate Sub Command1_Click()str = Text1.SelTextText1.SelText = ""Command3.Enabled = TrueEnd SubPrivate Sub Command2_Click()str = Text1.SelTextCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click()Text1.SelText = strEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Command5_Click()Form2.ShowForm1.HideEnd SubPrivate Sub Form_Load()Command1.Enabled = TrueCommand2.Enabled = TrueCommand3.Enabled = FalseCommand4.Enabled = TrueEnd Sub如何让Command1~4功能键的目标转向text1 的容我点的时候必须把text1里面的容去选定后才能进行操作如何让他自己选定为text1的容- -！上面的Command1剪切功能Command2复制功能Command3粘贴功能Command4退出- -！三、利用VB三维面板控件设计流动条2000-09-15 00:00:00· 王金柱·yeskyVB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的界面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进程的流动条，并可显示进程百分比，改变流动条的颜色等。
一、介绍属性FloodColor：确定流动条的颜色，缺省为蓝色。
FloodPercent：显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值围是0～100。
FloodShowpct：决定是否在三维面板控件上显示百分比，是一个逻辑值。
为 True 时显示，为False时不显示。
FloodType：表示用户对三维面板控件的使用方式。
可取值有 6个，如下所示：0 缺省设置1 表示流动条方向从左到右2 表示流动条方向从右到左3 表示流动条方向从上到下4 表示流动条方向从下到上5 表示使用指定的颜色从圆心向外画圆二、流动条设计如果在Windows3？X下，工具箱中不存在三维面板控件，可选择File菜单中的“Add File…”进行添加，在弹出的对话框中找到Windows\System目录，然后选定Threed？vbx文件即可，如果使用VB4.0，需在Tools菜单中选择 Custom Controls命令，选定Sheridan 3d Controls项，按OK按钮，可在工具箱中增加三维面板控件。
启动VB3？0，在窗体中画一水平方向的长方形三维面板控件，按F4，在属性窗口中设置其Name为P3d、Bevellnner为2－Raised、FloodType为1、FloodshowPct为True，再在窗体中画一个按钮Command1，双击该按钮，键入下面的代码：Sub Command1_Click()P3d？floodpercent=0For N％=1 To 100If N％$#62;100 THENExit SubEnd IfP3d？FloodPercent=N％Next I％End Sub按F5，运行该程序，点击Command按钮，即可看到流动条效果。
四、使用VB设计具有动感的命令图标栏2000-09-15 00:00:00· 嵘·VB编程乐园p> 我们在使用Word、Excel等Windows应用程序时，经常会见到在程序界面顶端有一行“立体式”图标按钮。
当用鼠标按下某一个图标按钮时，程序就执行相应的操作。
这一行“立体式”图标按钮通常就称作命令图标栏或工具条。
命令图标栏一般提供一些最常用的命令，供用户快速地取用，并且它设计时采用了“立体式”按钮，操作时会产生凹下去和凸出来的“动感”，笔者这里就谈谈如何用VB来建立具有“动感”的命令图标栏。
使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。
当鼠标按下时，图标显示为凹入状态的图像；当松开时，图标显示为凸出状态的图像。
通过图像切换就使命令图标具有了“动感”，具体设计步骤如下：1。
首先在窗体中创建一个图片框（Picture Box），将其Align属性置为1，使图片框固定在窗体上端，调节其宽度使其能安置图像或命令按钮。
2。
在图标框创建若干个图像框（Image Control），设置其Autosize＝True，Picture 属性在程序运行中设置。
3。
编写程序代码。
这里假设某个命令图标凸出状态的图像文件名为＂zrup.bmp＂，凹入状态的图像文件名为＂zrdown.bmp＂。
窗体装入时：Sub form－load（）Imagel.picture＝Loadpicture（＂zrup.bmp＂）’ 命令图标凸出End sub鼠标按下时：Sub Imagel－mousedown（Button As Integer Shift As Integer， X As single，Y As single）Imagel.picture＝Loadpicture（＂zrdown.bmp＂）’ 命令图标如下：End sub鼠标松开时：Sub Imagel－mouseup（Button As Integer，Shift As Integer，X As single，Y As single）Imagel.picture＝Loadpicture（＂zrup.bmp＂）’ 命令图标凸出End sub以上只能使命令图标具备凹下去的功能，但当在按鼠标按钮不放，并拖曳鼠标使光标移到外头，原来图标仍然处于凹下状态。
要使其自动凸起，就要编写如下代码：Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As single)Select Case ButtonCase 1If X$#60;=0 or X$#62;Imagel.Width or Y$#60;=0 orY$#62;Imagel.Height thenImagel.picture=Loadpicture("zrup.bmp") ’凸出elseImagel.picture=Lo icture("zrdown.bmp") ’凹入End ifEnd selectEnd sub通过以上三步骤就可以建立具有“动感”的命令图标，若具有多个命令图标时，可通过创建图像控制数组来实现。
BMP是常见的一种图像格式，也可以使用VB提供的丰富的不同状态的命令图标位图文件，它在VB的子目录＼bitmaps＼中。
五、实现窗体部的左右移动'分割区的宽度Private Const SPL99vTERWIDTH = 45'最小移动宽度Private Const HMIN = 15'picLeft和picRight的宽度相对于窗体的比例Private Percent As Single'正在拖动的标志Private DragFlag As Boolean'每次拖动后需要重排窗体上的控件Private Sub RedrawMe()Dim NewWidth As Single' 忽略窗体缩小的情况If WindowState = vbMinimized Then Exit SubNewWidth = (ScaleWidth - SPL99vTERWIDTH) * PercentPicleft.Move 0, 0, NewWidth, ScaleHeightPicright.Move NewWidth + SPL99vTERWIDTH, 0, ScaleWidth - NewWidth - SPL99vTERWIDTH, ScaleHeight End SubPrivate Sub Form_Load()'PicLeft和PicRight的MousePointer=1Percent = 0.5End SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) DragFlag = TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) '定义鼠标为vbSizeWE型MousePointer = vbSizeWEPercent = X / ScaleWidthRedrawMeEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) DragFlag = FalseMousePointer = 0 '此行语句实际没有起作用End Sub六、封面的设计一、封面的设计是这样的，先出现一窗体，上面为你喜欢的图案。