《VB小程序代码实例》由会员分享，可在线阅读，更多相关《VB小程序代码实例（34页珍藏版）》请在金锄头文库上搜索。
1、.1. 打印负数并分别计算正负数只和：有如下 10 个数 ：-2 ，73 ， 82， -76 ， -1 ， 24， 321 ， -25 ， 89 ， -20( 也可以定位其他数值)打印出其中的每个负数，分别计算并输出正数和负数的和。程序如下 ：Sub Form_Click()Dim number AS IntegerNegativeSum=0:PostiveSum=0For i=1 T o 10number=InputBox(Enter data: )If number10 Then GoTo 100i=p*rp=p+it=t+1GoTo Again100Print pEnd Sub说明 ：这
2、里的 “Again ：”是标号 ，“100 ”是行号 。6. 交换两个列表框的项目交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目.专业专注.按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表框中 ：Private Sub Form_Load()List1.FontSize=14List2.FontSize=14List1.AddItem IBMList1.AddItem CompadList1.AddItem HPList1.AddItem FUJIList1.AddItem DigitalList1.AddItem 长城 Li
3、st1.AddItem 联想 List1.AddItem CanonList1.AddItem 四通 List1.AddItem AcerList1.AddItem NecList1.AddItem NCREnd SubPrivate Sub List1_DbClick()List2.AddItem List1.Text.专业专注.List1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_DbClick()List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub7. 交
4、换图片交换两个图片框中的图形：在窗体上建立三个图片框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=LoadP
5、icture _(C:Documents and SettingsAll UsersDocumentsMy Pictures1.jpg) 可自行改变路径Picture2.Picture=LoadPicture _(C:Documents and SettingsAll UsersDocumentsMy Pictures2.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 DemoFor i%=1 To 10number(i%)=InputBox(Msg$,MsgTile$)Next i%For i%=10 To 2 Step -1For j%=1 T o i%-1.专业专注.If number(j%)=number(j%+1) Thent=number(j%+1)number(j%+1)=number(j%)
