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