1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值) 打印出其中的每个负数，分别计算并输出正数和负数的和。
程序如下：Sub Form_Click()Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 To 10number=InputBox("Enter data: ")If number<0 ThenPrint number;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveSum+numberEnd IfNext iprintprint "NegativeSum=";NegativeSumPrint "PostiveSum=";PostiveSumEnd Sub2.打印九九表：在窗体上打印九九表：程序如下：Print Sub Form_Click()FontSize=12Print Tab(30);"9*9 Table"Print:Print '输出两个空行Print "* ";For i=1 To 9Print Tab(i*6);i; '打印横行序号Next iFor j=1 To 9Print j;" "; '打印竖行序号For k=1 To jtemp=j*kPrint Tab(k*6);temp;" "; '打印乘积Next kPrint '输出一个空行Next jEnd Sub3.打印人员名册打印人员名册:Private Sub Form_Click()Print:PrintFontName="魏碑"FontSize=16Print "姓名";Tab(8);"年龄";Tab(16);"职务";Tab(24);"单位";Tab(32);"籍贯"PrintPrint "张得功";Tab(8);"25";Tab(16);"科长";Tab(24);"劳动科";Tab(32);"北京"Print "李德生";Tab(8);"32";Tab(16);"处长";Tab(24);"科研处";Tab(32);"上海" End Sub4.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。
编写时间过程如下：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 SubPrivate Sub Command1.Click_()If Optoion1 ThenText1.FontName="魏碑"ElseText1.FontName="幼圆"End IFIf Option3 ThenText1.FontSize=16ElseText1.FontSize=24End IfEnd SubPrivate Sub Command2.Click_()EndEnd Sub5.计算存款利息计算存款利息:本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。
Sub Form_Click()Dim p As Currencyp=10000:r=0.125t=1AgainIf t>10 Then GoTo 100i=p*rp=p+it=t+1GoTo Again100Print pEnd Sub说明：这里的“Again：”是标号，“100”是行号。
6.交换两个列表框的项目交换两个列表框的项目。
其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。
当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中：Private Sub Form_Load()List1.FontSize=14List2.FontSize=14List1.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 SubPrivate Sub List1_DbClick()List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_DbClick()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub7.交换图片交换两个图片框中的图形：在窗体上建立三个图片框Picture1、Picture2、Picture3，其中两个在上，一个在下。
Private Sub Form_Click()'交换位图Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.Picture'把第三个图片框设置为空Picture3.Picture=LoadPicture()End SubPrivate 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 Sub8.冒泡排序从键盘上输入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 10number(i%)=InputBox(Msg$,MsgTile$)Next i%For i%=10 To 2 Step -1For j%=1 To i%-1If number(j%)=number(j%+1) Thent=number(j%+1)number(j%+1)=number(j%)number(j%)=tEnd IfNext j%Next i%For i%=1 To 10Print number(i%)Next i%End Sub9.判断0~9数据类型--奇数或偶数判断字母大小写及0~9数据类型--奇数或偶数:Sub Form_Click()Dim Msg,UserInputMsg="Please enter a letter or number from 0 though 9." UserInput=InputBox(Msg)If Len(UserInput)<>0 ThenSelect Case Asc(UserInput) '返回ASCII码Case 65 To 90 '大写字母Msg="You entered the uppercase letter"Msg=Msg&Chr(Asc(UserInput))&"!"Case 97 To 122 '小写字母Msg="You entered the lowercase letter"Msg=Msg&Chr(Asc(UserInput))&"!"Case ElseMsg="You did not enter a letter or a number."End SelectElseSelect Case CDbl(UserInput) '转换为双精度数值Case 1,3,5,7,9Msg=UserInput&"is an odd number" '奇数Case 0,2,4,6,8Msg=UserInput&"is an odd number" '偶数Case Else '出界Msg="You entered a number ouside"Msg=Msg&"the requested range"End SelectEnd IfMsgBox MsgEnd Sub10.判断100~200的所有偶数可以分解为两个素数之和判断100~200的所有偶数可以分解为两个素数之和。