Visual Basic作业-我的代码无法正常工作. [英] Visual Basic Assignment - I'm having difficulties getting my code to work.

问题描述

你好！我目前正在开发一个视觉基础程序，但似乎无法正常工作.我已经尝试了我所知道的一切.也许我只是没有看到它.现在我很不耐烦.请帮我.我将在下面粘贴我的代码:

Hello! I''m currently working on a visual basic program but i just can''t seem to get it working. I''ve tried everything that i know. Maybe i''m just not seeing it. It has me very impatient now. Please help me. I''ll paste my code below:

Private Sub chktop_Click(Index As Integer)
'read toppings
PizzaTop = chktop(Index).Caption
End Sub

Private Sub cmdBuild_Click()
'message box
Dim message As String
Dim message2 As String
Dim I As Integer
Dim b As Double
Dim e As Double
Dim PizzaSize As String
Dim PizzaCrust As String
Dim PizzaWhere As String

If PizzaSize = small Then
b = 17
message = "Small" + "$17.00" + vbCr
End If
If PizzaSize = medium Then
b = 22
message = "Medium" + "$22.00" + vbCr
End If
If PizzaSize = large Then
b = 27
message = "Large" + "$27.00" + vbCr
End If
If PizzaWhere = eatin Then
b = b + 5
message = message + "EatIn" + "$5.00" + vbCr
Else
If PizzaWhere = takeout Then
message = message + "TakeOut" + "$0.00" + vbCr
End If
End If

message = message + PizzaCrust + vbCr

For I = 0 To 6
If chktop(I).Value = vbChecked Then message = message + chktop(I).Caption + "$1.25" + vbCr
If chktop(I).Value = vbChecked Then b = b + 1.25
Next I
e = (b * 0.125) + b
message2 = message & "Your Total is " & e
MsgBox message2, vbOKOnly, "Your Pizza"

End Sub

Private Sub cmdExit_Click()
End
End Sub

Private Sub Form_Load()
'initialize pizza parameters
PizzaSize = "Small"
PizzaCrust = "Thin Crust"
PizzaWhere = "Eat In"
End Sub

Private Sub optCrust_Click(Index As Integer)
'read crust
PizzaCrust = optCrust(Index).Caption
End Sub

Private Sub optSize_Click(Index As Integer)
'read pizza size
PizzaSize = optSize(Index).Caption
End Sub

Private Sub optWhere_Click(Index As Integer)
'read Pizza eating location
PizzaWhere = optWhere(Index).Caption
End Sub

推荐答案

17.00" + vbCr 结束 如果 如果 PizzaSize =中然后 b = 22 message = " + "

17.00" + vbCr End If If PizzaSize = medium Then b = 22 message = "Medium" + "

22.00" + vbCr 结束 如果 如果 PizzaSize =大然后 b = 27 message = " + "

22.00" + vbCr End If If PizzaSize = large Then b = 27 message = "Large" + "

27.00" + vbCr 结束 如果 如果 PizzaWhere = eatin 然后 b = b + 5 message =消息+ " + "

27.00" + vbCr End If If PizzaWhere = eatin Then b = b + 5 message = message + "EatIn" + "

这篇关于Visual Basic作业-我的代码无法正常工作.的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！