首先想问楼主一个问题，是“确保两个数种较大的一个数作减数”，还是“确保两个数种较大的一个数作被减数”，结果为负么先随机生成两个数 dim a，b as integer a=20*rnd+1 b=20*rnd+1 if ab Tex；第1题 Private Sub Command1_ClickDim a， b， c As Integer a = Text1Text b = Text2Text c = Text3Text If b * b 4 * a * c lt 0 Then Print quot该方程无解quotElseIf b * b 4 * a *；用VB打开源代码，单步执行，看执行到什么地方弹出的错误提示，从而发现需要修改的地方当然有很大可能是程序引用了第三方控件或对象，已将错误封装到控件和对象中了，这就需要查找相应经过破解的控件或对象了。
这样基本的工作就完成了，剩下的就是在代码中进行控制了1打开窗口这里我用的是C＃的代码例子，VB应该差距不是很大下面代码是在容器Form中执行的打开子窗口的方法Form form = new FormformMdiParent =。
private intexes as integer private ExitCode as Long private pid as integer 在窗口启动事件里form_load strexes=quotcaexecbexeccexequotintexes=0 ExitCode=0 pid=0 在计时器里timer_time，可以设置1秒。
再记OA与x轴夹角θ，OA与y轴夹角φ，显然cotφ=tanθ=1a所以待求扇形圆心角φ=arctana单位为弧度所以得到扇形面积为a#178+1arctana2 所以定积分的结果为a2+a#178+1arc；貌似很难，帮你不了。
