VB程序代码(简单小程序)63476
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
实验一：（带有进度条的倒计时程序）
Public Class Form1
Dim timers As Integer
Dim temp As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timers
Else
Timer1.Enabled = False
ProgressBar1.Value = ProgressBar1.Maximum
MessageBox.Show("进度完成！")
End If
temp += 1
Label1.Text = temp.ToString()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
timers = 30
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0))
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Enabled = True
End Sub
End Class
实验二（定时器控制蝴蝶飞舞）
Public Class Form1
Dim t As Integer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
’Dim t As Boolean
' If t = True Then
' PictureBox3.Image = PictureBox2.Image
' t = False
'Else
' PictureBox3.Image = PictureBox1.Image
' t = True
'End If
Select Case t
Case 0
PictureBox3.Image = PictureBox1.Image
t = 1
Case 1
PictureBox3.Image = PictureBox2.Image
t = 2
Case 2
PictureBox3.Image = PictureBox1.Image
t = 3
Case 3
PictureBox3.Image = PictureBox1.Image
t = 0
End Select
End Sub
End Class
实验三（递推法迭代法--猴子吃桃）
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim n, y As Integer
n = Val(TextBox1.Text)
y = Val(TextBox2.Text)
Dim xi As Double
xi = y
TextBox3.Text = "第" + n.ToString() + "天的桃子为：" + y.ToString() + "个。" + vbCrLf
For i As Integer = n - 1 To 1 Step -1
xi = (xi + 1) * 2
TextBox3.Text += "第" + i.ToString() + "天的桃子为：" + xi.ToString() + "个。" + vbCrLf
Next
End Sub
End Class
实验四（加减乘除随机数题）
Public Class Form1
Dim x, y As Integer
Dim i As Integer
Dim sum As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If (Label1.Text <> "") Then
TextBox2.Text += Label1.Text + TextBox1.Text
TextBox2.Text += " 结果"
If (sum = Val(TextBox1.Text)) Then
TextBox2.Text += "√" + vbCrLf
Else
TextBox2.Text += "×" + 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
Label1.Text = x.ToString() + "＋" + y.ToString() + "＝"
sum = x + y
Case 2
Label1.Text = x.ToString() + "－" + y.ToString() + "＝"
sum = x - y
Case 3
Label1.Text = x.ToString() + "×" + y.ToString() + "＝"
sum = x * y
Case 4
Label1.Text = x.ToString() + "÷" + y.ToString() + "＝"
sum = x / y