VB小程序代码实例

1.打印负数并分别计算正负数只和：

有如下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 number<0 Then

Print number;

NegativeSum=NegativeSum+number

Else

PostiveSum=PostiveSum+number

End If

Next i

print

print "NegativeSum=";NegativeSum

Print "PostiveSum=";PostiveSum

End Sub

2.打印九九表：

在窗体上打印九九表：

程序如下：

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

3.打印人员名册

打印人员名册:

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

4.单选按钮设置字体类型和大小

单选按钮设置字体类型和大小:

在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。

编写时间过程如下：

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

5.计算存款利息

计算存款利息:

本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。

Sub Form_Click()

Dim p As Currency

p=10000:r=0.125

t=1

Again

If t>10 Then GoTo 100

i=p*r

p=p+i

t=t+1

GoTo Again

100

Print p

End Sub

说明：这里的“Again：”是标号，“100”是行号。

6.交换两个列表框的项目

交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中：

Private Sub Form_Load()

List1.FontSize=14

List2.FontSize=14

List1.AddItem "IBM"

List1.AddItem "Compad"

List1.AddItem "HP"

List1.AddItem "FUJI"

List1.AddItem "Digital"

List1.AddItem "长城"

List1.AddItem "联想"

List1.AddItem "Canon"

List1.AddItem "四通"

List1.AddItem "Acer"