浏览器的制作先安装一个部件下面这个空白处是那个小球拉出来的谨记123Private Submand1.Click()Dim dizhilan As StringDim i As Integerdizhilan = Trimbo1.Text)If(dizhilan14) <> . Thendizhilan = :. dizhilanEnd IfWeb