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
简单的vb程序代码
  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"
  List1.AddItem "Nec"
  List1.AddItem "NCR"
End Sub
Private Sub List1_DbClick()
  List2.AddItem List1.Text
  List1.RemoveItem List1.ListIndex
End Sub
Private Sub List2_DbClick()
  List1.AddItem List2.Text
  List2.RemoveItem List2.ListIndex
End Sub
7. 交换图片
交换两个图片框中的图形：
在窗体上建立三个图片框Picture1、Picture2、Picture3，其中两个在上，一个在下。
Private Sub Form_Click()
  '交换位图
    Picture3.Picture=Picture1.Picture
    Picture1.Picture=Picture2.Picture
    Picture2.Picture=Picture3.Picture
  '把第三个图片框设置为空
  Picture3.Picture=LoadPicture()
End Sub
Private Sub Form_Load
  '装入位图
  Picture1.Picture=LoadPicture _
  ("C:\Documents and Settings\All Users\Documents\My Pictures\1.jpg") '可自行改变路径
  Picture2.Picture=LoadPicture _
  ("C:\Documents and Settings\All Users\Documents\My Pictures\2.jpd") '可自行改变路径
End Sub 
8. 冒泡排序
从键盘上输入10个整数，用冒泡法排序（Bubble Sort）法对这十个数从小到大排序：
在窗体上建立一个命令按钮，并把Caption属性设置为“Click Here to Start”
编写程序如下：
Sub Command1_Click()
  Static number(1 To 10) AS Integer '定义数组number为整形
  Msg$="Enter Number for Sort:"
  MsgStile$="Sort Demo"
  For i%=1 To 10

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。