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源码
不知道这样解释楼主能不能理解