1. 打印負數(shù)并分別計算正負數(shù)只和：有如下10個數(shù)： -2，73，82，-76，-1，24，321，-25，89，-20(也可以定位其他數(shù)值)打印出其中的每個負數(shù)，分別計算并輸出正數(shù)和負數(shù)的和。 程序如下：Sub Form_Click() Dim number AS Integer NegativeSum=0:PostiveSum=0 For i=1 To 10 number=InputBox(Enter data: ) If number10 Then GoTo 100 i=p*r p=p+i t=t+1 GoTo Again 100 Print pEnd Sub 說明：這里的“Again：”是標號，“100”是行號。6. 交換兩個列表框的項目 交換兩個列表框的項目。其中一個列表框的項目按字母升序排列，另一個列表框的項目按項目加入的先后順序排列。當雙擊某個項目時，該項目從列表框中消失，并出現(xiàn)在在另一個列表框中：Private Sub Form_Load() List1.FontSize=14 List2.FontSize=14 List1.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 四通 List1.AddItem Acer List1.AddItem Nec List1.AddItem NCREnd SubPrivate Sub List1_DbClick() List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub List2_DbClick() List1.AddItem List2.Text List2.RemoveItem List2.ListIndexEnd Sub7. 交換圖片交換兩個圖片框中的圖形：在窗體上建立三個圖片框Picture1、Picture2、Picture3，其中兩個在上，一個在下。Private Sub Form_Click() 交換位圖 Picture3.Picture=Picture1.Picture Picture1.Picture=Picture2.Picture Picture2.Picture=Picture3.Picture 把第三個圖片框設(shè)置為空 Picture3.Picture=LoadPicture()End SubPrivate Sub Form_Load 裝入位圖 Picture1.Picture=LoadPicture _ (C:Documents and SettingsAll UsersDocumentsMy Pictures1.jpg) 可自行改變路徑 Picture2.Picture=LoadPicture _ (C:Documents and SettingsAll UsersDocumentsMy Pictures2.jpd) 可自行改變路徑End Sub 8. 冒泡排序從鍵盤上輸入10個整數(shù)，用冒泡法排序（Bubble Sort）法對這十個數(shù)從小到大排序： 在窗體上建立一個命令按鈕，并把Caption屬性設(shè)置為“Click Here to Start” 編寫程序如下：Sub Command1_Click() Static number(1 To 10) AS Integer 定義數(shù)組number為整形 Msg$=Enter Number for Sort: MsgStile$=Sort Demo For i%=1 To 10 number(i%)=InputBox(Msg$,MsgTile$) Next i% For i%=10 To 2 Step -1 For j%=1 To i%-1 If number(j%)=number(j%+1) Then t=number(j%+1) number(j%+1)=number(j%) number(j%)=t End If Next j% Next i% For i%=1 To 10 Print number(i%) Next i%End Sub9. 判斷09數(shù)據(jù)類型-奇數(shù)或偶數(shù)判斷字母大小寫及09數(shù)據(jù)類型-奇數(shù)或偶數(shù):Sub Form_Click() Dim Msg,UserInput Msg=Please enter a letter or number from 0 though 9. UserInput=InputBox(Msg) If Len(UserInput)0 Then Select Case Asc(UserInput) 返回ASCII碼 Case 65 To 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 Else Msg=You did not enter a letter or a number. End Select Else Select Case CDbl(UserInput) 轉(zhuǎn)換為雙精度數(shù)值 Case 1,3,5,7,9 Msg=UserInput&is an odd number 奇數(shù) Case 0,2,4,6,8 Msg=UserInput&is an odd number 偶數(shù) Case Else 出界 Msg=You entered a number ouside Msg=Msg&the requested range End Select End If MsgBox Msg End Sub 10. 判斷100200的所有偶數(shù)可以分解為兩個素數(shù)之和 判斷100200的所有偶數(shù)可以分解為兩個素數(shù)之和。Function nf(n As Integer) As Boolean 判斷n是否為素數(shù) Dim s As Boolean Dim I As Integer s = False For I = 2 To Int(Sqr(n) 如果能被2 Int(Sqr(n)中任何一個數(shù)整除,則不是素數(shù),跳出For循環(huán) If n Mod I = 0 Then Exit For End If Next I If I Int(Sqr(n) Then 如果正常跳出For循環(huán),則I跳出循環(huán)For后的值應該是N,所以滿足這個條件 s = True 當I是素數(shù)時s=true End If nf = s 當I是素數(shù)時, nf=true,否則 nf=falseEnd FunctionPrivate Sub form_click() Dim t As Boolean Dim q As Boolean Dim I As Integer Dim j As Integer Dim a As Integer For I = 100 To 200 Step 2 For j = 2 To I / 2 I一定可分解為一個大于它一半的數(shù)和小于它一半的數(shù) t = nf(j) 調(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)賦值給變量q If q = True Then 如果q是true(說明i-j是素數(shù)) 就往下執(zhí)行,否則就跳到 End if(1),繼續(xù)執(zhí)行j循環(huán)Print j, I - j 當q是true和t是True同時滿足時,說明I的確能分解為兩個素數(shù),就打出 j 和 I-j 的值 Exit For 跳出j循環(huán),判斷下一個偶數(shù) End If (1) End If (2) Next j Next 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 Integer n=InputBox(請輸入一個正整數(shù)（=3）:) k=Int(Spr(n) 取不大于n的平方根的最大整數(shù) i=2 Swit=0 While iint(Sqr(N) Then Print N & 是素數(shù) Else Print N & 不是素數(shù) End If End Sub 用While.Wend循環(huán):Sub Form_Click() Dim I As Integer, N As Integer N = Val(InputBox() I = 2 c = Int(Sqr(N) Do While I c Then Print N & 是素數(shù) Else Print N & 不是素數(shù) End IfEnd Sub法2：一個數(shù)n是素數(shù)的條件:不能被2 n-1整除用For.Next語句Sub Form_Click() Dim I as Integer,N As Integer N=val(InputBox() For I=2 to N-1 If N Mod I=0 Then Exit For 如果能被2 N-1中任何一個數(shù)整除,則不是素數(shù),跳出For循環(huán) Next I If I = N Then如果正常跳出For循環(huán),則I跳出循環(huán)For后的值應該是N,所以滿足這個條件 Print N & 是素數(shù) Else Print N & 不是素數(shù) End IfEnd Sub12. 切換信號燈模擬交通信號燈的切換：在窗體上畫出3個圖像框和兩個命令按鈕Command1(切換信號)和Command2(結(jié)束程序)。三個圖像框分別裝有紅、綠、藍三的信號標志的圖片。 編寫如下事件過程：Private Sub Form_Load() Image2.Visible=Flase Image3.Visible=Flase End Sub Private Sub Command1_Click() If Image1.Visible=True Then Image1.Visible=False Image2.Visible=Ture ElseIf Image2.Visible=Ture Then Image2.Visible=False Image3.Visible=True Else Image3.Visible=False Image2.Visible=True End IfEnd SubPrivate Sub Commdan2_Click() EndEnd Sub13. 求N！求N的階乘N！（N為自然數(shù)）：程序如下：Sub Form_Click() Dim N As Integer N=InputBox(enter N:) k=1 For i=1 To N k=k*i Next i Print N;N!=;kEnd Sub該程序也可以寫成：Sub Form_Click() Dim N As Integer N=InputBox(enter N:) k=1:m=1 For i=1 To N k=k*i:m=m+1 Next i Print N;N!=;kEnd Sub 程序也可以這樣寫：Private Sub command1_Click() Dim I As Integer, f As Double, n As Integer n = InputBox(輸入一個自然數(shù)：, 輸入提示, ) f = 1 For I = 1 To n Step 1 f = f * I Next I Text1.Text = f End Sub Private Sub Command2_Click() End End Sub14. 人口達到或超過70億所需年數(shù)假設(shè)目前世界人口約為60億，如果以每年1.4%的速度增長，多少年后世界人口達到60億或超過60億？ 程序如下： Sub Form_Click() Dim p AS Double Dim r AS Single Dim n AS Integer P=6000000000# r=0.014 n=0 Do Until p=7000000000# p=p*(1+r) n=n+1 Loop Print n;年后世界人口達到;p End Sub上述所用是“Do UntilLoop”循環(huán)結(jié)構(gòu)。該程序若改用“DoLoop Until”循環(huán)，則程序為： Sub Form_Click() Dim p AS Double Dim r AS Single Dim n AS Integer P=6000000000# r=0.014 n=0 Do p=p*(1+r) n=n+1 Loop Until p=7000000000# Print n;年后世界人口達到;p End Sub15. 輸出100300之間的所有素數(shù)輸出100300間的所有素數(shù)：程序如下：Sub Form_Click() For n=101 To 300 step 2 k=Int(Spr(n) 取