[顯示] [隱藏]

1. 輸入一個圓的半徑，計算並輸出其「圓周長」及「面積」。

2.輸入一個學生的國文、英文及數學成績，計算及輸出其總分及平均分數。

3.計一個「收銀機」的表單與程式，可以計算「書款」及「應找金額」。  
(1)先輸入「買書數量」與「單價」後。按「會員價」鈕，就以八折計算「書款」；按「非會員價」鈕，就以九折計算「書款」；並顯示在「書款」右邊的「標籤」中。
(2)根據客人付款金額輸入「收款」右邊的「標籤」中，然後按「應找金額」鈕，就計算及顯示出「應找金額」（應找金額=收款-書款）。
(3)輸入部份用「文字方塊」，輸出部份用「標籤」。

你的答案.希望我沒錯...
1.
  Public Class Form1
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim r, k As Double
          k = 3.1416
          r = Val(InputBox("請輸入半徑"))
          MsgBox("面積= " & r * r * k)
          MsgBox("周長= " & 2 * r * k)
      End Sub
  End Class

2.
  Public Class Form2
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim Ch, Ma, Eg As Double
          Ch = Val(TextBox1.Text)
          Ma = Val(TextBox2.Text)
          Eg = Val(TextBox3.Text)
          TextBox4.Text = Ch + Ma + Eg '總分
          TextBox5.Text = (Ch + Ma + Eg) / 3 '平均
      End Sub
  End Class

3.
等等喔.....

  Public Class Form3
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
          Dim price, many, money As Integer
          Dim k As Boolean
          price = Val(TextBox1.Text) '單價
          many = Val(TextBox2.Text) '數量
          money = Val(TextBox3.Text) '付款
          k = CheckBox1.Checked '會員
          If k = True Then
              MsgBox(money - price * many * 0.8) '找錢-會員價
          Else
              MsgBox(money - price * many * 0.9) '找錢
            End If
      End Sub
  End Class

..........這算...基本功喔....要....加油哪.......

[ 本帖最後由 上吧~!帕克~! 於 2007-11-2 10:07 PM 編輯 ]

感謝你的回覆


謝謝你的幫忙