Leave a Message...
    • Name： dfg10601
    • Subject：untitled
    • Time：2009-12-30 15:39:31  prosecute
    • Message：要先在Form1 插入亂數
      然後在按鈕打這些↓
      Dim v As Integer, ans As Integer
      ans = Val(vans.Text)
      v = Val(TextBox1.Text)
      vcnt.Text = Val(vcnt.Text) + 1

      If v = ans Then
      MsgBox("答對了,您共猜了 " & vcnt.Text & " 次。")
      End
      Else
      If v < ans Then
      vmin.Text = v
      Else
      vmax.Text = v

      End If
      TextBox1.Focus()
      TextBox1.SelectAll()

      End If

      End Sub

      6-30
    • Name： taiwankobe12
    • Subject：untitled
    • Time：2009-12-16 16:40:52  prosecute
    • Message：Dim 總分 As Double
      Dim 成績陣列() As String = Split(TextBox1.Text, ",")
      Dim 筆數 = UBound(成績陣列)
      For Each s In 成績陣列
      總分 = 總分 + Val(s)


      Next
      MsgBox("成績筆數:" & 筆數 & vbCrLf & _
      "總成績為:" & 總分 & vbCrLf & _
      "平均成績:" & Math.Round(總分 / 筆數, 2))


      8-18
    • Name： taiwankobe12
    • Subject：untitled
    • Time：2009-12-16 16:40:24  prosecute
    • Message：Dim 週() As String = {"一 ", "二", "三", "四", "五", "六", "日"}


      Dim n As Integer
      Do
      n = Val(InputBox("請輸入1-7的數字"))

      If n >= 1 And n <= 7 Then
      MsgBox("-------------> 星期" & 週(n - 1))
      Else
      Exit Do

      End If

      Loop



      8-16
    • Name： taiwankobe12
    • Subject：untitled
    • Time：2009-12-16 15:40:57  prosecute
    • Message：Public Class Form1
      Dim acc() = {"joy", "sue", "anna", "john", "ken"}
      Dim pwd() = {"1", "2", "3", "4"}




      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim pass As Boolean = False
      For i As Integer = 0 To UBound(acc)
      If LCase(TextBox1.Text) = acc(i) Then
      If TextBox2.Text = pwd(i) Then pass = True
      Exit For

      End If
      Next
      If pass Then
      MsgBox("歡迎登入", , "通過")
      End
      Else
      MsgBox("帳號或密碼錯誤", , "錯誤")
      TextBox1.Text = ""
      TextBox2.Text = ""
      TextBox1.Focus()

      End If
      End Sub
      End Class

      8-14
    • Name： taiwankobe12
    • Subject：untitled
    • Time：2009-12-16 15:20:49  prosecute
    • Message：Dim 英文季節() = {"spring", "summer", "autumn", "winter"}
      Label1.Text = ""
      For i As Integer = 0 To UBound(中文季節)
      1: Label1.Text = Label1.Text & 中文季節(i) & " : " & 英文季節(i)
      Next

      8-12
    • Name： taiwankobe12
    • Subject：untitled
    • Time：2009-12-16 14:30:57  prosecute
    • Message：Dim x(4), i, max, min As Integer
      For i = 0 To 4
      x(i) = InputBox("x(" & i & ")")

      Next
      For i = 4 To 0 Step -1
      MsgBox("x(" & i & ")" & " =" & x(i))


      Next
      min = x(0)
      max = x(0)
      For i = 1 To 4
      If x(i) > max Then
      max = x(i)

      End If
      If x(i) < min Then
      min = x(i)
      End If
      Next
      MsgBox("最大值=" & max & "最小值=" & min)

      8-8
    • Name： Sealed
    • Subject：Sealed
    • Time：2009-12-02 15:56:38
    • Message：Sealed
    • Name： dfg10601
    • Subject：untitled
    • Time：2009-12-01 10:40:18  prosecute
    • Message：打在Button1

      Dim a As Integer, b As String, c As String

      a = Val(InputBox("請輸入年齡", "可觀賞哪些電影等級", ))

      Select Case a

      Case 1 To 6
      b = "普遍級"
      Case 6 To 11
      b = "保護級"
      c = "補充說明：需父母、師長或成年親友陪同觀賞"
      Case 12 To 17
      b = "輔導級"
      c = "補充說明：需父母、師長或輔導觀賞"
      Case Is > 18
      b = "限制級"

      End Select

      MsgBox("你可觀賞的等級為 " & b & vbCrLf & c)


      6-53 第11題
    • Name： dfg10601
    • Subject：untitled
    • Time：2009-12-01 10:18:37  prosecute
    • Message：打在Button1

      Dim a As Integer, b As String

      a = Val(InputBox("請輸入年齡", "可觀賞哪些電影等級", ))

      Select Case a

      Case 1 To 6
      b = "普遍級"
      Case 6 To 11
      b = "保護級"
      Case 12 To 17
      b = "輔導級"
      Case Is > 18
      b = "限制級"

      End Select

      MsgBox("你可觀賞的等級為 " & b)


      6-53 第10題
    • Name： dfg10601
    • Subject：untitled
    • Time：2009-12-01 09:59:14  prosecute
    • Message：打在 Button1

      Dim a As Integer, b As Integer
      a = Val(InputBox("請輸入件數", "購買紀念T桖", ))

      Select Case a

      Case 2
      b = a * 200 * 0.95
      Case 3 To 5
      b = a * 200 * 0.9
      Case 6 To 10
      b = a * 200 * 0.8
      Case Is > 10
      b = a * 200 * 0.7

      End Select

      MsgBox("需花費 " & b & " 元")

      6-53 第九題