Vb代码.docx

1、Vb代码选择结构 IF语句年龄判断2 Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click If UCase(txtSex.Text) = M Then 男 If Val(txtAge.Text) = 36 Then lblResult.Text = 再不结婚就来不及了！ ElseIf Val(txtAge.Text) = 30 Then lblResult.Text = 可以考虑娶老婆了！ Else lblResult.Text = 你还年

2、轻！ End If ElseIf UCase(txtSex.Text) = F Then 女 If Val(txtAge.Text) = 32 Then lblResult.Text = 再不结婚就来不及了！ ElseIf Val(txtAge.Text) = 25 Then lblResult.Text = 可以考虑嫁人了 Else lblResult.Text = 你还年轻 End If Else MsgBox(性别输入有误, MsgBoxStyle.OKOnly, 错误) End If End SubEnd Class年龄判断1 Private Sub btnOK_Click(ByVal

3、 sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click Dim keyAge As String = 39 lblResult.Text = Select Case Val(txtAge.Text) Case 6 To 9 lblResult.Text = 年龄在到岁之间的小朋友 Case 11, 21, 31 lblResult.Text = 年龄是11、12、13岁 Case 16 To 28 If Val(txtAge.Text) = 18 Then Exit Select lblResult.

4、Text = 正值青春年华的年纪 Case keyAge lblResult.Text = 要特别小心的年纪 Case Is = 70, Is 6 lblResult.Text = 老年人和小小孩 Case 29 To 33, 41 To 44, 55, 58 lblResult.Text = 有机会飞黄腾达的年龄 Case Else lblResult.Text = 其它不错的年纪 End Select End SubEnd Class单选、复选控件 Private Sub RadioButton1_CheckedChanged(ByVal sender As Object, ByVal e

5、 As System.EventArgs) Handles RadioButton1.CheckedChanged Dim s As String If (RadioButton1.Checked) Then s = RadioButton1.Text + vbCrLf Else s = RadioButton2.Text + vbCrLf End If If CheckBox1.Checked Then s = s + CheckBox1.Text + vbCrLf End If If CheckBox2.Checked Then s = s + CheckBox2.Text + vbCrL

6、f End If If CheckBox3.Checked Then s = s + CheckBox3.Text + vbCrLf End If TextBox1.Text = sEnd Sub颜色 大小 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If RadioButton1.Checked Then TextBox1.ForeColor = Color.Red ElseIf RadioButton2.Checked

7、Then TextBox1.ForeColor = Color.Green Else TextBox1.ForeColor = Color.Blue End If If RadioButton4.Checked Then TextBox1.Font = New Font(TextBox1.Font.Name, 16, TextBox1.Font.Style) Else TextBox1.Font = New Font(TextBox1.Font.Name, 24, TextBox1.Font.Style) End If End Sub计时器 Dim t# Private Sub Button1

8、_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click t = TextBox1.Text Timer1.Enabled = True End Sub Private Sub Timer1_Tick1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim m, s As Integer t = t - 1 m = Int(t / 60) s = t Mod 60 TextBo

9、x2.Text = m & 分 & s & 秒 If (t = 0) Then Timer1.Enabled = False MsgBox(时间到！) End If End Sub蝴蝶飞 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick Static PickBmp As Integer 定义图像交替控制指针 If PickBmp = 0 Then PictureBox1.Image = PictureBox2.Image 显示图像 PickBmp =

10、 1 Else PictureBox1.Image = PictureBox3.Image 显示图像 PickBmp = 0 End If PictureBox1.Left = PictureBox1.Left + 5 PictureBox1.Top = PictureBox1.Top - 5 If PictureBox1.Top Me.Width Then PictureBox1.Left = 0 PictureBox1.Top = 120 End If End Sub红绿灯 Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As

11、 System.EventArgs) Handles Timer1.Tick Static i% i = i Mod 3 If i = 0 Then Timer1.Interval = TextBox1.Text * 1000 PictureBox4.Image = PictureBox1.Image Label4.Text = 红灯时间，请停车！ ElseIf i = 1 Then Timer1.Interval = TextBox2.Text * 1000 PictureBox4.Image = PictureBox2.Image Label4.Text = 黄灯时间，注意信号灯切换！ E

12、lse Timer1.Interval = TextBox3.Text * 1000 PictureBox4.Image = PictureBox3.Image Label4.Text = 绿灯时间，可以安全通行！ End If i += 1 End Sub计算贷款Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim a As Integer, b As Integer a = Val(TextBox1.Text) If Ch

13、eckBox1.Checked = True Then If RadioButton4.Checked = True And RadioButton1.Checked = True Then b = a * 10000 * (1 + 0.05 * 0.95) / (10 * 12) TextBox2.Text = Format(b, #.#) ElseIf RadioButton4.Checked = True And RadioButton2.Checked = True Then b = a * 10000 * (1 + 0.08 * 0.95) / (20 * 12) TextBox2.

14、Text = Format(b, #.#) ElseIf RadioButton4.Checked = True And RadioButton3.Checked = True Then b = a * 10000 * (1 + 0.1 * 0.95) / (30 * 12) TextBox2.Text = Format(b, #.#) ElseIf RadioButton5.Checked = True And RadioButton1.Checked = True Then b = a * 10000 * (1 + 0.05 * 0.95 * 0.9) / (10 * 12) TextBo

15、x2.Text = Format(b, #.#) ElseIf RadioButton5.Checked = True And RadioButton2.Checked = True Then b = a * 10000 * (1 + 0.08 * 0.95 * 0.9) / (20 * 12) TextBox2.Text = Format(b, #.#) ElseIf RadioButton5.Checked = True And RadioButton3.Checked = True Then b = a * 10000 * (1 + 0.1 * 0.95 * 0.9) / (30 * 1

16、2) TextBox2.Text = Format(b, #.#) End If Else If RadioButton4.Checked = True And RadioButton1.Checked = True Then b = a * 10000 * (1 + 0.05) / (10 * 12) TextBox2.Text = Format(b, #.#) ElseIf RadioButton4.Checked = True And RadioButton2.Checked = True Then b = a * 10000 * (1 + 0.08) / (20 * 12) TextB

17、ox2.Text = Format(b, #.#) ElseIf RadioButton4.Checked = True And RadioButton3.Checked = True Then b = a * 10000 * (1 + 0.1) / (30 * 12) TextBox2.Text = Format(b, #.#) ElseIf RadioButton5.Checked = True And RadioButton1.Checked = True Then b = a * 10000 * (1 + 0.05 * 0.9) / (10 * 12) TextBox2.Text =

18、Format(b, #.#) ElseIf RadioButton5.Checked = True And RadioButton2.Checked = True Then b = a * 10000 * (1 + 0.08 * 0.9) / (20 * 12) TextBox2.Text = Format(b, #.#) ElseIf RadioButton5.Checked = True And RadioButton3.Checked = True Then b = a * 10000 * (1 + 0.1 * 0.9) / (30 * 12) TextBox2.Text = Forma

19、t(b, #.#) End If End If End SubSelect语句计算题Public Class Form1 Inherits System.Windows.Forms.Form Dim strExp As String 存放产生的题目 Dim result As Single 存放计算机计算结果 Dim Nok, Nerror As Integer 存放对、错题数 通过产生随机数生成题目- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

20、Dim Num1%, Num2%, NOp%, Op$ Randomize() Num1 = Int(10 * Rnd() + 1) Num2 = Int(10 * Rnd() + 1) NOp = Int(4 * Rnd() + 1) Select Case NOp Case 1 Op = : result = Num1 + Num2 Case 2 Op = : result = Num1 - Num2 Case 3 Op = : result = Num1 * Num2 Case 4 Op = : result = Num1 / Num2 End Select strExp = Num1

21、& Op & Num2 & = Label1.Text = strExpEnd Sub- Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Num1%, Num2%, NOp%, Op$ If Val(TextBox1.Text) = result Then TextBox2.Text &= strExp & TextBox1.Text & Space(3) & & vbCrLf Nok += 1 Else TextBox2.Text

22、&= strExp & TextBox1.Text & Space(3) & & vbCrLf Nerror += 1 End If Form1_Load(Me, e) 产生下一道题目 Randomize() Num1 = Int(10 * Rnd() + 1) Num2 = Int(10 * Rnd() + 1) NOp = Int(4 * Rnd() + 1) Select Case NOp Case 1 Op = : result = Num1 + Num2 Case 2 Op = : result = Num1 - Num2 Case 3 Op = : result = Num1 *

23、Num2 Case 4 Op = : result = Num1 / Num2 End Select strExp = Num1 & Op & Num2 & = Label1.Text = strExp TextBox1.Text = End Sub- Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Label1.Text = TextBox2.Text &= - & vbCrLf TextBox2.Text &= 一共计算 & (Nok +

24、 Nerror) & 道题 & vbCrLf TextBox2.Text &= 得分： & CInt(Nok / (Nok + Nerror) * 100) & 分 & vbCrLf End Sub- Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged End SubEnd Class循环结构For 语句1+2+3+100Private Sub Button1_Click(ByVal sender As

25、System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim i%, sum% sum = 0 For i = 1 To 100 sum = sum + i Next Label1.Text = sum End Sub递推斐波纳契【例】有一数列，前两项是1、1，第三项是前二项之和，以后每一项都是前二项之和。即为：1、1、2、3、5、8、13、21。输出前30项递推：（1）初始值：F1=1、F2=1 （2）递推关系：Fn=Fn-1+Fn-2（n2） F1和F2始终作为前两个数，F3作为新产生的数，利用循环不断用新值代替

26、旧值。Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim F1 As Long, F2 As Long, F3 As Long Dim i As Integer F1 = 1 : F2 = 1 Label1.Text = Space(8) & F1 & Space(8) & F2 For i = 3 To 30 F3 = F1 + F2 Label1.Text &= Space(10 - Len(Str(F3) & F3 I

27、f i Mod 4 = 0 Then Label1.Text &= vbCrLf 每行显示4个数 F1 = F2 用新值代替旧值 F2 = F3 Next End Sub 最大最小值 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim max%, min%, x%, i%, sum% x = Int(Rnd() * 101 + 100) Label1.Text = x max = x : min = x : sum = 0

28、For i = 1 To 9 x = Int(Rnd() * 101 + 100) sum = sum + x Label1.Text &= Space(2) & x If x max Then max = x If x min Then min = x Next i Label1.Text &= vbCrLf Label1.Text &= vbCrLf & 最大值= & max Label1.Text &= vbCrLf & 最小值= & min Label1.Text &= vbCrLf & 平均值= & sum / 10 End Sub九九乘法表 Private Sub Form1_Lo

29、ad(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim se As String, i, j As Integer Label1.Text = Space(30) & 九九乘法表 & vbCrLf Label1.Text &= Space(30) & - & vbCrLf For i = 1 To 9 For j = 1 To 9 se = i & & j & = & i * j Label1.Text &= se & Space(8 - Len(se) Next j Label1.Text &= vbCrLf 换行 Next i End Sub Priva