計算條件成本

Question

在Visual Basic中，有一個示例告訴我，如果複印中心在前100份副本上收費5美分，在100份副本後每增加一份副本收取3美分費用，則必須計算副本成本，然後在文本框中顯示成本。

這是我迄今爲止

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
     Dim firsthun As Double 
     Dim plushun As Double 
     If firsthun <= 100 Then '5 cents per copy' 

     End If 

     If plushun >= 100 Then 'add 3 cents more' 

     End If 
     TextBox2.Text = 

Answer 1

我認爲這是你在找什麼：

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click 
    Dim copies As Integer = TextBox1.Text 
    Dim cost As Double = Nothing 

    If copies <= 100 Then '5 cents per copy' 
     cost = copies * 0.05 
    ElseIf copies > 100 Then 'add 3 cents more' 
     cost = 5 + (copies - 100) * 0.03 '5$ for the first 100, plus $0.03 for every copy after 100 
    End If 

    TextBox2.Text = Math.Round(cost, 2).ToString 
End Sub 

在這裏，我已經創建了一個文本框TextBox1用戶輸入多少他們想要的副本。當他們點擊Button1時，它將計算該值，然後將其輸出到TextBox2，四捨五入到小數點後兩位。

請注意，如果用戶輸入除整數以外的任何值到TextBox1，程序將崩潰，因爲它無法將輸入的值轉換爲整數。您可能需要一個Try/Catch語句，如下所示：

Dim copies As Integer 

Try 
    copies = CInt(TextBox1.Text) 
Catch ex As Exception 
    MessageBox.Show("Please enter a valid amount!") 
End Try 

希望這有助於您！