vb高级编程100例

⑴ 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=”星期日”

⑵ vb 例子

1..

Dim Words, Chars, MyString
For Words = 10 To 1 Step -1 ' 建立 10 次循环。
For Chars = 0 To 9 ' 建立 10 次循环。
MyString = MyString & Chars ' 将数字添加到字符串中。
Next Chars ' Increment counter
MyString = MyString & " " ' 添加一个空格。
Next Words

2.
Do...Loop 语句示例
本示例示范如何使用 Do...Loop 语句。内层的 Do...Loop 语句循环到第 10 次时将标志值设置为 False，并用 Exit Do 语句强制退出内层循环。外层循环则在检查到标志值为 False 时，马上退出。

Dim Check, Counter
Check = True: Counter = 0 ' 设置变量初始值。
Do ' 外层循环。
Do While Counter < 20 ' 内层循环。
Counter = Counter + 1 ' 计数器加一。
If Counter = 10 Then ' 如果条件成立。
Check = False ' 将标志值设成 False。
Exit Do ' 退出内层循环。
End If
Loop
Loop Until Check = False ' 退出外层循环。

3.
While...Wend 语句示例
本示例使用 While...Wend 语句来增加计数变量的值。如果条件判断值为 True，则循环内的语句将一直执行下去。

Dim Counter
Counter = 0 ' 设置变量初值。
While Counter < 20 ' 测试计数器的值。
Counter = Counter + 1 ' 将计数器的值加一。
Wend ' 当 Counter > 19 时则循环终止。
Debug.Print Counter ' 在“立即”窗口中显示数字 20。

Select Case 语句示例
本示例使用 Select Case 语句来判断变量的值。示例中第二个 Case 子句包含了变量值，故只有此区块内的语句会被完成到。

Dim Number
Number = 8 ' 设置变量初值。
Select Case Number ' 判断 Number 的值。
Case 1 To 5 ' Number 的值在 1 到 5 之间，包含1 和 5 。
Debug.Print "Between 1 and 5"
' 下一个 Case 子句是本示例中唯一判断值为 True 的子句。
Case 6, 7, 8 ' Number 的值在 6 到 8 之间。
Debug.Print "Between 6 and 8"
Case 9 到 10 ' Number 的值为 9 或 10。
Debug.Print "Greater than 8"
Case Else ' 其他数值。
Debug.Print "Not between 1 and 10"
End Select

⑶ 求一个简单vb编程实例~

控件：image,picture,timer代码：Dim x As Integer
Dim y As IntegerPrivate Sub Form_Load()
x = 100
y = 100
Timer1.Interval = 100
End SubPrivate Sub Timer1_Timer()
If img.Top >= pic.Height - img.Height Then
y = -100
End If
If img.Top <= 0 Then
y = 100
End If
If img.Left >= pic.Width - img.Width Then
x = -100
End If
If img.Left <= 0 Then
x = 100
End If
img.Top = img.Top + y
img.Left = img.Left + x
End Sub
以上代码实现的是图片框中的一个小球做的规律的运动，当小球碰到图片框边缘时便反弹继续运动

⑷ 求VB程序设计典型例题

修改好了测试成功，但是，基本上，偶数和会大于所有的数
private
sub
command1_click()
dim
a(10)
as
double
dim
t
as
double
randomize
for
i
=
1
to
10
a(i)
=
int(rnd
*
100
+
2)
'设十个数，给十个数随机赋值
if
a(i)
mod
2
=
0
then
t
=
t
+
a(i):
print
"偶数为";
a(i)
next
i
print
"偶数的和为";
t
for
i
=
1
to
10
if
a(i)
<
t
then
print
"小于偶数和的数";
a(i)
next
i
end
sub

⑸ vb编程实例

Static s As Integer s 是静态变量，过程结束后，数据依然存在，且值保持原来不变
一开始s=0
m(1),走入Function,时，n=1 ,循环一次（加上一个1），s=1,m(1)=1
m(2),走入Function,时，s=1(值保持原来1不变),n=2 ,循环2次（加上2个1），s=3,m(2)=3
m(3),走入Function,时，s=3(值保持原来3不变),,n=3 ,循环3次（加上3个1），s=6,m(3)=6
m(1)+m(2)+m(3)=1+3+6=10

⑹ vb程序设计实例

Private Sub Form_Activate()
'1年期2.25%，2年期2.43%，3年期为2.70%，5年期为2.88%（不记复利）。今有X元，5年以后使用，共有如下6中存法：
Const x1 As Double = 0.0225, x2 As Double = 0.0243, x3 As Double = 0.027, x5 As Double = 0.0288
Dim x As Double
x = Val(InputBox(""))
Print "①存一次5年期,5年后到期的本息合计"; ss(x, 5, x5)
Print "②存一次3年期，一次2年期,5年后到期的本息合计"; ss(ss(x, 3, x3), 2, x2)
Print "③存一次3年期，两次1年期,5年后到期的本息合计"; ss(ss(ss(x, 3, x3), 1, x1), 1, x1)
Print "④存两次2年期，一次1年期,5年后到期的本息合计"; ss(ss(ss(x, 2, x2), 2, x2), 1, x1)
Print "⑤存一次2年期，三次1年期,5年后到期的本息合计"; ss(ss(ss(ss(x, 2, x2), 1, x1), 1, x1), 1, x1)
Print "⑥存五次1年期,5年后到期的本息合计"; ss(ss(ss(ss(ss(x, 1, x1), 1, x1), 1, x1), 1, x1), 1, x1)

End Sub

Private Function ss(ByVal a As Double, b As Integer, c As Double) As Double
ss = a + a * c * b
End Function

Private Sub Form_Load()
AutoRedraw = True
End Sub

⑺ VB高级编程

无论任何语言，windows下的编程基本全靠API函数，看一下针对VB的API方面书籍吧！～《Visual Basic 5.0 Win32 API开发人员指南》这本虽然是VB5的，但在VB6以及.net适用，语言本身的语句只能算算数学问题啦！～windows下的全靠API，这本应该最适合你了！～
有兴趣编程可以来我的博客，点我的名字就进去了！

⑻ 一个准备自学VB的人提问——（高手进、高分）

我不是高手,我和你情况差不多,大学学过C语言,忘完了。工作以后有个朋友在一个电脑培训部教VB,有事让我去顶几天,我第一天看书,第二天就去上课.上了十二天课(总共20天)终于把学生糊弄过去了。六个学生有四个过了国家二级.从那以后,对VB比较感兴趣,也根据工作需要做了一些东西.比如仓库管理,资料管理,客户信息管理等.因为是完全自学,也走了不少弯路,希望我的经历对你有点帮助:
1.我最开始用的是国家考试中心出的VB程序设计教程(因为是该培训班配的书),感觉不错,有点傻瓜式教程一样,比较适合自学.后来有天在街上买了本<VB50例>,就是一些从浅到深的例子,觉得也很有帮助.(这本书总的也比较简单,你所提到要达到的东西在这本书中基本都有了)然后就没买实体书,在网上下载,比如<visual basic 高级编程及其项目应用开发>,用办公室打印机打出来看.我主要在http://www.ibook8.com/下载书籍,比较全,不收费不要积分.
2.我认为VB不需要一开始很老实的打基础,对基础有点了解了就看例子,然后试着自己去写,从中回顾基础.VB比C好学,有C基础的,对VB程序中的控制结构很容易看懂,其他的函数定义等也相当好理解.把程序结构搞懂了，然后通过学习别人的例子,理解起来很快.
3.枕善居很不错,www.MNDSOFT.com.相当有名气,不过因为是个人搞的,更新上慢一点.我觉得里面的程序都很经典.另外在他首页上有一个友情连接,比较出名的VB论坛等都有,可以看看。
4.初期学习,也就是国家二级标准,我觉得没有不好理解的。在此基础上在学点数据库方面的知识,就可以完成你所需要完成的东西了。
5.不觉得视频教程对你自学有好处,因为程序更多的是靠写,而不是靠设置控件等。也没发现什么好的视频教程.
6.VB挺好,简单易学.别人说VC等多强大,多好,但我们不是专业程序员,VB在我眼中也够好够用了。
总的来讲,多看,多练,多想,一切OK.花上一个月,可以做一些小程序,比如XX计算等方面的.再花一个月学点数据库方面的知识,可以做些管理软件.然后再学API,ActiveX方面的(难一点了...)
祝你成功!

⑼ vb编程实例 交互式窗口，输入100个数据，求平均值、平方后再开方和自动分类

Dim intArray(100) As Single, sglAverage As Single

Private Sub Command1_Click()

Randomize (Timer)

Dim i As Integer, intSum As Integer

Me.Picture1.Cls

For i = 1 To 100

intArray(i) = Int(Rnd(i) * 5 + 95)

Me.Picture1.Print intArray(i);

If i Mod 10 = 0 Then Me.Picture1.Print

intSum = intSum + intArray(i)

Next i

sglAverage = intSum / 100

Label1.Caption = "Sum=" & intSum

Label2.Caption = "Average=" & sglAverage

End Sub

Private Sub Command2_Click()

Dim i As Integer, k0 As Integer, k(4) As Integer

For i = 0 To 4

Me.Picture2(i).Cls

Next i

For i = 1 To 100

If Sqr((intArray(i) - sglAverage) ^ 2) >= 1.67 Then

k(0) = k(0) + 1

Me.Picture2(0).Print intArray(i);

If k(0) Mod 10 = 0 Then Me.Picture2(0).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1.33 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.67 Then

k(1) = k(1) + 1

Me.Picture2(1).Print intArray(i);

If k(1) Mod 10 = 0 Then Me.Picture2(1).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 1 And Sqr((intArray(i) - sglAverage) ^ 2) < 1.33 Then

k(2) = k(2) + 1

Me.Picture2(2).Print intArray(i);

If k(2) Mod 10 = 0 Then Me.Picture2(2).Print

ElseIf Sqr((intArray(i) - sglAverage) ^ 2) >= 0.67 And Sqr((intArray(i) - sglAverage) ^ 2) < 1 Then

k(3) = k(3) + 1

Me.Picture2(3).Print intArray(i);

If k(3) Mod 10 = 0 Then Me.Picture2(3).Print

Else

k(4) = k(4) + 1

Me.Picture2(4).Print intArray(i);

If k(4) Mod 10 = 0 Then Me.Picture2(4).Print

End If

Next i

For i = 0 To 4

Me.Label8(i).Caption = "共计" & k(i)

Next i

End Sub

⑽ vb程序设计实例100

试题一.1

Private Sub Form_Click()
Print fs_sum(100)
End Sub
Function fs_sum(ByVal n As Integer) As Single
Dim s!, nc! '和与倒数
s=0
For i = 1 To n
nc = 1 / i
s = s + nc
Next i
fs_sum = s
End Function
试题一.2
Private Sub Form_Click()
For i = 1 To 4
Print Space(4 - i);
For j = 1 To i
Print "* ";
Next j
Print
Next i
End Sub
待续，未完...