求帮做vb题。真心不会啊

'不会是学生吧？给你最基础的代码，便于你理解
Private Sub Form_Load()
Form1.Caption = "点餐"
Frame1.Caption = "菜单"
Check1.Caption = "儿童套餐18元"
Check2.Caption = "标准套餐23元"
Check3.Caption = "商务套餐28元"
Label1 = "份"
Label2 = "份"
Label3 = "份"
Text1 = "": Text2 = "": Text3 = ""
End Sub
Private Sub Command1_Click()
Dim a!, b!, c!
If Check1.Value = 1 Then
a = 18 * Val(Text1)
Else
a = 0
End If
If Check2.Value = 1 Then
b = 23 * Val(Text2)
Else
b = 0
End If
If Check3.Value = 1 Then
c = 28 * Val(Text3)
Else
c = 0
End If
If a = 0 And b = 0 And c = 0 Then
MsgBox "请选择一项"
Else
MsgBox "一共" & a + b + c & "元"
End If
End Sub

追问编译错误 块If没有end if

追答没有你说的错误！

界面就如你所给出的，我用的是控件数组，三个复选框的名称分别为：Check1(0)、Check1(1)和Check1(2)，同样三个文本框也是用控件数组，名称分别为：Text1(0)、Text1(1)、Text1(2)，而且最初时这三个文本框均不可用，即Enabled属性为False，其它控件及窗体的属性可以从界面上看出来，代码如下：（如果需要不用控件数组，而用一般控件的方法，请联系）
Private Sub Check1_Click(Index As Integer)
If Check1(Index).Value = 1 Then
Text1(Index).Enabled = True
Text1(Index).SetFocus
Else
Text1(Index).Enabled = False
End If
End Sub
Private Sub Command1_Click()
Dim i As Integer　‘循环控制变量
Dim sum As Integer　'总钱数
sum = 0
For i = 0 To 2
If Check1(i).Value = 1 Then
Select Case i
Case 0
sum = sum + Val(Text1(0).Text) * 18
Case 1
sum = sum + Val(Text1(1).Text) * 23
Case 2
sum = sum + Val(Text1(2).Text) * 28
End Select
End If
Next i
MsgBox "一共" & Trim(Str(sum)) & "元"
End Sub追问Dim i As Integer　‘循环控制变量
这里说缺少语句结束怎么办？

追答你可以复制这一条，把Integer后面的内容先去掉，看是不是可以？这是一条定义变量的语句，应该没有什么问题。或者看你是不是输入时，把Integer中的第一个字母输入成L了，或者输入成1了，第一个字母是I(字母i)的大写。

本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。