如图所示，一个质量为m、带电量为+q的小球，以初速度v₀自h高度处水平抛出。不计空气阻力，重力加速度为g。

（1）若在空间竖直方向加一个匀强电场，发现小球水平抛出后做匀速直线运动，求该匀强电场的场强E的大小；

（2）若在空间再加一个垂直纸面向外的匀强磁场，小球水平抛出后恰沿圆弧轨迹运动，落地点P到抛出点的距离为h，求该磁场磁感应强度B的大小。

以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click()
Dim i%，j%，k%，t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 T0 200
b=True
k=2
J=Int(Sqr(i))
Do While k＜=j And b
If i Mod k=0 Then
b= (12)
End If
k= (13)
Loop
If b=True Then
t=t+1
Debug.Print i
End If
Next i
Debug.Print"t="；t
End Sub