vb高級編程100例

⑴ vb編程的代碼和函數

我自己整理了一些，不多，你看看吧。如果要有列子的再找我。 （一）類型轉換類函數
1. CType(X)
[格式]：
P=CBool(X) ' 將X轉換為「布爾」（Boolean）類型
P=CByte(X) ' 將X轉換為「位元組」（Byte）類型
P=CCur(X) ' 將X轉換為「金額」（Currency）類型
P=CDate(X) ' 將X轉換為「日期」（Date）類型
P=CDbl(X) ' 將X轉換為「雙精度」（Double）類型
P=CInt(X) ' 將X轉換為「整型」（Integer）類型
P=CLng(X) ' 將X轉換為「長整型」（Long）類型
P=CSng(X) ' 將X轉換為「單精度」（Single）類型
P=CStr(X) ' 將X轉換為「字元串」（String）類型
P=Cvar(X) ' 將X轉換為「變體型」（Variant）類型
P=CVErr(X) ' 將X轉換為Error值[ 範例 ]：
(1). CStr(13)+CStr(23)' 數值轉換成字元串後，用"+"號連接， 結果：1323
(2). CInt("12")+12' 字元串轉換成整型後與12相加， 結果：24
(3). P=CInt(True)' 輸出結果為-1
' 布爾值與數值的轉換時要注意，布爾值只有True和False，其中True在內存中為-1,False存為0
(4). CBool(-0.001)' 輸出結果為True
' 將數值轉換為布爾型時，等於0的數值將得到False，不等於0的數值得到True.
2. Int(X),Fix(X)：取X的整數值
[格式]：
P=Int(X) ' 取<=X的最大整數值
P=Fix(X) ' 取X的整數部分，直接去掉小數[範例]：
(1) Int(-54.6) ' 結果為-55，取<=-54.6的最大整數
(2) Fix(54.6) ' 結果為54，取整數並直接去掉小數
（二）常用數學函數
[格式]：
1. Abs(N) 取絕對值
例：Abs(-3.5) 結果：3.52. Cos(N) 餘弦函數
例：Cos(0) 結果：13. Exp(N) e為底的指數函數
例：Exp(3) 結果：20.0684. Log(N) 以e為底的自然對數
例：Log(10) 結果：2.35. Rnd[(N)] 產生隨機數
例：Rnd 結果：0--1之間的數6. Sin(N) 正弦函數
例：Sin(0) 結果：07. Sgn(N) 符號函數
' 說明：取正負號。Y=Sgn(X) 既 X>0 則Y=1；X=0 則Y=0；X<0 則Y= -18. Sqr(N) 平方根
例：Sqr(9) 結果：39. Tan(N) 正切函數
例：Tan(0) 結果：010.Atn(N) 反切函數
例：Atn(0) 結果：0[注意]：在三角函數中，以弧度表示。(一)字元串類函數：1. ASC(X)，Chr(X)：轉換字元字元碼[格式]：
P=Asc(X) 返回字元串X的第一個字元的字元碼
P=Chr(X) 返回字元碼等於X的字元[範例]：
(1)P=Chr(65)
『 輸出字元A,因為A的ASCII碼等於65
(2)P=Asc(「A」)
『 輸出65
2. Len(X)： 計算字元串X的長度
[格式]：
P=Len(X)
[說明]：
空字元串長度為0，空格符也算一個字元，一個中文字雖然佔用2 Bytes，但也算一個字元。[範例]：
(1) 令X=」」 (空字元串)
Len(X) 輸出結果為0
(2) 令X=」abcd」
Len(X) 輸出結果為4
(3) 令X=」VB教程」
Len(X) 輸出結果為4
3. Mid(X)函數：讀取字元串X中間的字元
[格式]：
P=Mid(X,n)
由X的第n個字元讀起，讀取後面的所有字元。
P=Mid(X,n,m)
由X的第n個字元讀起，讀取後面的m個字元。[範例]：
(1) X=」abcdefg」
P=Mid(X,5)
結果為：P=」efg」
(2) X=」abcdefg」
P=Mid(X,2,4)
結果為P=」bcde」
4. Replace: 將字元串中的某些特定字元串替換為其他字元串
[格式]：
P=Replace(X,S,R)
[說明]：將字元串X中的字元串S替換為字元串R，然後返回。[範例]：
X=」VB is very good」
P=Replace(X,good,nice)
輸出結果為：P=」VB is very nice」
5. StrReverse：反轉字元串
[格式]：
P=StrReverse(X)
[說明]：
返回X參數反轉後的字元串
[範例]：
（1）X=」abc」
P=StrReverse(X)
輸出結果：P=」cba」
6. Ucase(X)，Lcase(X)：轉換英文字母的大小寫
[格式]：
P=Lcase(X)
『 將X字元串中的大寫字母轉換成小寫
P=Ucase(X)
『 將X字元串中的小寫字母轉換成大寫
[說明]：除了英文字母外，其他字元或中文字都不會受到影響。[範例]：
（1） 令 X=」VB and VC」
則Lcase(X)的結果為」vb and vc」，Ucase(X)的結果為」VB AND VC」
7. InStr函數：尋找字元串
[格式]：
P=InStr(X,Y)
從X第一個字元起找出Y出現的位置
P=InStr(n,X,Y)
從X第n個字元起找出Y出現的位置
[說明]：
（1） 若在X中找到Y，則返回值是Y第一個字元出現在X中的位置。
（2） InStr(X,Y)相當於InStr(1,X,Y)。
（3） 若字元串長度，或X為空字元串，或在X中找不到Y，則都返回0。
（4） 若Y為空字元串，則返回0。日期時間類函數：
1. Year(X)，Month(X)，Day(X)：取出年，月，日
[格式]：
P=Year(X)
取出X「年」部分的數值
P=Month(X)
取出X「月」部分的數值
P=Day(X)
取出X「日」部分的數值
[說明]：Year返回的是公元年，若X里只有時間，沒有日期，則日期視為#1899/12/30#
2. Hour，Minute，Second函數：取出時，分，或秒
[格式]：
P=Hour(X)
取出X「時」部分的數值
P=Minute(X)
取出X「分」部分的數值
P=Second(X)
取出X「秒」部分的數值
[說明]：Hour的返回值是0---23之間[範例]：
X=10:34:23
P=Hour(X)
Q=Minute(X)
R=Second(X)
則輸出結果：P=10，Q=34，R=233. DateSerial函數：合並年，月，日成為日期
[格式]：DateSerial(Y,M,D)
其中Y是年份，M為月份，D為日期
[說明]：
（1） M值若大於12，則月份從12月起向後推算M-12個月；若小於1，則月份從1月起向後推算1-M個月。
（2） 若日期D大於當月的日數，則日期從當月的日數起，向後推算D-當月日數；若小於1，則日期從1日起向前推算1-D日。
[範例]：
P=DateSerial(2000,02,02)
則結果為P=2000/02/02
4．TimeSerial函數：合並時，分，秒成為時間
[格式]：P=TimeSerial(H,M,S)
其中H為小時數，M為分鍾數，S為秒數
[說明]：推算原理同上面的DateSerial
[範例]：
P=TimeSerial(6,32,45)
結果為：P=6:32:45
5．Date,Time,Now函數：讀取系統的日期時間
[格式]：
P=Date()
P=Time()
P=Now()
[說明]：這三個函數都無參數
[範例]：
若當前時間為2003年8月29日晚上19點26分45秒，則
P=Now()
結果為：P=2003-08-29 19:26:45
6．MonthName：返回月份名稱
[格式]：P=MonthName(X)
[說明]：X參數可傳入1---12，則返回值為「一月」、「二月」……，但是在英文Windows環境下，返回的是」January」,」February」……
[範例]：
P=MonthName(1)
則P=「一月」
7．WeekdayName：返回星期名稱
[格式]：P=WeekdayName(X)
[說明]：X參數可傳入1—7，則返回值為「星期日」，「星期一」……，但是在英文windows環境下，返回的是」Sunday」,」Monday」……
[範例]：
P=WeekdayName(1)
結果為：P=」星期日」

⑵ vb 例子

1..

Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循環。
For Chars = 0 To 9 ' 建立 10 次循環。
MyString = MyString & Chars ' 將數字添加到字元串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一個空格。
Next Words

2.
Do...Loop 語句示例
本示例示範如何使用 Do...Loop 語句。內層的 Do...Loop 語句循環到第 10 次時將標志值設置為 False，並用 Exit Do 語句強制退出內層循環。外層循環則在檢查到標志值為 False 時，馬上退出。

Dim Check, Counter
Check = True: Counter = 0 ' 設置變數初始值。
Do ' 外層循環。
Do While Counter < 20 ' 內層循環。
Counter = Counter + 1 ' 計數器加一。
If Counter = 10 Then ' 如果條件成立。
Check = False ' 將標志值設成 False。
Exit Do ' 退出內層循環。
End If
Loop
Loop Until Check = False ' 退出外層循環。

3.
While...Wend 語句示例
本示例使用 While...Wend 語句來增加計數變數的值。如果條件判斷值為 True，則循環內的語句將一直執行下去。

Dim Counter
Counter = 0 ' 設置變數初值。
While Counter < 20 ' 測試計數器的值。
Counter = Counter + 1 ' 將計數器的值加一。
Wend ' 當 Counter > 19 時則循環終止。
Debug.Print Counter ' 在「立即」窗口中顯示數字 20。

Select Case 語句示例
本示例使用 Select Case 語句來判斷變數的值。示例中第二個 Case 子句包含了變數值，故只有此區塊內的語句會被完成到。

Dim Number
Number = 8 ' 設置變數初值。
Select Case Number ' 判斷 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之間，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一個 Case 子句是本示例中唯一判斷值為 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之間。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值為 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他數值。
Debug.Print "Not between 1 and 10"
End Select

⑶ 求一個簡單vb編程實例~

控制項：image,picture,timer代碼：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代碼實現的是圖片框中的一個小球做的規律的運動，當小球碰到圖片框邊緣時便反彈繼續運動

⑷ 求VB程序設計典型例題

修改好了測試成功，但是，基本上，偶數和會大於所有的數
private
sub
command1_click()
dim
a(10)
as
double
dim
t
as
double
randomize
for
i
=
1
to
10
a(i)
=
int(rnd
*
100
+
2)
'設十個數，給十個數隨機賦值
if
a(i)
mod
2
=
0
then
t
=
t
+
a(i):
print
"偶數為";
a(i)
next
i
print
"偶數的和為";
t
for
i
=
1
to
10
if
a(i)
<
t
then
print
"小於偶數和的數";
a(i)
next
i
end
sub

⑸ vb編程實例

Static s As Integer s 是靜態變數，過程結束後，數據依然存在，且值保持原來不變
一開始s=0
m(1),走入Function,時，n=1 ,循環一次（加上一個1），s=1,m(1)=1
m(2),走入Function,時，s=1(值保持原來1不變),n=2 ,循環2次（加上2個1），s=3,m(2)=3
m(3),走入Function,時，s=3(值保持原來3不變),,n=3 ,循環3次（加上3個1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10

⑹ vb程序設計實例

Private Sub Form_Activate()
'1年期2.25%，2年期2.43%，3年期為2.70%，5年期為2.88%（不記復利）。今有X元，5年以後使用，共有如下6中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print "①存一次5年期,5年後到期的本息合計"; ss(x, 5, x5)
Print "②存一次3年期，一次2年期,5年後到期的本息合計"; ss(ss(x, 3, x3), 2, x2)
Print "③存一次3年期，兩次1年期,5年後到期的本息合計"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)
Print "④存兩次2年期，一次1年期,5年後到期的本息合計"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)
Print "⑤存一次2年期，三次1年期,5年後到期的本息合計"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)
Print "⑥存五次1年期,5年後到期的本息合計"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function

Private Sub Form_Load()
AutoRedraw = True
End Sub

⑺ VB高級編程

無論任何語言，windows下的編程基本全靠API函數，看一下針對VB的API方面書籍吧！～《Visual Basic 5.0 Win32 API開發人員指南》這本雖然是VB5的，但在VB6以及.net適用，語言本身的語句只能算算數學問題啦！～windows下的全靠API，這本應該最適合你了！～
有興趣編程可以來我的博客，點我的名字就進去了！

⑻ 一個准備自學VB的人提問——（高手進、高分）

我不是高手,我和你情況差不多,大學學過C語言,忘完了。工作以後有個朋友在一個電腦培訓部教VB,有事讓我去頂幾天,我第一天看書,第二天就去上課.上了十二天課(總共20天)終於把學生糊弄過去了。六個學生有四個過了國家二級.從那以後,對VB比較感興趣,也根據工作需要做了一些東西.比如倉庫管理,資料管理,客戶信息管理等.因為是完全自學,也走了不少彎路,希望我的經歷對你有點幫助:
1.我最開始用的是國家考試中心出的VB程序設計教程(因為是該培訓班配的書),感覺不錯,有點傻瓜式教程一樣,比較適合自學.後來有天在街上買了本<VB50例>,就是一些從淺到深的例子,覺得也很有幫助.(這本書總的也比較簡單,你所提到要達到的東西在這本書中基本都有了)然後就沒買實體書,在網上下載,比如<visual basic 高級編程及其項目應用開發>,用辦公室列印機打出來看.我主要在http://www.ibook8.com/下載書籍,比較全,不收費不要積分.
2.我認為VB不需要一開始很老實的打基礎,對基礎有點了解了就看例子,然後試著自己去寫,從中回顧基礎.VB比C好學,有C基礎的,對VB程序中的控制結構很容易看懂,其他的函數定義等也相當好理解.把程序結構搞懂了，然後通過學習別人的例子,理解起來很快.
3.枕善居很不錯,www.MNDSOFT.com.相當有名氣,不過因為是個人搞的,更新上慢一點.我覺得裡面的程序都很經典.另外在他首頁上有一個友情連接,比較出名的VB論壇等都有,可以看看。
4.初期學習,也就是國家二級標准,我覺得沒有不好理解的。在此基礎上在學點資料庫方面的知識,就可以完成你所需要完成的東西了。
5.不覺得視頻教程對你自學有好處,因為程序更多的是靠寫,而不是靠設置控制項等。也沒發現什麼好的視頻教程.
6.VB挺好,簡單易學.別人說VC等多強大,多好,但我們不是專業程序員,VB在我眼中也夠好夠用了。
總的來講,多看,多練,多想,一切OK.花上一個月,可以做一些小程序,比如XX計算等方面的.再花一個月學點資料庫方面的知識,可以做些管理軟體.然後再學API,ActiveX方面的(難一點了...)
祝你成功!

⑼ vb編程實例 互動式窗口，輸入100個數據，求平均值、平方後再開方和自動分類

Dim intArray(100) As Single, sglAverage As Single

Private Sub Command1_Click()

Randomize (Timer)

Dim i As Integer, intSum As Integer

Me.Picture1.Cls

For i = 1 To 100

intArray(i) = Int(Rnd(i) * 5 + 95)

Me.Picture1.Print intArray(i);

If i Mod 10 = 0 Then Me.Picture1.Print

intSum = intSum + intArray(i)

Next i

sglAverage = intSum / 100

Label1.Caption = "Sum=" & intSum

Label2.Caption = "Average=" & sglAverage

End Sub

Private Sub Command2_Click()

Dim i As Integer, k0 As Integer, k(4) As Integer

For i = 0 To 4

Me.Picture2(i).Cls

Next i

For i = 1 To 100

If Sqr((intArray(i) - sglAverage) ^ 2) >= 1.67 Then

k(0) = k(0) + 1

Me.Picture2(0).Print intArray(i);

If k(0) Mod 10 = 0 Then Me.Picture2(0).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1.33 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.67 Then

k(1) = k(1) + 1

Me.Picture2(1).Print intArray(i);

If k(1) Mod 10 = 0 Then Me.Picture2(1).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.33 Then

k(2) = k(2) + 1

Me.Picture2(2).Print intArray(i);

If k(2) Mod 10 = 0 Then Me.Picture2(2).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 0.67 And Sqr((intArray(i) - sglAverage) ^ 2) < 1 Then

k(3) = k(3) + 1

Me.Picture2(3).Print intArray(i);

If k(3) Mod 10 = 0 Then Me.Picture2(3).Print

Else

k(4) = k(4) + 1

Me.Picture2(4).Print intArray(i);

If k(4) Mod 10 = 0 Then Me.Picture2(4).Print

End If

Next i

For i = 0 To 4

Me.Label8(i).Caption = "共計" & k(i)

Next i

End Sub

⑽ vb程序設計實例100

試題一.1

Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和與倒數
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
試題一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待續，未完...