vb编程手册
『壹』 求VB编程常用代码大全
1.数值型函数：
abs(num):
返回绝对值
sgn(num):
num>0
1;
num=0
0;
num<0
-1;判断数值正负
hex(num):
返回十六进制值
直接表示：&Hxx
最大8位
oct(num):
返回八进制值
直接表示：&Oxx
最大8位
sqr(num):
返回平方根
num>0
int(num):
取整
int(99.8)=99;
int(-99.2)=100
fix(num):
取整
fix(99.8)=99;
fix(-99.2)=99
round(num,n):
四舍五入取小数位
round(3.14159,3)=3.142
中点数值四舍五入为近偶取整
round(3.25,1)=3.2
log(num):
取以e为底的对数
num>0
exp(n):
取e的n次幂
通常用
num^n
sin(num):
三角函数，以弧度为值计算
(角度*Pai)/180=弧度
con(num);
tan(num);
atn(num)
2.字符串函数：
len(str)：计算字符串长度
中文字符长度也计为一！
mid(str,起始字符,[读取长度])：截取字符串中间子字符串
left(str,nlen)：从左边起截取nlen长度子字符串
right(str,nlen)：从右边起截取nlen长度子字符串
Lcase(str)：字符串转成小写
Ucase(str)：字符串转成大写
trim(str)：去除字符串两端空格
Ltrim(str)：去除字符串左侧空格
Rtrim(str)：去除字符串右侧空格
replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串
注：默认值：起始字符
1；替代次数
不限；比较方法
区分大小写（0）
InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串
可选参数需同时选
返回起始位置
InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串
返回起始位置
space(n)：构造n个空格的字符串
string(n,str)：构造由n个str第一个字符组成的字符串
StrReverse(str)：反转字符串
split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组
可选参数需同时选
3.数据类型转换函数：
Cint(str)：转换正数
True
-1；False
0；日期
距离1899/12/31天数；时间
上午段
0；下午段
1；
Cstr(str)：日期
输出格式
yyyy/mm/dd；时间
输出格式
Am/Pm
hh:mm:ss
Clng(str)：与Cin()类似
Cbool(num)：num不为零
True；反之
False
Cdate(str)：转换日期格式
0：#Am
12:00:00#；正数
距离1899/12/31天数的日期；浮点数
日期＋小数时间
Cbyte(num)：num<255
转换为字节
Csng(str)：转换为单精度数值
Cdbl(str)：转换为双精度数值
Ccur(str)：转换为现金格式
4.时间函数：
date：取系统当前日期
time：取系统当前时间
now：取系统当前时间及日期值
Datetime类型
timer：取当前时间距离零点秒值，计时器，可计算时间差
DateAdd(间隔单位,间隔值,日期)：推算相邻日期
DateDiff(间隔单位,日期一,日期二)：计算时间差
日期二-日期一
Datepart(间隔单位,日期)：计算日期的间隔单位值
Dateserial(date)：输出日期值（按序列计算）
Timeserial(time)：输出时间值（按序列计算）
Datevalue(datetime)：取出字符串中日期值
Timevalue(datetime)：取出字符串中时间值
weekday(date)：计算星期几
MonthName(date)：输出月分名
year(datetime)：截取年份
month(datetime)：截取月份
day(datetime)：截取日
hour(datetime)：截取小时
minute(datetime)：截取分钟
second(datetime)：截取秒
5.其它函数：
Array(unit,..)：动态生成数组
Asc(str)：输出字符串第一个字符的ASCII码
Chr(asc)：转换ASCII为字符
Enter：Chr(13)&Chr(10)
Filter(数组名称,关键字符串,[,包含][,比较方法])：
将字符串数组中含有关键字符串的元素存成新的数组（默认）
[包含]为false则取不包含的元素
oin(ArrayName)：将数组中元素连成字符串
Ubound(ArrayName[,维数])：取得数组相应维数的上界
Lbound(ArrayName[,维数])：取得数组相应维数的下界
一般为0
Randmize
n：启动随机数种子
Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数
取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A)
条件（B>A）
子程序和自定义函数
Sub
StrSubName
Function
StrFunName(arg[1],..)
子程序体
函数体
Exit
Sub
中途跳出
Exit
Function
中途跳出
End
Sub
StrFunName＝value
返回值
End
Function
[call]
StrSubName
引用子程序
Var=StrFunName(arg[1],..)
引用函数
『贰』 VB编程，超简单的。求编写代码
第一题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入当前顾客购买鸡蛋的重量（以公斤为单位）")
If x < 3 Then
Y = 7.6 * x
Else
Y = 7.6 * x * 0.8
End If
Print Format(Y, "0.00")
End Sub
第二题：
Private Sub Form_Click()
Dim x As Double, Y As Double
x = InputBox("请输入顾客所乘的公里数")
If x / Fix(x) = 1 Then
x = x
Else
x = Fix(x) + 1
End If
If x > 15 Then
Y = 7 + 13 * 1.5 + (x - 15) * 2.1
ElseIf x > 2 Then
Y = 7 + (x - 2) * 1.5
Else
Y = 7
End If
Print Y
End Sub
『叁』 编程VB入门课看的书
推荐
机械工业出版社
出版的<<Visual
Basic
6.0
完全自学手册>>
仲维俊
等编著
具体特征
:
银灰色外皮,附带一张光盘,参考价59.80RMB
『肆』 VB编程入门
一个简单的计算器：代码
'定义变量
Dimoptiontag,a1,k
'数字0
PrivateSubcmd0_Click()
txt1=txt1&0
EndSub
'数字1
PrivateSubcmd1_Click()
txt1=txt1&1
EndSub
'数字2
PrivateSubcmd2_Click()
txt1=txt1&2
EndSub
'数字3
PrivateSubcmd3_Click()
txt1=txt1&3
EndSub
'数字4
PrivateSubcmd4_Click()
txt1=txt1&4
EndSub
'数字5
PrivateSubcmd5_Click()
txt1=txt1&5
EndSub
'数字6
PrivateSubcmd6_Click()
txt1=txt1&6
EndSub
'数字7
PrivateSubcmd7_Click()
txt1=txt1&7
EndSub
'数字8
PrivateSubcmd8_Click()
txt1=txt1&8
EndSub
'数字9
PrivateSubcmd9_Click()
txt1=txt1&9
EndSub
'+号
PrivateSubcmdadd_Click()
a1=txt1
txt1=""
optiontag=1
EndSub
'*号
PrivateSubcmdche_Click()
a1=txt1
txt1=""
optiontag=3
EndSub
'/号
PrivateSubcmdchu_Click()
a1=txt1
txt1=""
optiontag=4
EndSub
'清除
PrivateSubcmdclear_Click()
txt1=""
EndSub
'结果
PrivateSubcmdjie_Click()
'判断文本框是否有数字输入
Iftxt1=""Then
k=MsgBox("请输入数据！",vbOKOnly,"信息提示")
EndIf
'计算部分
SelectCaseoptiontag
Case1
txt1.Text=Val(a1)+Val(txt1.Text)
Case2
txt1.Text=Val(a1)-Val(txt1.Text)
Case3
txt1.Text=Val(a1)*Val(txt1.Text)
Case4
'判断分母不能为0
Iftxt1.Text="0"Then
k=MsgBox("分母不能为0！",vbOKOnly,"信息提示")
txt1.SetFocus
Else
txt1.Text=Val(a1)/Val(txt1.Text)
EndIf
EndSelect
EndSub
'-号
PrivateSubcmdsub_Click()
a1=txt1
txt1=""
optiontag=2
EndSub
窗体如下：
『伍』 VB编程请用四种方法
给你5种了
Option Explicit
Private Sub Command1_Click()
Dim i As Integer, s As Integer
For i = 1 To 100
s = s + i
Next
Print s
End Sub
Private Sub Command2_Click()
Dim i As Integer, s As Integer
Do While i <= 100
s = s + i
i = i + 1
Loop
Print s
End Sub
Private Sub Command3_Click()
Dim i As Integer, s As Integer
Do
i = i + 1
s = s + i
Loop While i <= 99
Print s
End Sub
Private Sub Command4_Click()
Dim i As Integer, s As Integer
While i <= 100
s = s + i
i = i + 1
Wend
Print s
End Sub
Private Sub Command5_Click()
Dim i As Integer, s As Integer
GOTONEXT:
s = s + i
i = i + 1
If i <= 100 Then GoTo GOTONEXT
Print s
End Sub
『陆』 vb编程，步骤详解
Dim p As Integer, q As Integer
Dim i As Integer, j As Integer,n as integer
'有一根长度为546米的钢材料，要将它截取成两种规格a、b的长度分别为19米和28米的短料，
'每种至少1段，问分隔成a，b各多少段后，剩余的残料r最少？编程解决此计算问题。
For i = 1 To Int(546 / 19)
' For j = 2 To Int(546 / 28)
If (546 - 19 * i) Mod 28 < (546 - 19 * (i - 1)) Mod 28 Then
p = i: q = (546 - 19 * i) / 28
End If
n=546-19*p-28*q
'Next
Next
Print p, q,n '输出 27 1 5
『柒』 VB编程入门
我也刚学了几天VB，感觉很好用，你去试试这个网站吧，初学者很容易看懂。http://www.bccn.net/Article/kfyy/vb/
『捌』 vb编程超简单
PrivateSubCommand1_Click()
Text2.Text=""
Text2.Text=Text2.Text+Text1.Text
Fori=0To2
IfOption1(i).Value=TrueThen
Text2.Text=Text2.Text+Space(3)+"职称："+Option1(i).Caption+Space(3)
Else
Option1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+"爱好："
Fori=0To2
IfCheck1(i).Value=1Then
Text2.Text=Text2.Text+Check1(i).Caption+Space(1)
Else
Check1(i).Enabled=False
EndIf
Nexti
Text2.Text=Text2.Text+Space(2)+"籍贯："+List1.List(List1.ListIndex)+Space(3)
Text2.Text=Text2.Text+"部门："+Combo1.Text
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Option1(0).Caption="初级"
Option1(1).Caption="中级"
Option1(2).Caption="高级"
Check1(0).Caption="音乐"
Check1(1).Caption="体育"
Check1(2).Caption="绘画"
List1.AddItem"北京市"
List1.AddItem"江苏省"
List1.AddItem"江西省"
List1.AddItem"山东省"
List1.AddItem"山西省"
List1.AddItem"浙江省"
List1.AddItem"辽宁省"
List1.AddItem"天津市"
List1.AddItem"湖南省"
List1.AddItem"河北省"
List1.AddItem"上海市"
List1.AddItem"广东省"
Combo1.AddItem"电子系"
Combo1.AddItem"数学系"
Combo1.AddItem"计算机系"
Combo1.AddItem"物理系"
Combo1.AddItem"化学系"
Combo1.AddItem"天文系"
Combo1.AddItem"地质系"
Combo1.AddItem"医学系"
Text1.Text=""
Text2.Text=""
EndSub
PrivateSubFrame1_Click()
Fori=0To2
IfOption1(Index).Value=FalseThenOption1(Index).Enabled=False
Nexti
EndSub
『玖』 VB6程序设计参考手册-独立源码的txt全集下载地址