VB小程序代码实例

《VB小程序代码实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1.打印负数并分别计算正负数只和：有如下10个数：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他数值)打印出其中的每个负数，分别计算并输出正数和负数的和。程序如下：SubForm_Click()DimnumberASIntegerNegativeSum=0:PostiveSum=0Fori=1To10number=InputBox("Enterdata:")Ifnumber<0ThenPrintnumber;NegativeSum=NegativeSum+numberElsePostiveSum=PostiveS

2、um+numberEndIfNextiprintprint"NegativeSum=";NegativeSumPrint"PostiveSum=";PostiveSumEndSub2.打印九九表：在窗体上打印九九表：程序如下：PrintSubForm_Click()FontSize=12PrintTab(30);"9*9Table"Print:Print'输出两个空行Print"*";Fori=1To9PrintTab(i*6);i;'打印横行序号NextiForj=1To9Printj;"";'打印竖行序号Fork=1Tojtemp=j*kPri

3、ntTab(k*6);temp;"";'打印乘积NextkPrint'输出一个空行NextjEndSub1.打印人员名册打印人员名册:PrivateSubForm_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

4、(16);"处长";Tab(24);"科研处";Tab(32);"上海"EndSub2.单选按钮设置字体类型和大小单选按钮设置字体类型和大小:在窗体上画出两个框架，每个框架内分别画两个单选按钮，然后画两个命令按钮和一个文本框。编写时间过程如下：PtivateSubForm_Load()Form1.Caption="框架用法示例"Command1.Caption="确定"Command2.Caption="结束"Frame1.Caption="字体类型"Frame2.Caption="字体大小"Option1.Caption="魏碑"Option2.

5、Caption="幼圆"Option3.Caption="16"Option4.Caption="24"Text1.Text="VisualBasic程序设计"EndSubPrivateSubCommand1.Click_()IfOptoion1ThenText1.FontName="魏碑"ElseText1.FontName="幼圆"EndIFIfOption3ThenText1.FontSize=16ElseText1.FontSize=24EndIfEndSubPrivateSubCommand2.Click_()EndEndSub1.计算存

6、款利息计算存款利息:本金p为10000，年利率为0.125，每年计息一次，求10年的本利和是多少。SubForm_Click()DimpAsCurrencyp=10000:r=0.125t=1AgainIft>10ThenGoTo100i=p*rp=p+it=t+1GoToAgain100PrintpEndSub说明：这里的“Again：”是标号，“100”是行号。2.交换两个列表框的项目交换两个列表框的项目。其中一个列表框的项目按字母升序排列，另一个列表框的项目按项目加入的先后顺序排列。当双击某个项目时，该项目从列表框中消失，并出现在在另一个列表

7、框中：PrivateSubForm_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"

8、NCR"EndSubPrivateSubList1_DbClick()List2.AddItemList1.TextLis