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

2022-07-12 05:13:17 文档大全网 [ 字体：小中大 ] [ 阅读： ]

【#文档大全网# 导语】以下是®文档大全网的小编为您整理的《VB程序代码(简单小程序)》，欢迎阅读！
程序,代码,简单
实验一（带有进度条的倒计时程序）

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 End Select End Sub End Class