vb编程求助，帮我检查下我写的程序的错误，老是提示类型不正确，急，在线等答案，可加分。