VB程序代码(简单小程序)

1、VB程序代码(简单小程序)VB程序代码(简单小程序)VB程序代码(简单小程序)VB程序代码(简单小程序)编制仅供参考审核批准生效日期地址： 电话：传真: 邮编:实验一（带有进度条的倒计时程序）Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles If + / timers Then += / timers Else = False = (进度完成！) End If temp += 1 = () End Su

2、b Private Sub Form1_Load(ByVal sender As , ByVal e As Handles timers = 30 End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As Handles timers = Val(InputBox(输入, 请输入总时间。, 30, 0, 0) End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As Handles = True End SubEnd Class实验二（定时器控制蝴蝶飞舞）Pu

3、blic Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As , ByVal e As Handles Dim t As Boolean If t = True Then = t = False Else = t = True End If Select Case t Case 0 = t = 1 Case 1 = t = 2 Case 2 = t = 3 Case 3 = t = 0 End Select End SubEnd Class实验三（递推法 迭代法-猴子吃桃）Public Class Form1

4、 Private Sub Button1_Click(ByVal sender As , ByVal e As Handles Dim n, y As Integer n = Val y = Val Dim xi As Double xi = y = 第 + () + 天的桃子为： + () + 个。 + vbCrLf For i As Integer = n - 1 To 1 Step -1 xi = (xi + 1) * 2 += 第 + () + 天的桃子为： + () + 个。 + vbCrLf Next End SubEnd Class实验四（加减乘除随机数题）Public Clas

5、s Form1 Dim x, y As Integer Dim i As Integer Dim sum As Integer Private Sub Button2_Click(ByVal sender As , ByVal e As Handles If ) Then += + += 结果 If (sum = Val) Then += + vbCrLf Else += + vbCrLf End If End If Randomize() x = Int(Rnd() * 999 + 1) y = Int(Rnd() * 999 + 1) i = Int(Rnd() * 4 + 1) Select Case i Case 1 = () + + () + sum = x + y Case 2 = () + + () + sum = x - y Case 3 = () + +