请高手看看我这段vb代码哪错了？？

来源：百度知道 编辑：UC知道 时间：2024/05/17 22:07:54
我初学vb，请不要见笑啊

Private Sub Command1_Click()
score1 = InputBox("请输入您的语文成绩")
score2 = InputBox("请输入您的英语成绩")
score3 = InputBox("请输入您的数学成绩")
score4 = InputBox("请输入您的化学成绩")
score5 = InputBox("请输入您的物理成绩")
score6 = InputBox("请输入您的生物成绩")
Amount = 6
MsgBox "您的平均分是" + CStr(score1 / Amount + score2 / Amount + score3 / Amount + score4 / Amount + score5 / amiunt + score6 / Amount) + "分"
End Sub

根据数学法则,楼上的算法与楼主的算法是等效的,并不是算法的错误

根于编译器的提示,错误为除数为0,我测试过,把输出语句中的除数改为6就可以了,而使用变量amount就不行,原因我还在测试中,如果有其他朋友能说明更好,但不是算法的错误

晕,书写错误........
在score5 / amiunt 中,除数的书写错误,除数变量应为amount...

造成这样的错误主要原因是
1.应该使用变量前先定义.这应该养成习惯
2.在程序第一行前加上Option Explicit ,这句话规定了只有定义的变量才能被认识,这样就很方便的找出书写错误

你全部加起来再除以Amount，这样才是平均分啊。