Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
PictureBox1.Image = PictureBox2.Image
PictureBox2.Image = PictureBox3.Image
PictureBox3.Image = PictureBox1.Image
If Label1.Top <= 0 Then
Label1.Top = Me.Height
Else
Label1.Top = Label1.Top - 10
End If
End Sub
End Class
吸烟有害的实验

Dim a(20) As Integer
Dim t As Integer
Dim i As Integer
Dim j As Integer
Dim x As String
Dim y As String
x = ""
y = ""
For i = 1 To 20
a(i) = Int(Rnd() * 100)
x = x & a(i) & ","
Next
For i = 1 To 19 '进行19轮比较
For j = 20 To i + 1 Step -1 '从20~i个元素进行两两比较
If a(j) < a(j - 1) Then '若次序不对,则马上进行交换位置
t = a(j)
a(j) = a(j - 1)
a(j - 1) = t
End If
Next j
y = y & a(i) & ","
Next i
y = y & a(20)
MsgBox(x & Chr(10) & y)
数组排序 w编写对20个业务员的销售金额按从高到低的顺序排序，并显示排序后的结果。

将9个数字排列成：
123
456
789
Dim a(2, 2) As Integer
Dim i As Integer, j As Integer, y As String
For i = 0 To 2
For j = 0 To 2
a(i, j) = InputBox("请输入数据")
Next j
Next i
y = ""
For i = 0 To 2
For j = 0 To 2
y = y & a(i, j) & " "
Next j
y = y & Chr(10)
Next i
MsgBox(y)

(实验31/4)：根据20人组的销售收入业绩编写一个统计程序,要求统计销售金额在50万元以上的业务员人数和在10万元以下的业务员人数
DimA(20) As Integer
Dims1 As Integer, s2 As Integer
Dimi As Integer
s1=0
s2=0
Randomize()
Fori = 1 To 20
A(i) = Int(Rnd()* 100) ‘利用随机函数为每人的销售业绩赋值
Next i
For i = 1 To 20
If A(i) >= 50 Then
s1 = s1 + 1
ElseIf A(i) <= 10 Then
s2 = s2 + 1
End If
Next i
MsgBox("第1组的人数是：" & s1 & Chr(10) & "第2组的人数是：" & s2)

例1:求100个学生的平均成绩？然后统计高于平均分的人数?
aver=0：Mark=0
Fori=1 to 100
Mark=inputBox(“输入第”+i+“位学生成绩”)
aver=aver+mark
Nexti
aver=aver/100
可以用数组来表示这100个数据类型相同的变量
例如：t(0), t(1), t(2),… t(98), t(99)
t(k) (k=0,1,2,…99)为数组元素(或称下标变量)，它表示第k个学生的成绩, k称为下标变量的下标(下标从0开始)

例5.3 输入华氏温度，要求输出摄氏温度（结果取2位小数）。公式为：
PrivateSub Form1_Click
Dim Sin_fAs Single, Sin_cAs Single
Sin_f= InputBox("请输入华氏温度：","输入窗口")
Sin_c= 5 * (Sin_f- 32) / 9
Sin_c= Format(Sin_c,"#.##") '设定输出为二位小数
Label1.Text= Sin_c
EndSub

Ifx<>0 then
y=math.sin(x)+math.sqrt(x*x+1)--------------------平方根
Else
y=math.cos(x)-x^3+3*x
Endif

计算1到100自然数的和
Private Sub Form1_Click()
Dim x As Integer, sum As Integer
sum = 0
For x = 1 To 100 Step 1 'x是循环变量
sum= sum + x 'sum存放累加结果
Nextx
MsgBox("1+2+3+……+100=" &sum)
End Sub

例5.11 计算1+1/2!+1/3!+…+1/n!,当1/n!<10-6时结束计算
Dimi as Integer, t as double, s as double
i=0:t=1:s=0
Dowhile t>0.000001
i=i+1
t=t/i
s=s+t
Loop
MsgBox(“1+1/2!+1/3!+…+1/n!=”& s)

例5.10 从键盘输入10个数，找出这些数中的最大值和最小值并打印出来。
PrivateSubButton1_Click
Dim xAs Single, Max As Single, Min As Single, k As Integer
x = InputBox("请输入第1个数")
Max = x: Min = x
K=2
While k<= 10
x = InputBox("请输入"&Str(k)&"个数")
If Max < x Then Max = x
If Min > x Then Min = x
k = k + 1
EndWhile
Label1.Text = Max
Label2.Text = Min
EndSub

例5.10 从键盘输入10个数，找出这些数中的最大值和最小值并打印出来。
PrivateSubButton1_Click
Dim xAs Single, Max As Single, Min As Single, k As Integer
x = InputBox("请输入第1个数")
Max = x: Min = x
K=2
While k<= 10
x = InputBox("请输入"&Str(k)&"个数")
If Max < x Then Max = x
If Min > x Then Min = x
k = k + 1
EndWhile
Label1.Text = Max
Label2.Text = Min
EndSub

求T = 8! = 1×2×3×…×8
Private Sub Form_Click()
t = 1
For c = 1 To 8
t = t * c
Next c
MsgBox("T=“ & t)
End Sub
程序运行结果是：T＝40320

输入两个正整数，求它们的最大公约数
PrivateSub Command1_Click()
Dim m As Integer, n As Integer, pAs Integer
m = Val(Textbox1.Text) : n =Val(Textbox2.Text)
If m <= 0 Or n <= 0 Then
MsgBox("数据错误!")
End
End If
DoWhile n <> 0
p = m Mod n
m = n
n = p
Loop
Textbox3.Text= m
End Sub

显示矩阵123
123
123
PrivateSub Command1_Click()
Dim i As Integer, j As Integer
For i = 1 To 3
For j = 1 To 3
Print j;
Next j
Print
Next i
EndSub