这段程序是关于小学四则运算的编程，不知道哪里错了

网友回答

编程模拟一个简单的测试小学生进行加，减，乘，除四则运算是否正确的程...答：刚开始错了 重新修改 经过调试 可行 #include #include void main() { long a,b,d,s[5],sum; int num=0; char c; s[1]='+'; s[2]='-'; s[3]='*'; s[4]='/'; printf('Please input the first number:\n'); //输入a scanf('%d',&a); printf('Pleas...

网友回答

DimresultAsInteger,okAsInteger,errorlAsInteger PrivateSubCommand1_Click()picture1.Print"------"picture1.Printok&"对，"&errorl&"错！得分："&Int(ok/(ok+errorl)*100)EndSub PrivateSubCommand2_Click()EndEndSub PrivateSubForm_Load()Form1.Caption="小学四则运算"Form1.AutoRedraw=TrueDiminumb1AsIntegerDiminumb2AsIntegerDimifuAsIntegerDimfuAsStringRandomizeinumb1=Int(Rnd*(10-1+1)+1)inumb2=Int(Rnd*(10-1+1)+1)ifu=Int(Rnd*(4-1+1)+1)SelectCaseifuCase1fu="+":result=inumb1+inumb2Case2fu="-":result=inumb1-inumb2Andinumb1>=inumb2Case3fu="*":result=inumb1*inumb2Case4fu="/":result=inumb1/inumb2CaseElseEndSelectLabel1.Caption=inumb1&fu&inumb2&"="EndSub PrivateSubText1_KeyPress(KeyAsciiAsInteger)IfKeyAscii=13ThenIfresult=Val(Text1.Text)Thenok=ok+1picture1.PrintLabel1.Caption&Text1.Text&"Y"Elseerrorl=errorl+1picture1.PrintLabel1.Caption&Text1.Text&"N"EndIfText1.Text=""CallForm_LoadText1.SetFocusEndIfEndSub 程序语法上无错 但运行时,当ok和errorl都为0时,会出错 picture1.Printok&"对，"&errorl&"错！得分："&Int(ok/(ok+errorl)*100)