vb編程代碼是什麼

1. 什麼叫做「vB編程」。

VB
是Visual
Basic編程語言
編寫計算機程序需要使用計算機編程語言。計算機編程語言是人和計算機戚梁「對話」的橋梁。就像人類的語言一樣，計算機編程語言也有很多。目前較為廣泛使用的語言有「C
」、「Pascal」、「Basic」等。在眾多的計算機編程語言中，以BASIC語言最為易學易用。
BASIC是英高謹運文Beginner』s
All
purpose
Symbolic
Instruction
Code的縮寫，意思為初學者通用符號指令代碼，一直都是程序設計入門的首選語言。
1991年，Visual
Basic(簡稱VB)面世，他是第三代BASIC語晌閉言，它不但秉承了BASIC語言的易學易用的優點，而且增加了圖形界面設計工具。它簡化了復雜的窗口程序編寫過程，讓編程者將更多的精力致力於問題的求解過程。

2. 常用vb的編程代碼

先在程序中加一個Label,名字應該符合VB程序控制項命名規范:
lbl<名稱>
再加一個Timer控制項,名字也要符合命名規范

在窗體代碼對話框中打入

Private Sub Form_Load()
On Error Resume Next
Me.Font = "Arial"
Me.FontSize = 24
Me.FontBold = True
<Timer控制項名>.Enabled = True
<Timer控制項名>.Interval = 1000
End Sub

'下列函數只能二選其一
'是時間顯示
Private Sub <Timer控制項名>_Timer()
On Error Resume Next
<Label控制項名>.Caption = Time
End Sub

'是日期與時間顯示
Private Sub <Timer控制項名>_Timer()
On Error Resume Next
<Label控制項名>.Caption = Now
End Sub

3. 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=」星期日」

4. vb中什麼叫代碼

Visual Basic 的代碼存儲在模塊中。模塊有三種類型：窗體、標准和類。
簡單的應用程序可以只有一個窗體，應用程序的所有代碼都駐留在窗體模塊中。而當應用程序龐大復雜時，就要另加窗體。最終可能會發現在幾個窗體中都有要執行的公共代碼。因為不希望在兩個窗體中重復代碼，所以要創建一個獨立模塊，它包含實現公共代碼的過程。獨立模塊應為標准模塊。此後可以建立一個包含共享過程的模塊庫。源廳
每個標准模塊、類模塊和窗體模塊都可包含：
聲明。可將常數、類型、變數和動態鏈接庫 (DLL) 過程的聲明放在窗體、類或標准升盯模塊的模塊級。
過程。Sub、Function 或者 Property 過程包含可以作為單元來執行的代碼片段。
窗體模塊
窗體模塊（文件擴展名為 .FRM ）是大多數 Visual Basic 應用程序的基礎。窗體模塊可以包含處理事件的過程、通用過程以及變數、常數、類型和外部過程的窗體級聲明。如果要在文本編輯器中觀察窗體模塊，則還會看到窗體及其控制項的描述，包括它們的屬性設置值。寫入窗體模塊的代碼是該吵裂和窗體所屬的具體應用程序專用的；它也可以引用該應用程序內的其它窗體或對象。
標准模塊
標准模塊（文件擴展名為 .BAS）是應用程序內其它模塊訪問的過程和聲明的容器。它們可以包含變數、常數、類型、外部過程和全局過程的全局（在整個應用程序范圍內有效的）聲明或模塊級聲明。寫入標准模塊的代碼不必綁在特定的應用程序上；如果不小心用名稱引用窗體和控制項，則在許多不同的應用程序中可以重用標准模塊。
類模塊
在 Visual Basic 中類模塊（文件擴展名為 .CLS）是面向對象編程的基礎。可在類模塊中編寫代碼建立新對象。這些新對象可以包含自定義的屬性和方法。實際上，窗體正是這樣一種類模塊，在其上可安放控制項、可顯示窗體窗口。

5. vb具體指什麼呢

1.VB是什麼？
VB是visual Basic的簡稱，即初學者通用符號代碼，是很容易入門的語言，從BASIC發展而來。

2.學VB有什麼用？
VB是一門編程語言，所以能用VB做的很多很多，基本上除了底層開發(系統軟體)，VB都能做，而且在資料庫應用方面VB也有他獨到的一面。
3.如何學好VB（請詳細說明）
這不是一句兩句可以說清楚的。給你一個學習的過程：
3.1.入門，這段時間你應該學會VB的基本語法，基本語句和基本控制項等。能夠寫一些簡單的計算程序就算可以樂。比如寫一個解1元2次方程的程序，寫一個求解兩數的最新公約數的程序等等。
3.2.開始做VB界面的一些東西，了解控制項，窗體的使用，事件，方法、過程和函數等。
3.3 開始用類設計VB程序。封裝一個VB類。學會VB中類的使用方法。
3.4 學習使用API增強程序的功能。
3.5 這是轉入學習C語言，不一定要很強，能懂一些語法就行，當然能夠深入的話，就可以轉C++樂。
3.6 有樂C的基礎，就可以去學習數據態大結構樂。數據結構很重要，一定要學好。
3.7 開始在VB裡面嘗試實現數據結構，比如做一個鏈表，vb沒有指針，所以不能向c那樣做鏈表，但我想這時候你應該知道怎麼做樂。
3.8 開始嘗試做游戲，做不同的程序，做自己想做的東西。
3.9 深入VB。 VB到了這個階段，深入是很困難的了。需要API的幫助。做一些窗口回調，掛鉤等程序。
4.0 你已經有相當的VB經驗了，這時候要確定一個方向了，比如游戲編程directx,比如大數據量的數學計算，人工智慧等等。。。
4.1 等等等

5.VB可以作什麼程序？
VB能做的太多了，除不不能開發ddk程序，不能開發sys,vxd其他的基本都能做。（呵呵，開發OS肯定不行了。） ，而用VB做個圖書管理系統，醫院管理系統等做畢業設計皮孝，是再快速和簡便不過的了，功能也可以做的非常強大，現在好多流行軟體也用燃閉稿VB開發。當然Delphi也很好使。

Visual Basic V6.0 精簡版
http://www.169s.com/soft.php?id=366

6. VB編程是什麼

vb是用來編寫應用程序的，它寫出的程序運行於微軟的windows，不同的程序應用於不同的地方，如辦公軟體、監控軟體、計量軟體等等。

7. 告訴我一些簡單的vb編程代碼

給幾個寫的模塊給你看看
Public Function LoadData(strSQL As String)
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object

Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
If Not rst.EOF Then
For Each ctl In ctlFormName
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
If fld.Name = ctl.Name Then
ctl = rst(fld.Name)
Exit For
End If
Next
End If
Next
End If
rst.Close
Set rst = Nothing
End Function

Public Function AddData(TableName As String)
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object

Set rst = CurrentDb.OpenRecordset(TableName, , dbReadOnly)
For Each ctl In ctlFormName
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
If fld.Name = ctl.Name Then
ctl = fld.DefaultValue
Exit For
End If
Next
End If
Next
rst.Close
Set rst = Nothing
End Function

Public Function SaveData(strSQL As String)
' On Error GoTo Err_SaveData
Dim rst As DAO.Recordset
Dim ctl As Control
Dim fld As Object

If MsgBox("您確認要保存嗎?", vbOKCancel + vbInformation, "提示!!!") = vbOK Then
If AddTag = True Then
Set rst = CurrentDb.OpenRecordset(strSQL, , dbReadOnly)
rst.AddNew
Else
Set rst = CurrentDb.OpenRecordset(strSQL)
rst.Edit
End If
For Each ctl In ctlFormName
'Debug.Print ctl.Name
If Not (TypeOf ctl Is Label Or TypeOf ctl Is CommandButton) Then
For Each fld In rst.Fields
'Debug.Print fld.Name
If fld.Name = ctl.Name Then
rst(fld.Name) = ctl
Exit For
End If
Next
End If
Next
rst.Update
rst.Close
Set rst = Nothing
MsgBox "數據保存成功!", vbInformation, "提示!!!"
End If

Exit_SaveData:
Set rst = Nothing
Exit Function

Err_SaveData:
If Err = 3022 Then
MsgBox "同一節點下不能存在相同的子節點，請修改後再點保存！", vbCritical, "警告!!!"
Else
MsgBox Err.Source & " #" & Err & vbCrLf & vbCrLf & Err.Description, vbCritical
On Error Resume Next
End If
Resume Exit_SaveData
End Function

Public Function DelSource(Form As Form)
Dim ctl As Control
Form.RecordSource = ""
For Each ctl In Form
If Not (TypeOf ctl Is Label) Then
ctl.ControlSource = ""
End If
Next
End Function

Public Function DelData(strSQL As String)
Dim rst As New ADODB.Recordset
Dim i As Long
If MsgBox("你確定要刪除當前記錄嗎？", vbOKCancel + vbQuestion, "刪除!!!") = vbOK Then
' Debug.Print strSQL
rst.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If rst.RecordCount > 0 Then
For i = 1 To rst.RecordCount
rst.Delete
rst.Update
rst.MoveNext
Next
End If
rst.Close
Set rst = Nothing
End If
End Function

8. vb程序編程代碼

我假設歡迎詞是個標簽：label1

Dim lr

Private Sub Command1_Click()'開始移動
Timer1.Interval = 10'10是時間，這個值越大速度越慢
End Sub

Private Sub Command2_Click()'停止移動
Timer1.Interval = 0
End Sub

Private Sub Form_Load()'啟動窗口
lr = 1
End Sub

Private Sub Timer1_Timer()'每秒觸發
Label1.Left = Label1.Left + 10 * lr'10是速度，改大速度快
If Label1.Left > Form1.Width Then lr = -1
If Label1.Left < 0 Then lr = 1
End Sub

9. 什麼是VB源碼

這個詞分為兩部分來解釋。
第一、VB
VB可以是指一種計算機語言，是Visual Basic的縮寫，由美國微軟公司開發；也可以指用來進行VB語言開發的開發平台，比如MicroSoft Visual Basic 6.0

計算機語言分為最早的也是最基本的機器語言（二進制語言）、低級語言（匯編）、高級語言（VB、C、C++、C#）。其中執行效率最高的是機器語言，它不需要編譯可以直接被機器讀懂。效率最低的是高級語言，它需要經過編譯甚至多次編譯才能轉變為機器語言。但是高級語言是最接近自然語言的（如：英語），因此被廣泛的使用。

第二、源碼
類似的，用英語書寫的可以用來交流的文字片斷叫做文章，那麼用VB語言來書寫的可以被計算機編譯平台理解的文字片斷就叫做VB代碼了。
那麼如果有一個程序，是使用VB語言來寫成的，那麼這些VB語言就叫做該程序的VB源碼

不知道這樣解釋樓主能不能理解

10. VB編程代碼怎麼寫

PrivateSubCommand1_Click()
CurrentY=0
Fori=1To9
Ifi<=5Then
PrintSpace(9-i);
Forj=1To2*i-1
Print"*";
Nextj
Else
PrintSpace(i-1);
Forj=1To2*(10-i)-1
Print"*";
Nextj
EndIf
Print
Nexti
EndSub

PrivateSubCommand2_Click()
CurrentY=0
Dima(8)AsString,b(8)AsString
Fori=LBound(a)ToUBound(a)
Ifi<=4Then
a(i)=String(2*i+1,"*")
b(i)=Space(25-i)
Else
a(i)=String(2*(8-i)+1,"*")
b(i)=Space(17+i)
EndIf
Printb(i)+a(i)
Nexti
EndSub

PrivateSubCommand3_Click()
CurrentY=0
Fori=1To9
Ifi<=5Then
PrintSpace(43-i);
PrintString(2*i-1,"*")
Else
PrintSpace(33+i);
PrintString(2*(10-i)-1,"*")
EndIf
Nexti
EndSub

PrivateSubForm_Load()
Me.Width=4800
Me.Height=2640
Command1.Width=1245:Command1.Height=315:Command1.Left=120:Command1.Top=1830
Command2.Width=1245:Command2.Height=315:Command2.Left=1635:Command2.Top=1830
Command3.Width=1245:Command3.Height=315:Command3.Left=3150:Command3.Top=1830
EndSub