段友3410
范文一：vb常用程序代码
1、求半径为 r 的圆的面积,要求用户从键盘输入半 r 。 程序代码:
Private Sub Form_click()
Const PI = 3.14
Dim r%
Dim s!
r = InputBox(
Form1.FontSize = 16
2、输入三个整数,从小到大顺序输出。
程序代码:
Private Sub Form_click()
a = InputBox(
b = InputBox(
c = InputBox(
If a > b Then t = a: a = b: b = t
If a > c Then t = a: a = c: c = t
If b > c Then t = b: b = c: c = t
End Sub
3、输入三个整数,从大到小顺序输出。
程序代码:
Private Sub Form_click()
a = InputBox(
b = InputBox(
c = InputBox(
If a
If a < c="" then="" t="a:" a="c:" c="">
If b < c="" then="" t="b:" b="c:" c="">
End Sub
4、输入 x 的值,输出对应的值。
y=10+2x(0
50-x(10
30(20
60-x(30
程序代码:
(一) 、
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = Val(Text1.Text)
If x > 0 And x <= 10="">
y = 10 + 2 * x
MsgBox
ElseIf x <= 20="">
y = 50 - x
MsgBox
ElseIf x <= 30="">
y = 30
MsgBox
ElseIf x <= 40="">
y = 60 - x
MsgBox
Else
MsgBox
End If
End Sub
(二) 、
Private Sub Command1_Click()
Dim x%, y%
x = InputBox(
Select Case x
Case Is <=>
y = 10 + 2 * x
Case Is <=>
y = 50 - x
Case Is <=>
y = 30
Case Is <=>
y = 60 - x
Case Else
MsgBox
End Select
End Sub
5、编写一个程序,输出给定的某年某月的天数。
程序代码:
Private Sub Command1_Click()
Dim year As Integer, month As Integer, day As Integer year = CInt(Text1.Text)
month = CInt(Text2.Text)
Select Case month
Case 1, 3, 5, 7, 8, 10, 12
day = 31
Case 4, 6, 9, 11
day = 30
Case 2
If year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then day = 29
Else
day = 28
End If
Case Else
day = 0
End Select
If day <> 0 Then
MsgBox year &
Else
MsgBox
End If
End Sub
6、求 S=1+2+3+....+100的累加和。
程序代码:
(一 ) 、 For … .Next 循环
Private Sub Command1_Click()
Dim i%, s%
s = 0
For i = 1 To 100
s = s + i
Next i
End Sub
(二) 、 Do While… Loop 循环
Private Sub Command1_Click()
Dim i%, s%
s = 0: i = 1
Do While i <=>
s = s + i
i = i + 1
Loop
End Sub
(三) 、 Do Until… .Loop
Private Sub Command1_Click()
Dim i%, s%
s = 0: i = 1
Do Until i > 100
s = s + i
i = i + 1
Loop
End Sub
7、接 6,如果累加达到 1000时马上终止循环,同时输出此时循环变量 i 的值。 程序代码:
(一) 、
Private Sub Command1_Click()
Dim i%, s%
s = 0
For i = 1 To 100
s = s + i
If s >= 1000 Then Exit For
Next i
End Sub
(二) 、
Private Sub Command1_Click()
Dim i%, s%
s = 0: i = 0
While s <>
i = i + 1
s = s + i
Wend
End Sub
(三) 、
Private Sub Command1_Click()
Dim i%, s%
s = 0: i = 1
While s <>
s = s + i
i = i + 1
Wend
End Sub
8、任意俩个正整数,使用欧几里得算法(即辗转相除法)求它们的最大公约数。 程序代码:
(一) 、 While … ..Wend 循环
Private Sub Command1_Click()
Dim M%, N%, R%
M = Val(InputBox(
N = Val(InputBox(
R = M Mod N
While R <> 0
M = N
N = R
R = M Mod N
Wend
End Sub
(二) 、 Do … ..Loop 循环
Private Sub Command1_Click()
Dim M%, N%, R%
M = Val(InputBox(
N = Val(InputBox(
R = M Mod N
Do While R <> 0
M = N
N = R
R = M Mod N
Loop
End Sub
9、给定一个正整数 n (n ≥ 3) ,判断它是否是素数。
程序代码:
(一) 、原版
Private Sub Command1_Click()
Dim Flag%, I%, N&
N = Val(InputBox(
Flag = 0: I = 2
While I <= n="" -="" 1="" and="" flag="">
If N Mod I = 0 Then Flag = 1 Else I = I + 1
Wend
If Flag = 0 Then Print N &
(二) 、改进版
Private Sub Command1_Click()
Dim Flag%, I%, k%, N&
N = Val(InputBox(
Flag = 0: I = 2: k = Int(Sqr(N))
While I <= k="" and="" flag="">
If N Mod I = 0 Then Flag = 1
I = I + 1
Wend
If Flag = 0 Then
Print N &
Else
Print N &
End If
End Sub
10、找出 100~200之间的全部素数。
程序代码:
(一 ) 、
Private Sub Form_click()
Dim Flag%, i%, k%, n%, d%
For n = 101 To 200 Step 2
Flag = 0: i = 2: k = Int(Sqr(n))
While i <= k="" and="" flag="">
If n Mod i = 0 Then
Flag = 1
Else
i = i + 1
End If
Wend
If Flag = 0 Then
d = d + 1
If d Mod 5 = 0 Then
Print n;
Else
Print n;
End If
End If
Next n
End Sub
(二) 、
Private Sub Command1_Click()
For i = 100 To 200
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Text1.Text = Text1.Text & i & Space(2) Next i
End Sub
11、输出 1~n之间的所有素数。
程序代码:
Private Sub Command1_Click()
n = Text1.Text
s = 0
For i = 3 To n
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next j
If j > Sqr(i) Then Text2.Text = Text2.Text & i & Space(2)
Next i
End Sub
12、输出菱形(1, 3, 5, 7, 5, 3, 1)
程序代码:
Private Sub Form_click()
For i = 1 To 4
Print Spc(9 - i);
For j = 1 To 2 * i - 1
Next j
Next i
For i = 1 To 3
Print Spc(5 + i);
For j = 1 To 7 - 2 * i
Next j
Next i
End Sub
13、斐波那契数列问题。
假设有一对兔子, 从出生后第三个月开始, 每个月都生一对小兔子。 小兔子到第三个月又开 始生下一代小兔子。假设兔子不死,问第 20个月共有几对兔子?
程序代码:
(一) 、
Private Sub Command1_Click()
Dim f1%, f2%, f3%, i%
f1 = 1: f2 = 1
For i = 3 To 20
f3 = f1 + f2
f1 = f2
f2 = f3
Next i
Text1.Text = f3
End Sub
(二) 、
Private Sub Command1_Click()
Dim f1%, f2%, i%
f1 = 1: f2 = 1
For i = 2 To 10
f2 = f2 + f1
Next i
Text1.Text = f2
End Sub
14、从键盘输入六个数,从小到大排列。 (选择排序)
程序代码:
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, m As Integer, t As Integer For i = 1 To n
a(i) = InputBox(
Next i
For i = 1 To n
Print a(i);
Next i
For i = 1 To n - 1
m = i
For j = i + 1 To n
If a(j) < a(m)="" then="" m="">
Next j
If m <> i Then
t = a(i): a(i) = a(m): a(m) = t
End If
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
15、从键盘输入六个数,从大到小排列。 (选择排序)
程序代码:
Private Sub Command1_Click()
Const n = 6
Dim a(1 To n) As Integer
Dim i As Integer, j As Integer, m As Integer, t As Integer For i = 1 To n
a(i) = InputBox(
Next i
Print a(i);
Next i
For i = 1 To n - 1
m = i
For j = i + 1 To n
If a(j) > a(m) Then m = j
Next j
If m <> i Then
t = a(i): a(i) = a(m): a(m) = t
End If
Next i
For i = 1 To n
Print a(i);
Next i
End Sub
16、采用冒泡排序法完成 10个俩位随机数的从小到大排列。 (冒泡排序) 程序代码:
Private Sub Command1_Click()
Const n = 10
Dim x(n) As Integer
Dim i, j, l, t As Integer
Randomize
For i = 1 To n
x(i) = Int(90 * Rnd + 10)
Next i
For i = 1 To n
Print x(i);
Next i
For i = n To 2 Step -1
l = 0
For j = 1 To i - 1
If x(j) > x(j + 1) Then
t = x(j): x(j) = x(j + 1): x(j + 1) = t
l = 1
End If
Next j
If l = 0 Then Exit For
Next i
For i = 1 To n
Print x(i);
Next i
End Sub
17、采用冒泡排序法完成 10个俩位随机数的从大到小排列。 (冒泡排序) 程序代码:
Private Sub Command1_Click()
Const n = 10
Dim x(n) As Integer
Dim i, j, l, t As Integer
Randomize
For i = 1 To n
x(i) = Int(90 * Rnd + 10)
Next i
For i = 1 To n
Print x(i);
Next i
For i = n To 2 Step -1
l = 0
For j = 1 To i - 1
If x(j) < x(j="" +="" 1)="">
t = x(j): x(j) = x(j + 1): x(j + 1) = t
l = 1
End If
Next j
If l = 0 Then Exit For
Next i
For i = 1 To n
Print x(i);
Next i
End Sub
18、计算三角形面积。
程序代码:
Private Sub Command1_Click()
Dim a%, b%, c%, p!, s!, r%
a = Val(InputBox(
b = Val(InputBox(
c = Val(InputBox(
If a + b < c="" or="" a="" +="" c="">< b="" or="" b="" +="" c="">< a="">
r = MsgBox(
Else
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
End If
End Sub
19、输出一个 3行 4列的二维数组 c 中元素的最大值,同时输出其所在行号与列号。 程序代码:
Private Sub Form_click()
Dim c(3, 4) As Integer
Dim max%, h%, l%, i%, j%
For i = 1 To 3
For j = 1 To 4
c(i, j) = InputBox(
Next j
Next i
max = c(1, 1)
h = 1: l = 1
For i = 1 To 3
For j = 1 To 4
If c(i, j) > max Then
max = c(i, j)
h = i
l = j
End If
Next j
Next i
End Sub
20、建立输出一个二维数组。
程序代码:
Private Sub Form_click()
Dim x(3, 4) As Integer
Dim i%, j%
For i = 1 To 3
For j = 1 To 4
x(i, j) = InputBox(
Next i
For i = 1 To 3
For j = 1 To 4
Print x(i, j);
Next j
Next i
End Sub
21、给定 m 行 n 列的一张数据表,编程求每一行的行与每一列的列的和。
程序代码:
Private Sub Form_click()
Const m = 3
Const n = 4
Dim a(m, n), h(m), l(n) As Integer
Dim i, j As Integer
For i = 1 To m
h(i) = 0
Next i
For j = 1 To n
l(j) = 0
Next j
For i = 1 To m
For j = 1 To n
a(i, j) = InputBox(
l(j) = l(j) + a(i, j)
Next j
Next i
For i = 1 To m
For j = 1 To n
Print a(i, j);
Next j
Next i
For j = 1 To n
Print l(j);
Next j
End Sub
22、某班学生的期末 4门课程(用 A 、 B 、 C 、 D 表示课程名称)成绩表如下:
学号 A B C D 总分
9901 68 90 83 74 315
9903 71 90 83 60 304
9908 91 82 85 79 337
9910 76 97 88 82 343
9911 65 72 70 98 305
用 vb 依总分从高到低打出一张成绩单。
程序代码:
Private Sub Form_click()
Dim a(5, 6), k(5) As Integer
Dim i, j, m, c As Integer
For i = 1 To 5
a(i, 6) = 0
For j = 1 To 5
a(i, j) = InputBox(
If j <> 1 Then a(i, 6) = a(i, 6) + a(i, j)
Next j
Next i
For i = 1 To 5
k(i) = i
Next i
For i = 1 To 4
m = i
For j = i + 1 To 5
If a(k(j), 6) > a(k(m), 6) Then m = j
Next j
If m <> i Then c = k(i): k(i) = k(m): k(m) = c
Next i
For i = 1 To 5
For j = 1 To 6
Print Tab(9 * j - 8); a(k(i), j);
Next j
Next i
End Sub
23、 生成单位矩阵。 编程产生一个 6行 6列的单位矩阵。 单位矩阵就是主对角线上元素全为 1,其他元素全为 0的方阵。
程序代码:
Private Sub Command1_Click()
Dim a(6, 6) As Integer
Dim i, j As Integer
For i = 1 To 6
For j = 1 To 6
If i = j Then a(i, j) = 1 Else a(i, j) = 0
Print Tab(3 * j); a(i, j);
Next j
Next i
End Sub
24、求一个已知矩阵的转置矩阵。
程序代码:
Private Sub Command1_Click()
Dim a(2, 3), b(3, 2) As Integer
Dim i, j As Integer
For i = 1 To 2
For j = 1 To 3
a(i, j) = InputBox(
Next j
Next i
For i = 1 To 3
For j = 1 To 2
Next j
Next i
End Sub
25、水仙花数
程序代码:
Private Sub Command1_Click()
Dim a%, b%, c%, n%, i%
n = Text1.Text
For i = 100 To n
a = i \ 100
b = Int((i Mod 100) / 10)
c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then Text2.Text = Text2.Text & i & Space(2) Next i
End Sub
26、同构数
程序代码:
Private Sub Command1_Click()
n = Text1.Text
For i = 1 To n
j = i ^ 2
If CStr(i) = Right(CStr(j), Len(CStr(i))) Then
Text2.Text = Text2.Text & i & Space(2)
End If
Next i
End Sub
27、完全平方数
程序代码:
Private Sub Command1_Click()
n = Text1.Text
For i = 1 To n
a = Sqr(i)
If a = Int(a) Then Text2.Text = Text2.Text & i & Space(2) Next i
End Sub
范文二：贪吃蛇-简单的vb程序代码
往链点点通共享资源，了解更多请登录www.WL566.com
题 目 贪吃蛇小游戏
学生姓名 张翠翠
专 业 计算机信息管理
班 级 086111
学 号 08611130
任课老师 丁木华
东 华 理 工 大 学 高 等 职 业 技 术 学 院
二 0 一 0 年 六 月
一 背景
蛇——传说中的圣灵之物，仰头为神、俯首为魔。蛇是月亮国膜拜的神，月亮国的子民们都认为蛇是万能的主宰派来保护他们的守护者。这里有蟒蛇、布袋蛇、响尾蛇、白火蛇、眼镜蛇、魔鬼蛇、机器蛇、水蛇、小龙、橡皮蛇等等各种各样的蛇。蛇在这个岛屿就像空气一样自然的出现在各个角落，有些还成为居民的宠物，陪伴孩子长大，和年轻人一起去探险，守护着散步的老人。
古老月亮国是一个与世隔绝的岛国，善良的人民世世代代生活在这片远离浮躁的世界里，过着与世无争的生活享受着他们的幸福和美满。这里有人们赖以生存的茂密的森林、荒凉的沙漠、寒冷的冰川和广阔的大海也有狂暴的火山和神秘的古代遗址。在善良的女娲神保佑下，人们的生活安宁平静。为了答谢女娲的庇佑，每年月亮国的国民都会举办一个守护蛇大赛，大家都会拿出自己最强、最炫、最快、最稀有的蛇来参加比赛，获得第一名的人将得到国王的特别嘉奖。所以国民一生都在不停的收集各种稀奇古怪的蛇，或者不断的培养更有威力的蛇。在这奇幻的大陆上，在每一片土地都布满着魔法和冒险。勇士们，快带上自己的守护蛇，去和守护蛇一起变的更加强壮、迅猛，去异界寻找那传说中的与众不同的蛇，去神秘的天界去寻找月亮岛的秘密……那将是怎么的一个神奇的经历呢,我们一起去见证那份不可思议的历程吧～
贪吃蛇这款游戏，是利用VB编写的一个软件，在窗体里的任意角落出现青蛙，游戏者通过??? ?控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的增加，游戏界面有两个按钮，开始和难度选择键。
本款游戏益智，有趣，可以锻炼游戏者的瞬间反应能力，熟悉??? ?。 一、设计目的
1. 综合Visual Basic相关知识制作简单的可视化应用程序
2. 灵活对程序代码进行利用，修改和编写;
3. 熟练将Visual Basic所学知识和其它知识相结合
二 功能描述
1、 运行
运行时有登陆的界面:开始游戏和难度选择，点击开始键开始游戏，点击难度选择选择难度。
2、 出现青蛙
进入游戏后，界面会出现贪吃蛇和青蛙，电脑随机安排青蛙的位置，吃掉后，青蛙出现在其他的位置。电脑随机安排青蛙的位置。
3、 分数记录
青蛙出现后用????控制贪吃蛇，吃掉一个青蛙，蛇身长长一格，分数相应的增加点中加一分，没吃不加分。
4、 游戏评分
游戏结束后，会弹出一个评分表，电脑会根据游戏者控制贪吃蛇吃掉的青蛙积分，每个十分。
二、概要设计(模块流程图)
游戏开始 将顶头的时间初
开始运行 始化。
评分 弹出评分窗口 程 序
运
再开始 顶头的时间初始， 行
界
面
退出运行
三 程序代码
Public beibei As Integer Public baobao As Boolean Sub Frog()
x = Int(26 * Rnd)
y = Int(20 * Rnd)
imgFrog.Left = 360 * x
imgFrog.Top = 360 * y End Sub
Private Sub cmdOption_Click()
Form2.Show
End Sub
Private Sub cmdStart_Click()
Timer1.Enabled = True
lbl_gameover.Visible = False
lbl_Show.Visible = False
lbl_Num.Visible = False
cmdStart.Enabled = False
cmdOption.Enabled = False
beibei= 3
If Img.UBound > 5 Then
For i = 6 To Img.UBound
Unload Img(i)
Next i
End If
Img(0).Left = 6840
Img(0).Top = 720
For i = 1 To 5
Img(i).Left = Img(i - 1).Left + 360
Img(i).Top = Img(i - 1).Top
Next i
For i = 0 To 5
Img(i).Stretch = True
Img(i).Visible = True
Next i
imgFrog.Left = 4320
imgFrog.Top = 2880
Set Img(0).Picture = LoadResPicture("al", 0)
End Sub
Private Sub Form_Load()
Set Img(0).Picture = LoadResPicture("al", 0)
For i = 1 To 5
Set Img(i).Picture = LoadResPicture("bb", 0)
Next i
lbl_gameover.Visible = False
lbl_Show.Visible = False
lbl_Num.Visible = False
beibei = 3
Timer1.Interval = Form2.hs.Value End Sub
Private Sub Timer1_Timer()
If beibei= 1 Then
Call Change
Img(0).Top = Img(0).Top - 360
ElseIf beibei = 2 Then
Call Change
Img(0).Top = Img(0).Top + 360
ElseIf beibei = 3 Then
Call Change
Img(0).Left = Img(0).Left - 360
ElseIf beibei = 4 Then
Call Change
Img(0).Left = Img(0).Left + 360
End If
If Img(0).Left = imgFrog.Left And Img(0).Top = imgFrog.Top Then
Do
Baobao = True
Call Frog
For i = 0 To Img.UBound
If imgFrog.Left = Img(i).Left And imgFrog.Top = Img(i).Top Then
haha = False
Exit For
End If
Next i
Loop While baobao = False
Load Img(Img.UBound + 1)
Set Img(Img.UBound).Picture = LoadResPicture("bb", 0)
Img(Img.UBound).Stretch = True
If Img(Img.UBound - 1).Left - Img(Img.UBound - 2).Left = 360 Then
Img(Img.UBound).Left = Img(Img.UBound - 1).Left + 360
Img(Img.UBound).Top = Img(Img.UBound - 1).Top
ElseIf Img(Img.UBound - 1).Left - Img(Img.UBound - 2).Left = -360 Then
Img(Img.UBound).Left = Img(Img.UBound - 1).Left - 360
Img(Img.UBound).Top = Img(Img.UBound - 1).Top
ElseIf Img(Img.UBound - 1).Top - Img(Img.UBound - 2).Top = 360 Then
Img(Img.UBound).Top = Img(Img.UBound - 1).Top + 360
Img(Img.UBound).Left = Img(Img.UBound - 1).Left
ElseIf Img(Img.UBound - 1).Top - Img(Img.UBound - 2).Top = -360 Then
Img(Img.UBound).Top = Img(Img.UBound - 1).Top - 360
Img(Img.UBound).Left = Img(Img.UBound - 1).Left
End If
Img(Img.UBound).Visible = True
End If
If Img(0).Left < 0="" or="" img(0).left=""> Pic_grass.Width - 360 Or Img(0).Top < 0="" or="">
Img(0).Top > Pic_grass.Height - 360 Then
Timer1.Enabled = False
lbl_gameover.Visible = True
lbl_Show.Visible = True
lbl_Num.Visible = True
lbl_Num.Caption = Img.UBound - 5
cmdStart.Enabled = True
cmdOption.Enabled = True
End If
For i = 1 To Img.UBound
If Img(0).Left = Img(i).Left And Img(0).Top = Img(i).Top Then
Timer1.Enabled = False
lbl_gameover.Visible = True
lbl_Show.Visible = True
lbl_Num.Visible = True
lbl_Num.Caption = Img.UBound - 5
cmdStart.Enabled = True
cmdOption.Enabled = True
End If
Next i
End Sub
Sub Change()
For i = Img.UBound To 1 Step -1
Img(i).Left = Img(i - 1).Left
Img(i).Top = Img(i - 1).Top
Next i
End Sub
Private Sub Pic_grass_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 38 Then
Set Img(0).Picture = LoadResPicture("au", 0)
Beibei = 1
ElseIf KeyCode = 40 Then
Set Img(0).Picture = LoadResPicture("ad", 0)
Beibei = 2
ElseIf KeyCode = 37 Then
Set Img(0).Picture = LoadResPicture("al", 0)
Beibei = 3
ElseIf KeyCode = 39 Then
Set Img(0).Picture = LoadResPicture("ar", 0)
Beibei= 4
End If
End Sub
四 运行界面
五 小结
一 存在的不足
1没有暂停键
2不能退出。
二?心得体会
提出,分析和解决实际问题,课程设计是培养学生综合运用所学知识,发现,
锻炼实践能力的重要环节,是对学生实际工作能力的具体训练和考察过程。
通过了这一周的VB课程设计，我学到很多很多的的东西，同时不仅可以巩固了以前所学过的知识，而且学到了很多在书本上所没有学到过的知识。通过这次课程设计使我懂得了理论与实际相结合是很重要的，只有理论知识是远远不够
的，只有把所学的理论知识与实践相结合起来，从理论中得出结论，才能真正为社会服务，从而提高自己的实际动手能力和独立思考的能力。在设计的过程中遇到问题，可以说得是困难重重，这毕竟第一次自己做一个程序，难免会遇到过各种各样的问题，同时在设计的过程中发现了自己的不足之处，对以前所学过的知识理解得不够深刻，掌握得不够牢固。通过这次课程设计之后，一定把以前所学过的知识重新温故。
程序设计师需要大量的时间去动手练习才能体验到她的内涵，同时还需要用心去投入，时间和感情花下去之后，的确慢慢的感受到有所收获了，而却也噶据我到了一点点的乐趣了。可能是一个良性循环的开始吧，相信以后会做的更好的。
这次课程设计终于顺利完成了，在设计中遇到了很多编程问题，但是在老师和同学的帮助下终于解决。在此向老师还有给过我帮助的同学们表示忠心的感谢～
七.参考文献
Visual Basic 程序设计教程(6.0版)
往链点点通共享资源
-----------------------------
资料说明
-----------------------------
该资源由往链点点通搜索于网络公开资源,仅供网友浏览阅读,请勿用于商业用途，
往链点点通,是免费的新一代电脑管理、网络应用桌面软件。
通过简洁清爽并可随意切换的两种窗口操作界面,构建了用户、电脑、互联网之间顺畅的入口平台。为用户管理电脑、智能办公、快捷上网、玩转应用,如 游戏,，,提供全方位一站式的服务。让用户只需通过往链点点通,就能便捷到达信息时代的各个角落。真正实现一键直达,点点就通。
往链快搜索,无论是搜索硬盘资源、查找网络资源,还是追踪热门应用,都能享受前所未所的快速度。如本地文件搜索,千万文件,零秒呈现，如网络搜索,只需输入一次关键词,便能同步打开百度、google等多个搜索引擎的结果页，
往链优应用,与某些软件相比,往链点点通追求绿色无广告的体验,精选最优质的网络应用,为用户提供纯净实在的生活、工作、学习、娱乐、休闲应用空间。
往链点点通,让您用windows的使用习惯享受苹果的操作体验,
查看和分享更多优质资源,请进入www.WL566.com 下载往链点点通,找到您的一切网络所需,
往链网址导航大全 www.www321.com
往链点点通,让您无障碍畅游网络世界,
范文三：vb关机及其他简单小程序代码
在 FORM 的 LOAD 事件加入:
shell
a=inputbox(
if a=
shell
msgbox
else
shell
shell
end if
新建一个工程,添加一个模块(可以把 Form1这个窗体删去,这里不用窗体)。 工程属性里设启动对象为 Sub Main
在模块里输入:
Sub Main()
Dim A As String
Shell
A = InputBox(
If A =
Shell
End If
End Sub
1。是百钱买百鸡
一百无买公鸡 5元一只,母鸡 3元一只,小鸡一元 3只 .x 代表公鸡, Y 代表母鸡。 z 代表小 鸡
PRIV ATE SUB form1_click()l
dim x,y,z as long
for x = 1 to 20
for y = 1 to 33
z= 100-x-y
if 5*x+3*y+1/3z= 100 then
print x,y,z
end if
nexty
nextx
end sub
2. 是画 50个不同大小的圆,色彩也不同 private sub from1_click()
for i = 1 to 50
randomize
a= int(255*rnd+1)
b = int(255*rnd +1)
c= int(255*rnd+1)
form1.forecolor= rgb(a,b,c) circle(3000,3000)i*100
next i
end sub
范文四：vb程序设计 IE浏览器程序代码
IE 浏览器程序代码
新建窗口:用于打开一个新的窗口
Private Sub xinjian_Click()
Dim a As Form
Set a = New Form1
a.Visible = True
End Sub
打开:打开电脑内的网页或打开所输入的网站
新建一个 form2,添加 CommonDialog 控件
CommonDialog1.InitDir =
CommonDialog1.Filter =
CommonDialog1.ShowOpen
Combo1.Text = CommonDialog1.FileName
另存为:保存网页
WebBrowser1.SetFocus: WebBrowser1.ExecWB OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT
关闭:关闭程序
Private Sub guanbi_Click()
End
End Sub
剪切:剪切文字
Private Sub jianqie_Click()
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_CUT, OLECMDEXECOPT_DODEFAULT
End Sub
复制:复制文字
Private Sub fuzhi_Click()
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
End Sub
粘贴:粘贴文字
Private Sub zhantie_Click()
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_PASTE, OLECMDEXECOPT_DODEFAULT End Sub
全选:全选文字
Private Sub quanxuan_Click()
WebBrowser1.SetFocus
WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT End Sub
查找:在网页中查找所需文字
Private Sub chazhao_Click()
WebBrowser1.SetFocus
SendKeys
End Sub
刷新:刷新页面
Private Sub shuaxin_Click()
WebBrowser1.Refresh
End Sub
停止:停止装载
Private Sub tingzhi_Click()
WebBrowser1.stop
End Sub
添加收藏夹:将网页添加到收藏夹
Private Sub tianjia_Click()
Dim s As New ShellUIHelper
s.AddFavorite
Set s = Nothing
End Sub
整理收藏夹:
Private Sub zhengli_Click()
Dim lpszRootFolder As String
Dim success As Long
success = DoOrganizeFavDlg(hWnd, lpszRootFolder) End Sub
范文五：鸡兔同笼、三个数排序、水仙花数字的vb程序代码
鸡兔同笼
在窗体中插入一个按钮，编写如下程序。 Private Sub Command1_Click()
Dim h%, f%, x%, y% h = InputBox("请输入总头数h:") f = InputBox("请输入总脚数f:") x = 2 * h - f / 2 y = f / 2 - h
Print "鸡的数量:"; x
Print "兔的数量是:"; y
End Sub
将三个数字进行排序的VB代码: Private Sub Form_Click()
Dim a#, b#, c#, x#, y#, z#
i: a = InputBox("请输入a")
b = InputBox("请输入b")
c = InputBox("请输入c")
If a = b Or b = c Or a = c Then
Print "输入数据无法运算，请重新输入" GoTo i
End If
If a < b="" then="">
x = b
If x < c="" then="">
x = c
y = b
z = a
End If
Else
x = a
If b > c Then
y = b
z = c
Else
y = c
z = b
End If
End If
Print "自大至小排序为:"; x, y, z
End Sub
输入一个正的三位数，判断是否是水仙花数的VB代码。 Private Sub Form_Click() Dim x%, a%, b%, c%
i: x = InputBox("请输入一个三位数")
If x <= 99="" or="" x="">= 1000 Then
Print "请重新输入一个三位数"
GoTo i
Else
a = x Mod 10
b = x \ 10 Mod 10
c = x \ 100 Mod 10
If x = a * a * a + b * b * b + c * c * c Then
Print "x是水仙花数"
Else
Print "x不是水仙花数"
End If
End If
End Sub
