大哥门 帮下啊～～！！

三、 读程填程题（共24分）
1．求100以内的素数之和，（每空2分，共10分）
Private Sub Command1_Click()
Dim flag As Boolean
s = 0
For i = 2 To 100
flag = ¬¬¬¬False
For j = 2 To i – 1
If ____________ Then
__________________
End If
Next j
If flag =_________ Then ______________
Next i
MsgBox (___________)
End Sub
2．在控件数组Picture(0)、Picture(1)中移动图片，要求图片可以在这两个图片框中移动，按“->”向右移动，按“<-”向左移动，“->”和“<-”的keycode分别为39和37，请补全程序。（其他每空2分，共14分）
Dim you(1) As Boolean
Private Sub Form_Load()
Picture1(0).Picture = LoadPicture("e:\a.bmp")
you(0) = ________
you(1) = ________
End Sub
Private Sub Picture1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If Index = 0 Then
If KeyCode = 39 And __________ Then
Picture1(1).Picture = ___________
Picture1(0).Picture =___________
you(0) = _______: you(1) =________
End If