上机考试不用愁全国计算机二级VB上机考试题库及答案本.pdfVIP

第一、Const y0 = 1110, x0 = 1100, radius = 750 Private Function oncircle(X As Single, Y As Single As Boolean precision = 55000 If Abs((X - xO * (X -xO + (yO - Y * (yO - Y - radius * radius precision Then oncircle = True Else