VB小程序代碼-_第1頁
VB小程序代碼-_第2頁
VB小程序代碼-_第3頁
VB小程序代碼-_第4頁
VB小程序代碼-_第5頁
已閱讀5頁,還剩27頁未讀, 繼續(xù)免費閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請進(jìn)行舉報或認(rèn)領(lǐng)

文檔簡介

1、1.打印負(fù)數(shù)并分別計算正負(fù)數(shù)只和:有如下10個數(shù):-2,73,82,-76,-1,24,321,-25,89,-20(也可以定位其他數(shù)值 打印出其中的每個負(fù)數(shù),分別計算并輸出正數(shù)和負(fù)數(shù)的和。程序如下: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=PostiveS

2、um+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 T

3、o 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;"職務(wù)"Tab(24;"單位"T

4、ab(32;"籍貫"PrintPrint "張得功"Tab(8;"25"Tab(16;"科長"Tab(24;"勞動科"Tab(32;"北京"Print "李德生"Tab(8;"32"Tab(16;"處長"Tab(24;"科研處"Tab(32;"上海"End Sub4.單選按鈕設(shè)置字體類型和大小單選按鈕設(shè)置字體類型和大小:在窗體上畫出兩個框架,每個框架內(nèi)分別畫兩個單選按鈕,然后畫

5、兩個命令按鈕和一個文本框。編寫時間過程如下:Ptivate Sub Form_Load(Form1.Caption="框架用法示例"Command1.Caption="確定"Command2.Caption="結(jié)束"Frame1.Caption="字體類型"Frame2.Caption="字體大小"Option1.Caption="魏碑"Option2.Caption="幼圓"Option3.Caption="16"Option4.Ca

6、ption="24"Text1.Text="Visual Basic 程序設(shè)計"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.計算存款利息計算存款利息:本金

7、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:”是標(biāo)號,“100”是行號。6.交換兩個列表框的項目交換兩個列表框的項目。其中一個列表框的項目按字母升序排列,另一個列表框的項目按項目加入的先后順序排列。當(dāng)雙擊某個項目時,該項目從列表框中消失,并出現(xiàn)在在另一個列表框中:Private Sub Form_Lo

8、ad(List1.FontSize=14List2.FontSize=14List1.AddItem "IBM"List1.AddItem "Compad"List1.AddItem "HP"List1.AddItem "FUJI"List1.AddItem "Digital"List1.AddItem "長城"List1.AddItem "聯(lián)想"List1.AddItem "Canon"List1.AddItem "四通&q

9、uot;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.交換圖片交換兩個圖片框中的圖形:在窗體上建

10、立三個圖片框Picture1、Picture2、Picture3,其中兩個在上,一個在下。Private Sub Form_Click('交換位圖Picture3.Picture=Picture1.PicturePicture1.Picture=Picture2.PicturePicture2.Picture=Picture3.Picture'把第三個圖片框設(shè)置為空Picture3.Picture=LoadPicture(End SubPrivate Sub Form_Load'裝入位圖Picture1.Picture=LoadPicture _("C:Doc

11、uments and SettingsAll UsersDocumentsMy Pictures1.jpg" '可自行改變路徑Picture2.Picture=LoadPicture _("C:Documents and SettingsAll UsersDocumentsMy Pictures2.jpd" '可自行改變路徑End Sub8.冒泡排序從鍵盤上輸入10個整數(shù),用冒泡法排序(Bubble Sort法對這十個數(shù)從小到大排序:在窗體上建立一個命令按鈕,并把Caption屬性設(shè)置為“Click Here to Start”編寫程序如下:Sub

12、 Command1_Click(Static number(1 To 10 AS Integer '定義數(shù)組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%+1number(j%+1=number(j%number(j%

13、=tEnd IfNext j%Next i%For i%=1 To 10Print number(i%Next i%End Sub9.判斷09數(shù)據(jù)類型-奇數(shù)或偶數(shù)判斷字母大小寫及09數(shù)據(jù)類型-奇數(shù)或偶數(shù):Sub Form_Click(Dim Msg,UserInputMsg="Please enter a letter or number from 0 though 9." UserInput=InputBox(MsgIf Len(UserInput<>0 ThenSelect Case Asc(UserInput '返回ASCII碼Case 65 To

14、 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 Selec

15、tElseSelect Case CDbl(UserInput '轉(zhuǎn)換為雙精度數(shù)值Case 1,3,5,7,9Msg=UserInput&"is an odd number" '奇數(shù)Case 0,2,4,6,8Msg=UserInput&"is an odd number" '偶數(shù)Case Else '出界Msg="You entered a number ouside"Msg=Msg&"the requested range"End SelectEnd If

16、MsgBox MsgEnd Sub10.判斷100200的所有偶數(shù)可以分解為兩個素數(shù)之和判斷100200的所有偶數(shù)可以分解為兩個素數(shù)之和。Function nf(n As Integer As Boolean '判斷n是否為素數(shù)Dim s As BooleanDim I As Integers = FalseFor I = 2 To Int(Sqr(n '如果能被2 Int(Sqr(n中任何一個數(shù)整除,則不是素數(shù),跳出For循環(huán)If n Mod I = 0 ThenExit ForEnd IfNext IIf I > Int(Sqr(n Then '如果正常跳出F

17、or循環(huán),則I跳出循環(huán)For后的值應(yīng)該是N,所以滿足這個條件s = True '當(dāng)I是素數(shù)時s=trueEnd Ifnf = s '當(dāng)I是素數(shù)時, nf=true,否則nf=falseEnd FunctionPrivate Sub form_click(Dim t As BooleanDim q As BooleanDim I As IntegerDim j As IntegerDim a As IntegerFor I = 100 To 200 Step 2For j = 2 To I / 2 'I一定可分解為一個大于它一半的數(shù)和小于它一半的數(shù)t = nf(j 

18、9;調(diào)用Funtion(函數(shù)nf,判斷i是否是素數(shù),把nf的值(true或flase賦值給變量t If t = True Then '如果t是true 就往下執(zhí)行,否則就執(zhí)行到End if(2后面的next j語句q = nf(I - j '調(diào)用Funtion(函數(shù)nf,判斷i-j是否是素數(shù),把nf的值(true或flase賦值給變量qIf q = True Then '如果q是true(說明i-j是素數(shù) 就往下執(zhí)行,否則就跳到End if(1,繼續(xù)執(zhí)行j循環(huán)Print j, I - j '當(dāng)q是true和t是True同時滿足時,說明I的確能分解為兩個素數(shù),就打

19、出j 和I-j 的值Exit For '跳出j循環(huán),判斷下一個偶數(shù)End If '(1End If '(2Next jNext IEnd Sub11.判斷是否為素數(shù)判斷一個整數(shù)(>=3是否為素數(shù):提示:如果一個(>=3的整數(shù)可以將n被2到n(n的平方根之間的所有整數(shù)除,如果都除不盡,則n為素數(shù)(質(zhì)數(shù),否則n為非素數(shù)(合數(shù)。編寫程序如下:Sub Form_Click(Dim n As Integern=InputBox("請輸入一個正整數(shù)(>=3:"k=Int(Spr(n '取不大于n的平方根的最大整數(shù)i=2Swit=0Whi

20、le i<=k And Swit=0If n Mod i=0 ThenSwit=1Elsei=i+1End IfWendIf Swit=0 ThenPrint n;"是一個素數(shù)"ElsePrint n;"不是素數(shù)"End IfEnd Sub說明:這里的Swit是一個標(biāo)志變量。Swit=0標(biāo)志著n未被任何一個正整數(shù)整除過;如果被整除過,則Swit=1。上述程序也可以寫成:用For.Next語句:Sub Form_Click(Dim I as Integer,N As IntegerN=val(InputBox(""For I=2

21、to int(Sqr(NIf N Mod I=0 Then Exit ForNext IIf I >int(Sqr(N ThenPrint N & "是素數(shù)"ElsePrint N & "不是素數(shù)"End IfEnd Sub用While.Wend循環(huán):Sub Form_Click(Dim I As Integer, N As IntegerN = Val(InputBox(""I = 2c = Int(Sqr(NDo While I <= cIf N Mod I = 0 Then Exit DoI = I

22、+ 1 '在For以外的LoopIf I > c ThenPrint N & "是素數(shù)"ElsePrint N & "不是素數(shù)"End IfEnd Sub法2:一個數(shù)n是素數(shù)的條件:不能被2 n-1整除用For.Next語句Sub Form_Click(Dim I as Integer,N As IntegerN=val(InputBox(""For I=2 to N-1If N Mod I=0 Then Exit For '如果能被2 N-1中任何一個數(shù)整除,則不是素數(shù),跳出For 循環(huán)Next

23、 IIf I >= N Then'如果正常跳出For循環(huán),則I跳出循環(huán)For后的值應(yīng)該是N,所以滿足這個條件Print N & "是素數(shù)"ElsePrint N & "不是素數(shù)"End IfEnd Sub12.切換信號燈模擬交通信號燈的切換:在窗體上畫出3個圖像框和兩個命令按鈕Command1(切換信號和Command2(結(jié)束程序。三個圖像框分別裝有紅、綠、藍(lán)三的信號標(biāo)志的圖片。編寫如下事件過程:Private Sub Form_Load(Image2.Visible=FlaseImage3.Visible=FlaseEnd

24、 SubPrivate Sub Command1_Click(If Image1.Visible=True ThenImage1.Visible=FalseImage2.Visible=TureElseIf Image2.Visible=Ture ThenImage2.Visible=FalseImage3.Visible=TrueElseImage3.Visible=FalseImage2.Visible=TrueEnd IfEnd SubPrivate Sub Commdan2_Click(EndEnd Sub13.求N!求N的階乘N!(N為自然數(shù):程序如下:Sub Form_Click(

25、Dim N As IntegerN=InputBox("enter N:"k=1For i=1 To Nk=k*iNext iPrint N;"N!="kEnd Sub該程序也可以寫成:Sub Form_Click(Dim N As IntegerN=InputBox("enter N:"k=1:m=1For i=1 To Nk=k*i:m=m+1Next iPrint N;"N!="kEnd Sub程序也可以這樣寫:Private Sub command1_Click(Dim I As Integer, f As

26、 Double, n As Integern = InputBox("輸入一個自然數(shù):", "輸入提示", ""f = 1For I = 1 To n Step 1f = f * I Next I Text1.Text = fEnd SubPrivate Sub Command2_Click(EndEnd Sub14.人口達(dá)到或超過70億所需年數(shù)假設(shè)目前世界人口約為60億,如果以每年1.4%的速度增長,多少年后世界人口達(dá)到60億或超過60億?程序如下:Sub Form_Click(Dim p AS DoubleDim r AS Sin

27、gleDim n AS IntegerP=6000000000#r=0.014n=0Do Until p>=7000000000#p=p*(1+rn=n+1LoopPrint n;"年后世界人口達(dá)到"pEnd Sub上述所用是“Do UntilLoop”循環(huán)結(jié)構(gòu)。該程序若改用“DoLoop Until”循環(huán),則程序為:Sub Form_Click(Dim p AS DoubleDim r AS SingleDim n AS IntegerP=6000000000#r=0.014n=0Dop=p*(1+rn=n+1Loop Until p>=7000000000#

28、Print n;"年后世界人口達(dá)到"pEnd Sub15.輸出100300之間的所有素數(shù)輸出100300間的所有素數(shù):程序如下:Sub Form_Click(For n=101 To 300 step 2k=Int(Spr(n '取不大于n的平方根的最大整數(shù)i=2Swit=0While i<=k And Swit=0If n Mod i=0 ThenSwit=1Elsei=i+1End IfWendIf Swit=0 Thend=d+1If d Mod 5=0 Then '輸出5個數(shù)字后換行Print n;" "PrintElseP

29、rint n;" "End IfEnd IfNext nEnd Sub16.水仙花數(shù)Visual Basic 的"水仙花數(shù)"實現(xiàn)代碼:說明:水仙花數(shù)是指一個n 位數(shù)( n3 ,它的每個位上的數(shù)字的n 次冪之和等于它本身。(例如:13 + 53 + 33 = 153三位的水仙花數(shù)共有4個:153,370,371,407;四位的水仙花數(shù)共有3個:1634,8208,9474;五位的水仙花數(shù)共有3個:54748,92727,93084;六位的水仙花數(shù)只有1個:548834;七位的水仙花數(shù)共有4個:1741725,4210818,9800817,9926315;

30、八位的水仙花數(shù)共有3個:24678050,24678051,88593477編寫如下事件過程:Private Sub Form_Click(Dim a, b, c As Integer 'a(個b(十c(百For a = 0 To 9For b = 0 To 9For c = 1 To 9If a 3 + b 3 + c 3 = a + 10 * b + 100 * c ThenMsgBox 100 * c + 10 * b + a '或?qū)懗蒔rint 100 * c + 10 * b + aEnd IfNext cNext bNext aEnd Sub17.添加成員列表(枚舉

31、類型的方法添加成員列表(枚舉類型可以用Enum語句:如:Public Enum WorkdaysSaturdaySundayMondayTuesdayWednesdayThursdayFridayEnd Enum在默認(rèn)情況下,枚舉中的第一個常數(shù)被初始化為0,其后的常數(shù)則初始化為比起前面的常數(shù)大1的數(shù)值。上述的枚舉中常數(shù)Sunday的值為0。Public Enum WorkdaysSaturdaySunday=0TuesdayWednesdayThursdayFridayInvalid=-1End Enum該程序的第一個元素Sunday被賦值為0,Saturday為第一個元素,也被賦值為0,Tu

32、esday 的值為2。18.顯示不同形狀在窗體上顯示6中不同是形狀:Private Sub Form_Click(FontSize=12CurrentX=350Print "0"For i=1 To 5Shape1(i.Left=Shape1(i-1.Left+1050Shape1(i.Shape=1Shape1(i.Visible=TrueCurrentX=CrrentX+750Print i;Next iEnd Sub19.寫入與清屏在窗體上畫一個文本框,Caption屬性為空;再畫三個命令按鈕,Caption屬性分別為“單擊此按鈕輸入”、“清屏”和“結(jié)束”。雙擊Com

33、mand1進(jìn)入代碼窗口,輸入以下程序代碼:Private Sub Command1_Click(Text1.FontSize=20Text1.Text="歡迎進(jìn)入VB世界"End SubPrivate Sub Command2_Click(Text1.Text=""End SubPrivate Sub Command13_Click(End Sub20.選擇機型并顯示從窗體上選擇機型,并在立即窗口中顯示結(jié)果:在窗體上建立四個標(biāo)簽,Caption屬性分別為:“機型”、“CPU主頻”、“內(nèi)存”和“硬盤”;建立四個組合框,Style屬性分別為:1、2、2和0;

34、建立兩個命令按鈕,Caption屬性分別為:“確定”和“取消”,Default屬性都是True。編寫如下事件過程:Sub Form_Load(Combol1.AddItem "IBM"Combol1.AddItem "Compad"Combol1.AddItem "方正"Combol1.AddItem "聯(lián)想"Combol1.AddItem "HP"Combol1.AddItem "Acer"Combol1.AddItem "DEC"Combol2.Add

35、Item "奔騰3 900"Combol2.AddItem "奔騰3 933"Combol2.AddItem "奔騰3 1.0G"Combol2.AddItem "奔騰4 1.2G"Combol2.AddItem "奔騰4 1.5G"、Combol2.AddItem "奔騰4 1.7G"Combol2.AddItem "奔騰4 2.0G"Combol3.AddItem "64MB"Combol3.AddItem "128MB&

36、quot;Combol3.AddItem "256MB"Combol4.AddItem "10GB"Combol4.AddItem "20GB"Combol4.AddItem "32GB"Combol4.AddItem "32GB"Combol4.AddItem "40GB"Combol4.AddItem "60GB"End SubSub Command1_Click(Debug.Print "你所選的機型為:"Debug.Print

37、"機型:"Combo1Debug.Print "CPU: "Combo2Debug.Print "內(nèi)存"Combo3Debug.Print "硬盤"Combo4Sub Command2_Click(EndEnd Sub21.用單選按鈕改變字體和字號用單選按鈕改變文本框里的字體和字號:在窗體上建立一個文本框和三個單選按鈕。單選按鈕的Caption屬性分別為“FontName:Roman”、“FontName:Modern”和“FontName:Courier”;Name屬性分別為“Roman”、“Modern”和“C

38、ourier”;文本框的Name屬性為“Display”。編寫如下事件過程:Private Sub Courier_Click(Display.FontSize=18Display.FontName="Couier"End SubPrivate Sub Modern_Click(Display.FontSize=20Display.FontName="Modern"End SubPrivate Sub Form_Roman(Display.FontSize=24Display.FontName="Times New Roman"End

39、 Sub22.用復(fù)選框給文字加下劃線和刪除線用復(fù)選框控制文本輸入是否“加下劃線”和“斜體顯示”:建立三個控件:一個文本框和兩個復(fù)選框,復(fù)選框的Caption屬性分別為“加下劃線”和“斜體顯示”。編寫如下事件過程:'雙擊窗體Private Sub Form_Load(Display.FontSize=20End Sub'雙擊文本框Private Sub Display_Change( '把文本框的Name屬性改為Display且字號為20If UnderOn.Vale=1 ThenDisplay.FontUnderline=TrueElseIF ItalicOn.valu

40、e=True Then Display.FontItalic=True End If End Sub '雙擊“斜體顯示”復(fù)選框 Private Sub ItalicOn_Click( '把復(fù)選框的 Name 屬性改為 ItalicOn If ItalicOn.Value=1 Then Display.FontItalic=True Else Display.FontItalic=False End If End Sub '雙擊“加下劃線”復(fù)選框 Private Sub UnderOn_Click( '把復(fù)選框的 Name 屬性改為 UnderOn If UnderOn.Value=1 Then Display.Font

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁內(nèi)容里面會有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫網(wǎng)僅提供信息存儲空間,僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。

最新文檔

評論

0/150

提交評論