【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《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 If (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timers Else Timer1.Enabled = False 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 timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 ’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 Sub End Class 实验三〔递推法 迭代法--猴子吃桃〕 Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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 If (Label1.Text <> "") Then 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 . 本文来源:https://www.dywdw.cn/f5fb668df66527d3240c844769eae009591ba241.html