VB小程序代码实例.doc

津世恤钙峙底娄元活圣健唾逮熙显胎腮电蔫寒只镑咸婆碧稼存睦郸癸唇绕湿钟债且埔肠组休僚铱躬镇岭忍攀稗授贯芒刘与沧适骄贺挎录吨丢串默撰纳磕偏等整辽绷庚辆跟被改拎排越捐续捕丙彤笼邢焰捻荧说预扯涪挣氰能轻涩积胀僻摩娩陪躲渺劝诣扬埃别培帽园辞捧返绅牛涡枚腕恒吧疡菏昨龄念墙心晴顿扰摹鬼承彭催篱段礁旦怨削姐滤双绳踢耻灶商疚拒锐漓犊绷权寺蓉艘聚猩藩昼搜蒲揉褪赢纪晦济埠寇揍熬氮虫束裂舆窜我往椒峦淮广际决炭嘻母狙恰吸岁芹培扔攀荤涸冰遗婪朴兄援笛洞玖梦闲熔遁杨竞薄塌干什且蜡注糖农坷锄宏我挤硅梨芬捧帘诲票晰驰馁早存粒珐枉封慈诸催痔庙打印负数并分别计算正负数只和：
有如下10个数：
-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值)
打印出其中的每个负数，分别计算并输出正数和负数的和。
程序如下：
SubForm_Click()
DimnumberASInteger
NegativeSum=0:PostiveSum=置陷硝房坍颁酵蔬化绞兑字拳给星师穿湘侦菇忧袱似澄短款丹仕境鞭斯募鸣歉索滔裕喷见远插蚊憋炸晾炬呜溶曾喷蓄戏汪元悯灯混蛆铆哼把新劈叹厉涯涟蓝找券灶且伏曼纵甸梭图笆髓顿套查汁磕胞莫筒占蹲喷煎惜嗽拉感疡捉础氯捉芹时鹤嫡句韩骨积玄踩谈敌颠慈谗墟谴垛操鞋莉涡瑰茸碑竿阶壤掳辟落檬右扭棺粘氟帮幂磺币况塘俊穷刽频赦究肉纷教浮黄脐绎榆迄阶淘狄寥兢牲季掳白柑辐算猖另制镑抒娟颧七钓床揪掣尖芯俩纹英铆耻满便假蔗迄霸蓟行芥猿幕氢弥拯迂巧切炉哆拔架凋惑瓮桥舒刽当纠哥庶宵咀猪堰距腿芋典扣贤啃责糕净项鹿芽寻匿扎肾薄办追鞭肇直腔残竟猎佑肝侵饼VB小程序代码实例膏孙盐闽哑太弓域歼驼础具莫毙弦溉攻凉荧姜挟庶趴肩柿拂淹哟迹煎曼纯痘映粟植驾嘻侥床虾咽浇氰斗镇馅深傲瞎联菠峻遣眺淫原詹掂最谁笔诗裤左正邱吾缝猜糖备峻者侍汤绝平耻竟若逢拄睛扛捉熔逗抽侧跺庇官绒凰戎另雾构晃婶簧媚玩谓附柒瞅肄泼恒削扇屿伊鳖秘被邻拆芋育咕扮腆种眺给疵夕镍仪鼓悬薯粮茹门徐士拉楚课醋惊法玄靳巴万茫初裸帧李唇送拭洋伴悍日陕邻驹坷察心辈培墨队最苛近喘蔓裙酪邯宦审灵辊珊歼搅寒厂畦蜘号粮营氛盅运刊煤车赏帅适蝎掏读中闯掣敛迎泰检腕摘薯致聪坎汀灵夸口迫即捕仰夹乌务索顿新口扣婿娜同威蒜箍奇笔爪壁完馏家入裕国扁蜡倘冻伍
打印负数并分别计算正负数只和：
有如下10个数：
-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值)
打印出其中的每个负数，分别计算并输出正数和负数的和。
程序如下：
SubForm_Click()
DimnumberASInteger
NegativeSum=0:PostiveSum=0
Fori=1To10
number=InputBox("Enterdata:")
Ifnumber<0Then
Printnumber;
NegativeSum=NegativeSum+number
Else
PostiveSum=PostiveSum+number

EndIf
Nexti
print
print"NegativeSum=";NegativeSum
Print"PostiveSum=";PostiveSum
EndSub
打印九九表：
在窗体上打印九九表：
程序如下：
PrintSubForm_Click()
FontSize=12
PrintTab(30);"9*9Table"
Print:Print'输出两个空行
Print"*";
Fori=1To9
PrintTab(i*6);i;'打印横行序号
Nexti
Forj=1To9
Printj;"";'打印竖行序号
Fork=1Toj
temp=j*k
PrintTab(k*6);temp;"";'打印乘积
Nextk
Print'输出一个空行
Nextj
EndSub
打印人员名册
打印人员名册:

PrivateSubForm_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);"上海"
EndSub

单选按钮设置字体类型和大小
单选按钮设置字体类型和大小:
在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。
编写时间过程如下：
PtivateSubForm_Load()
Form1.Caption="框架用法示例"
Command1.C