VB小程序代碼實(shí)例

《VB小程序代碼實(shí)例》由會(huì)員上傳分享，免費(fèi)在線(xiàn)閱讀，更多相關(guān)內(nèi)容在行業(yè)資料-天天文庫(kù)。

1、1.打印負(fù)數(shù)并分別計(jì)算正負(fù)數(shù)只和：有如下10個(gè)數(shù)：-2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他數(shù)值)打印出其中的每個(gè)負(fù)數(shù)，分別計(jì)算并輸出正數(shù)和負(fù)數(shù)的和。程序如下：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'輸出兩個(gè)空行Print"*";Fori=1To9PrintTab(i*6);i;'打印橫行序號(hào)NextiForj=1To9Printj;"";'打印豎行序號(hào)Fork=1Tojtemp=j*kPri

3、ntTab(k*6);temp;"";'打印乘積NextkPrint'輸出一個(gè)空行NextjEndSub1.打印人員名冊(cè)打印人員名冊(cè):PrivateSubForm_Click()Print:PrintFontName="魏碑"FontSize=16Print"姓名";Tab(8);"年齡";Tab(16);"職務(wù)";Tab(24);"單位";Tab(32);"籍貫"PrintPrint"張得功";Tab(8);"25";Tab(16);"科長(zhǎng)";Tab(24);"勞動(dòng)科";Tab(32);"北京"Print"李德生";Tab(8);"32";Tab

4、(16);"處長(zhǎng)";Tab(24);"科研處";Tab(32);"上海"EndSub2.單選按鈕設(shè)置字體類(lèi)型和大小單選按鈕設(shè)置字體類(lèi)型和大小:在窗體上畫(huà)出兩個(gè)框架，每個(gè)框架內(nèi)分別畫(huà)兩個(gè)單選按鈕，然后畫(huà)兩個(gè)命令按鈕和一個(gè)文本框。編寫(xiě)時(shí)間過(guò)程如下：PtivateSubForm_Load()Form1.Caption="框架用法示例"Command1.Caption="確定"Command2.Caption="結(jié)束"Frame1.Caption="字體類(lèi)型"Frame2.Caption="字體大小"Option1.Caption="魏碑"Option2.

5、Caption="幼圓"Option3.Caption="16"Option4.Caption="24"Text1.Text="VisualBasic程序設(shè)計(jì)"EndSubPrivateSubCommand1.Click_()IfOptoion1ThenText1.FontName="魏碑"ElseText1.FontName="幼圓"EndIFIfOption3ThenText1.FontSize=16ElseText1.FontSize=24EndIfEndSubPrivateSubCommand2.Click_()EndEndSub1.計(jì)算存

6、款利息計(jì)算存款利息:本金p為10000，年利率為0.125，每年計(jì)息一次，求10年的本利和是多少。SubForm_Click()DimpAsCurrencyp=10000:r=0.125t=1AgainIft>10ThenGoTo100i=p*rp=p+it=t+1GoToAgain100PrintpEndSub說(shuō)明：這里的“Again：”是標(biāo)號(hào)，“100”是行號(hào)。2.交換兩個(gè)列表框的項(xiàng)目交換兩個(gè)列表框的項(xiàng)目。其中一個(gè)列表框的項(xiàng)目按字母升序排列，另一個(gè)列表框的項(xiàng)目按項(xiàng)目加入的先后順序排列。當(dāng)雙擊某個(gè)項(xiàng)目時(shí)，該項(xiàng)目從列表框中消失，并出現(xiàn)在在另一個(gè)列表

7、框中：PrivateSubForm_Load()List1.FontSize=14List2.FontSize=14List1.AddItem"IBM"List1.AddItem"Compad"List1.AddItem"HP"List1.AddItem"FUJI"List1.AddItem"Digital"List1.AddItem"長(zhǎng)城"List1.AddItem"聯(lián)想"List1.AddItem"Canon"List1.AddItem"四通"List1.AddItem"Acer"List1.AddItem"Nec"List1.AddItem"

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