《vb程序设计实例资料讲解》由会员分享，可在线阅读，更多相关《vb程序设计实例资料讲解（21页珍藏版）》请在金锄头文库上搜索。
1、vb程序设计实例精品文档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、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年后到期的本息合
3、计; 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 Dou
4、ble, 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 = Tru
5、eEnd 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如何让Command14功能键的目标转向te
6、xt1 内的内容我点的时候必须 把text1里面的内容去选定后才能 进行操作如何让他自己选定为text1的内容- -！上面的Command1剪切功能 Command2复制功能 Command3粘贴功能 Command4退出- -！三、利用VB三维面板控件设计流动条2000-09-15 00:00:00 王金柱yeskyVB提供了一个三维面板控件，利用这个控件可设计图形效果的立体界面，从而使应用程序的界面显得更生动、美观，该控件还可以设置各种形式的背景，然后在背景上显示各种形式的字符，令人感兴趣的是，使用三维面板控件，还可设计我们经常在安装程序中看到的表示安装进程的流动条，并可显示进程百分比，改
7、变流动条的颜色等。 一、介绍属性 FloodColor：确定流动条的颜色，缺省为蓝色。FloodPercent：显示当前过程如流动条进行的百分比，参数改变时显示的百分数和流动条的面积改变，设为一整型值，取值范围是0100。 FloodShowpct：决定是否在三维面板控件上显示百分比，是一个逻辑值。为 True时显示，为False时不显示。 FloodType：表示用户对三维面板控件的使用方式。可取值有 6个，如下所示： 0缺省设置 1表示流动条方向从左到右 2表示流动条方向从右到左 3表示流动条方向从上到下 4表示流动条方向从下到上 5表示使用指定的颜色从圆心向外画圆 二、流动条设计 如果在
8、Windows3？X下，工具箱中不存在三维面板控件，可选择File菜单中的“Add File”进行添加，在弹出的对话框中找到WindowsSystem目录，然后选定Threed？vbx文件即可，如果使用VB4.0，需在Tools菜单中选择 Custom Controls命令，选定Sheridan 3d Controls项，按OK按钮，可在工具箱中增加三维面板控件。 启动VB3？0，在窗体中画一水平方向的长方形三维面板控件，按F4，在属性窗口中设置其Name为P3d、Bevellnner为2Raised、FloodType为1、FloodshowPct为True，再在窗体中画一个按钮Comman
9、d1，双击该按钮，键入下面的代码： Sub Command1_Click() P3d？floodpercent=0 For N=1 To 100 If N$#62;100 THEN Exit Sub End If P3d？FloodPercent=N Next I End Sub 按F5，运行该程序，点击Command按钮，即可看到流动条效果。 四、使用VB设计具有动感的命令图标栏2000-09-15 00:00:00 张嵘VB编程乐园p我们在使用Word、Excel等Windows应用程序时，经常会见到在程序界面顶端有一行“立体式”图标按钮。当用鼠标按下某一个图标按钮时，程序就执行相应的操作
10、。这一行“立体式”图标按钮通常就称作命令图标栏或工具条。命令图标栏一般提供一些最常用的命令，供用户快速地取用，并且它设计时采用了“立体式”按钮，操作时会产生凹下去和凸出来的“动感”，笔者这里就谈谈如何用VB来建立具有“动感”的命令图标栏。使命令图标具有“动感”是依靠对命令图标的不同状态的图像切换来获得的。当鼠标按下时，图标显示为凹入状态的图像；当松开时，图标显示为凸出状态的图像。通过图像切换就使命令图标具有了“动感”，具体设计步骤如下：1。首先在窗体中创建一个图片框（Picture Box），将其Align属性置为1，使图片框固定在窗体上端，调节其宽度使其能安置图像或命令按钮。2。在图标框内创
11、建若干个图像框（Image Control），设置其AutosizeTrue，Picture属性在程序运行中设置。3。编写程序代码。这里假设某个命令图标凸出状态的图像文件名为zrup.bmp，凹入状态的图像文件名为zrdown.bmp。窗体装入时：Sub formload（）Imagel.pictureLoadpicture（zrup.bmp） 命令图标凸出End sub鼠标按下时：Sub Imagelmousedown（Button As Integer Shift As Integer， X As single，Y As single）Imagel.pictureLoadpicture（z
12、rdown.bmp） 命令图标如下：End sub鼠标松开时：Sub Imagelmouseup（Button As Integer，Shift As Integer，X As single，Y As single） Imagel.pictureLoadpicture（zrup.bmp） 命令图标凸出End sub以上只能使命令图标具备凹下去的功能，但当在按鼠标按钮不放，并拖曳鼠标使光标移到外头，原来图标仍然处于凹下状态。要使其自动凸起，就要编写如下代码：Sub Imagel-mouseup(Button As Integer,Shift As Integer,X As single,Y As
13、 single)Select Case ButtonCase 1If X$#60;=0 or X$#62;Imagel.Width or Y$#60;=0 or Y$#62;Imagel.Height then Imagel.picture=Loadpicture(zrup.bmp) 凸出elseImagel.picture=Lo icture(zrdown.bmp) 凹入End ifEnd selectEnd sub通过以上三步骤就可以建立具有“动感”的命令图标，若具有多个命令图标时，可通过创建图像控制数组来实现。BMP是常见的一种图像格式，也可以使用VB提供的丰富的不同状态的命令图标位图文
14、件，它在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 Sub NewWidth = (ScaleWidth - SPL99vTERWIDTH) * Percent Picleft.Move 0, 0, NewWidth, ScaleHeight Picright.Move NewWidth + SPL99vTERWIDTH, 0, ScaleWidth - NewWidth - SPL99vTERWIDTH, ScaleHeight End Sub Private Sub Form_Load() PicLeft和PicRight的MousePointer=1 Percent = 0.5 End Sub Privat
