VB小程序代码.docVIP

打印负数并分别计算正负数只和： 有如下10个数： -2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。 程序如下： Sub Form_Click() Dim number AS Integer NegativeSum=0:PostiveSum=0 For i=1 To 10 number=InputBox(Enter data: ) If number0 Then Print number; NegativeSum=NegativeSum+number Else PostiveSum=PostiveSum+number End If Next i print print NegativeSum=;NegativeSum Print PostiveSum=;PostiveSum End Sub 打印九九表： 在窗体上打印九九表： 程序如下： Print Sub Form_Click() FontSize=12 Print Tab(30);9*9 Table Print:Print 输出两个空行 Print * ; For i=1 To 9 Print Tab(i*6);i; 打印横行序号 Next i For j=1 To 9 Print j; ; 打印竖行序号 For k=1 To j temp=j*k Print Tab(k*6);temp; ; 打印乘积 Next k Print 输出一个空行 Next j End Sub 打印人员名册 打印人员名册: Private Sub Form_Click() Print:Print FontName=魏碑 FontSize=16 Print 姓名;Tab(8);年龄;Tab(16);职务;Tab(24);单位;Tab(32);籍贯 Print Print 张得功;Tab(8);25;Tab(16);科长;Tab(24);劳动科;Tab(32);北京 Print 李德生;Tab(8);32;Tab(16);处长;Tab(24);科研处;Tab(32);上海 End Sub 单选按钮设置字体类型和大小 单选按钮设置字体类型和大小: 在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。 编写时间过程如下： Ptivate Sub Form_Load() Form1.Caption=框架用法示例 Command1.Caption=确定 Command2.Caption=结束 Frame1.Caption=字体类型 Frame2.Caption=字体大小 Option1.Caption=魏碑 Option2.Caption=幼圆 Option3.Caption=16 Option4.Caption=24 Text1.Text=Visual Basic 程序设计 End Sub Private Sub Command1.Click_() If Optoion1 Then Text1.FontName=魏碑 Else Text1.FontName=幼圆 End IF If Option3 Then Text1.FontSize=16 Else Text1.FontSize=24 End If End Sub Private Sub Command2.Click_() End End Sub 计算存款利息 计算存款利息: 本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。 Sub Form_Click() Dim p As Currency p=10000:r=0.125 t=1 Again If t10 Then GoTo 100 i=p*r p=p+i t=t+1 GoTo Again 100 Print p End Sub 说明：这里的“Again：”是标号，“100”是行号。 交换两个列表框的项目 交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中： Private Sub Form_Load() List1.F