vb實例源碼
A. vb實用小程序源代碼
Private Sub mianji()
Dim a As Single, b As Single, c As Single
a = Val(InputBox("請輸入三角形的邊a:", "輸入"))
b = Val(InputBox("請輸入三角形的邊b:", "輸入"))
c = Val(InputBox("請輸入三角形的邊c:", "輸入"))
If (a + b) <= c Or b + c <=a Or a + c <= b Then
MsgBox "三條邊不能構成三角形,請重新輸入!", , "注意"
Exit Sub
End If
q = (a + b + c) / 2
s = Sqr(q * (q - a) * (q - b) * (q - c))
Print "三角形的面積是: "; s
End Sub
這個是由鍵盤輸入3個數，試編程判斷它們是否可以構成一個三角形。如果能構成一個三角形，請計算該三角形的面積。
B. VB源碼大全
這是用來球現行回歸方程的
Option Explicit
Public c As Integer, xi As Single, sumxy As Single, yi As Single, sumx2 As Single, sumx As Single, sumy As Single, ii As Integer
Public xba As Single, yba As Single, b As Double, a As Single
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Static i As Integer
xi = Val(Text1.Text)
yi = Val(Text2.Text)
sumxy = sumxy + xi * yi
sumx = sumx + xi
sumy = sumy + yi
sumx2 = sumx2 + xi * xi
i = i + 1
ii = i
End Sub
Private Sub Command2_Click()
xba = sumx / ii
yba = sumy / ii
b = Round((sumxy - ii * xba * yba) / (sumx2 - ii * xba ^ 2), 4)
a = Round(yba - b * xba, 4)
Label3.Caption = "y=" & a & "+" & b & "x"
End Sub
C. 給一些 VB 源程序的代碼
http://www.newasp.net/code/vb/1864.html
D. vb小游戲源代碼
Rem 窗體創建三個單選框按鈕，Option1、Option2、Option3。
小游戲是一個較模糊的概念，它是相對於體積龐大的單機游戲及網路游戲而言的，泛指所有體積較小、玩法簡單的游戲，通常這類游戲以休閑益智類為主，有單機版有網頁版，在網頁上嵌入的多為FLASH格式。
當下小游戲主要是指在線玩的flash版本游戲，統稱小游戲，其實小游戲還包含單機游戲，小型游戲機等。一般游戲大小小於10m的游戲都統稱為小游戲，一些街機類小游戲。因其游戲安裝簡便，耐玩性強，無依賴性而廣受白領及小朋友的喜愛。
小游戲」這個詞的型含義其實很簡單，它不是一些大的游戲，不必花費更多的時間和精力。
小游戲是原始的游戲娛樂方式，小游戲本身是為了叫人們在工作，學習後的一種娛樂、休閑的一種方式，不是為了叫玩家為之花費金錢、花費精力，更不是叫玩家為他痴迷。
小游戲也可以理解為「Flash游戲」，是以SWF為後綴的游戲的總稱.這些游戲是通過Flash軟體和 Flash 編程語言 Flash ActionScript 製作而成。
由於Flash是矢量軟體，所以小游戲放大後幾乎不影響畫面效果。Flash小游戲是一種新興起的游戲形式，以游戲簡單，操作方便，綠色，無需安裝，文件體積小等優點漸漸被廣大網友喜愛。
E. vb編程實例
下面的代碼是利用三邊計算三角形面積
Private Sub Command1_Click()
a=val(text1.text)
b=val(text2.text)
c=val(text3.text)
p=(a+b+c)/2
s=sqr(p*(p-a)*(p-b)*(p-c))
if a+b>c and b+c>a and a+c>b then
text4.text="三角形的面積是:" & s
else
text4.text="不能構成三角形"
end if
end sub
下面是計算兩數之和的代碼
private sub command1_click()
a=val(text1.text)
b=val(text2.text)
text3.text=a+b
end sub
F. 能給我發個VB與三菱PLC通訊的源代碼實例嗎，非常感謝啊
Abstract: Describes all kinds of basic serial port communication methods using Visual Basic 6.0 and design of free port communication program of MITSUBISH PLC, furthermore set focus on the designing method of serial port communication through dynamic linked library in Visual Basic 6.0
Key Words: Serial port communication, PLC, Visual Basic 6.0一、引言
在工業生產中，人們常常面臨著數據採集與管理。作為工廠自動化的三大支柱可編程式控制制器PLC（Programmable Logic Controller），由於其安全可靠，廣泛的用於數據採集與控制。生產過程中，要監視PLC內部的數據與運行狀況，選用市場上的人機界面或組態軟體，雖然功能豐富，但大都價格昂貴，在一些中小規模的生產場合，人們希望能自己用高級語言開發一個簡易實用的通信程序。微軟公司推出的Visual Basic 6.0，開發串列通信程序時，有兩種方法，一種是用Windows API函數，另一種是用VB支持的通信控制項MSCOMM.OCX。利用Windows API函數是通過調用讀寫等函數來操作串口。兩種比較，使用MSCOMM.OCX控制項編程方便，具有更完善的發送和接收功能。這里採用了MSCOMM.OCX控制項。
本文根據杭州某包裝材料公司原料配料控制系統為背景，簡述實現計算機與三菱FX系列PLC通信的實現過程。二、硬體與選型
日本三菱公司是國際著名的工廠自動化設備製造商，工業可編程式控制制器在國內市場佔有率一直保持前列。項目選用三菱FX2N-64MR型PLC，SC-09電纜作為計算機與PLC通信的連線。連接電纜的9針端連接在計算機串口上，另一端連接在PLC的RS-422編程口。系統框圖如圖一所示：
SC-09電纜
計算機 三菱 PLC
圖一
三、軟體編程
軟體設計主要包括PLC梯形圖設計和計算機VB程序、資料庫設計。計算機操作系統為Windows98，編程語言用Visual Basic 6.0，資料庫選用Access97，梯形圖程序在三菱PLC編程軟體GPPWIN 軟體環境設計。上位機軟體實現計算機對PLC內部數據讀取、寫入參數和保存數據到資料庫。
三菱FX2N型PLC編程口通信協議如下：
命令
命令字
控制元件
備注
讀元件
0
X,Y,M,S,T,C,D
讀字/位元件狀態
寫元件
1
X,Y,M,S,T,C,D
寫字/位元件狀態
置位
7
X,Y,M,S,T,C
位元件置位
復位
8
X,Y,M,S,T,C
位元件復位
通信格式：
起始符
命令字
首地址
數據區
結束符
和校驗
波特率9600，偶校驗，8位數據位，一位停止位。
在新建工程的表單上添加MSCOMM.OCX控制項，初始化程序：
Private Sub Form_Load()
MSComm1.CommPort = 1 '選擇COM1口
MSComm1.Settings = "9600,e,7,1"
End Sub
系統參數主畫面如下圖所示：
圖二
數據讀取子程序：
Public Function GetData(ByVal StartAddress As String, ByVal GetBytes As Integer, ByVal Hex_Bytes As String) As String
MSComm1.InputLen = GetBytes * 2 + 4
MSComm1.Output = STX + CMD_Read + StartAddress + Hex_Bytes + ETX + GetSumChk(CMD_Read + StartAddress + Hex_Bytes + ETX)
『傳送數據組成：起始符+命令+首地址+數據位+結束符+和檢驗碼
GetData = MSComm1.Input
MSComm1.InBufferCount = 0
MSComm1.InputLen = 0
End Function
如需讀取數據，通過調用GetData子程序。
參數設置程序可參考讀取子程序，只是改變命令而已。
Access97資料庫中包含三個表單，包括參數表、記錄表、報警記錄表。
通過如下子程序是將實際稱量值（記錄表）更新到資料庫：Private Sub SaveData()
Dim i As Integer
Dim valid As Boolean
On Error Resume Next
valid = True
Data1.Recordset.AddNew
Data1.Recordset.Fields("dtime") = TimeSerial(OnHour, OnMinute, OnSecond)
Data1.Recordset.Fields("systime") = Time 『系統時間
Data1.Recordset.Fields("get_xl") = LF(1) 『小料當前稱量值
Data1.Recordset.Fields("get_fjs") = LF(2) 『方解石當前稱量值
Data1.Recordset.Fields("get_cs") = LF(3) 『長石當前稱量值
Data1.Recordset.Fields("get_sys") = LF(4) 『石英砂當前稱量值
Data1.Recordset.Fields("get_cj") = LF(5) 『純鹼當前稱量值
On Error Resume Next
Data1.Recordset.Update 『更新資料庫記錄
Data1.Recordset.MovePrevious
End Sub
程序中，LF(i)變數對應為圖二系統參數表單中實稱值。
保存參數子程序只是對資料庫操作，程序結構可參考以上子程序。
上位機與PLC通信質量的好壞，對系統的安全可靠運行影響極大，因此，編寫程序時，除了在兩者之間的通信協議上保持絕對一致和採取相應的容錯技術外，還要考慮系統的整體容錯技術，防止系統的不正常。
四、結束語
串列通信是目前計算機與其他設備之間通信廣泛採用的方式之一，傳送數據准確，程序穩定運行是系統開發的主要目的。本設計中充分利用計算機和PLC的資源，在幾乎不增加設備開支的情況下成功的實現上位機與PLC之間的通信。
G. vb 源代碼
不用webbrowser就用 inet,
H. 高中VB編程的一些源代碼
uEnd是用戶定義捕捉VB輸出框(MsgBox)按下按鈕事件一個變數.即你的原代碼 MsgBox "您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序"
執行按vbYes或vbNo按鈕的結果參數值返回給程序以便執行下一代碼.當然你不用這變數也能做到,但按鈕需按兩次:
Private Sub Command2_Click()
MsgBox "您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序"
If MsgBox("您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序") = vbYes Then
End
End If
End Sub
uEnd = MsgBox("您確定要離開嗎?", vbYesNo + vbQuestion, "離開程序")
上句代碼實際上可看作VB輸出框執行結果賦值於uEnd, = 號在VB6.0中本身就應該看為賦值號.而且程序代碼簡潔明了,不易寫錯.
下面參考MSDN的有關MsgBox說明:
MsgBox 函數
在對話框中顯示消息，等待用戶單擊按鈕，並返回一個 Integer 告訴用戶單擊哪一個按鈕。
MsgBox 函數示例
本示例使用 MsgBox 函數，在具有「是」及「否」按鈕的對話框中顯示一條嚴重錯誤信息。示例中的預設按鈕為「否」，MsgBox 函數的返回值視用戶按哪一個鈕而定。本示例假設 DEMO.HLP 為一幫助文件，其中有一個內容代碼為 1000。
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "Do you want to continue ?" ' 定義信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定義按鈕。
Title = "MsgBox Demonstration" ' 定義標題。
Help = "DEMO.HLP" ' 定義幫助文件。
Ctxt = 1000 ' 定義標題
' 上下文。
' 顯示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用戶按下「是」。
MyString = "Yes" ' 完成某操作。
Else ' 用戶按下「否」。
MyString = "No" ' 完成某操作。
End If
感謝你發的短消息!
該回答在由回答者修改過
I. 求一段vb源代碼。只要好玩就行
就像我說的一樣，你測試下標越界你查一下哪裡錯誤，我測試沒有問題或者你加一條語句
private
sub
command1_click()
dim
mydb
as
database
dim
mytb
as
recordset
dim
txtfile
as
string
dim
dbfile
as
string
dim
strtemp
as
string
dim
strsp()
as
string
txtfile
=
"c:\vb.txt"
'文件文件位置
dbfile
=
"c:\vb.mdb"
'資料庫文件位置
set
mydb
=
opendatabase(dbfile)
'打開資料庫文件
set
mytb
=
mydb.openrecordset("表1")
'打開資料庫表1
open
txtfile
for
input
as
#1
'打開文本文件
do
while
not
eof(1)
line
input
#1,
strtemp
strsp
=
split(strtemp,
"
")
'print
strsp(0),
strsp(1),
strsp(2)
redim
preserve
strsp(ubound(strsp))
'重新定義數組
mytb.addnew
mytb.fields("x坐標值")
=
strsp(0)
mytb.fields("y坐標值")
=
strsp(1)
mytb.fields("z坐標值")
=
strsp(2)
mytb.update
loop
close
#1
mytb.close
mydb.close
end
sub
J. 什麼是VB源碼
這個詞分為兩部分來解釋。
第一、VB
VB可以是指一種計算機語言，是Visual Basic的縮寫，由美國微軟公司開發；也可以指用來進行VB語言開發的開發平台，比如MicroSoft Visual Basic 6.0
計算機語言分為最早的也是最基本的機器語言（二進制語言）、低級語言（匯編）、高級語言（VB、C、C++、C#）。其中執行效率最高的是機器語言，它不需要編譯可以直接被機器讀懂。效率最低的是高級語言，它需要經過編譯甚至多次編譯才能轉變為機器語言。但是高級語言是最接近自然語言的（如：英語），因此被廣泛的使用。
第二、源碼
類似的，用英語書寫的可以用來交流的文字片斷叫做文章，那麼用VB語言來書寫的可以被計算機編譯平台理解的文字片斷就叫做VB代碼了。
那麼如果有一個程序，是使用VB語言來寫成的，那麼這些VB語言就叫做該程序的VB源碼
不知道這樣解釋樓主能不能理解