【VB开源代码栏目提醒】:网学会员在VB开源代码频道为大家收集整理了“VB程序代码(简单小程序) - 编程语言“提供大家参考,希望对大家有所帮助!
实验一带有进度条的倒计时程序 Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_TickByVal 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_LoadByVal sender As System.Object ByVal e As System.EventArgs Handles MyBase.Load timers 30 End Sub Private Sub Button2_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button2.Click timers ValInputBox输入 请输入总时间。
30 0 0 End Sub Private Sub Button1_ClickByVal 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_TickByVal 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_ClickByVal sender As System.Object ByVal e As System.EventArgs Handles Button1.Click Dim n y As Integer n ValTextBox1.Text y ValTextBox2.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_ClickByVal 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 ValTextBox1.Text Then TextBox2.Text √ vbCrLf Else TextBox2.Text × vbCrLf End If End If Randomize x IntRnd 999 1 y IntRnd 999 1 i IntRnd 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