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

VB程序代码(简单小程序)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 < P...

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

                    本文档为【VB程序代码(简单小程序)】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

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

你可能还喜欢