230问答网 > 我刚学编程，下面计算奖牌总数的程序，麻烦高手帮忙看下有没有哪里错误？VB的，谢谢！！

我刚学编程，下面计算奖牌总数的程序，麻烦高手帮忙看下有没有哪里错误？VB的，谢谢！！

2024-12-31 12:12:42

推荐回答（4个）

回答1：

Sub test()
Dim j As Integer
Dim y As Integer
Dim t As Integer
Dim z As Integer
j = InputBox("金牌数:")
y = InputBox("银牌数：")
t = InputBox("铜牌数:")
z = j + y + t
MsgBox "总奖牌数：" & z
End Sub

回答2：

j = val(InPutBox ("金牌数:"))
y = val(InPutBox ("银牌数:"))
t = val(InPutBox ("铜牌数:"))

回答3：

你好！inputbox返回的是String类型，而你之前j,y,t,z定义的是Integer类型，两者类型不一致。把上面的也改成String应该没有问题。

回答4：

inputbox返回的是String类型，而j,y,t,z定义的是Integer类型