Question

急求VB高手帮忙，请做一下这个程序填空题，做的好我给10分。明天考试，十万火急！！！

'【程序填空】
'-------------------------------------------------------

'题目：本程序执行功能为，命令按钮单击一次后，窗体上输出结果为：
'36
'25
'16
'9

'请在【】处填入正确的内容

'-------------------------------------------------------
Private Sub Command1_Click()
Dim xx(6) As Integer
Dim k%
Open App.Path & "\al.dat" For Output As #1
For I = 1 To 6
'**********SPACE**********
j = 【?】
Print #1, j
Next I
Close #1
Open App.Path & "\a1.dat" For Input As #2
k = 0
Do While Not EOF(2)
'**********SPACE**********
k = 【?】
Input #2, xx(k)
Loop
Close #2
'**********SPACE**********
For I = k To k / 2 Step【?】
Form1.Print xx(I)
Next I
End Sub

Answer 1

j = i^2
k=k+1
-1

追问

把每个空简单解释一下，分数就给你了！

追答

j = i^2 'i=1~6，j为1，4，9，16，25，36，
k=k+1 'k做累加，作为XX数组的下标，XX（1~6）存放读入的数据
-1 ‘DO循环结束 k=6,k/2=3，接下来的For循环为： I = 6 To 3，输出xx(6)...XX(3),所以 步长step=-1

Answer 2

j = i
k=k+1
For I = k To k / 2 Step -1

Answer 3

j = i^2
k=k+1
For I = k To k / 2 Step -1

Answer 4

Private Sub Form_Click()
Dim n As Integer, k As Integer, i As Integer, swit As Integer
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
'**********FOUND**********
swit = 0
'**********FOUND**********
While i <= k
If n Mod i = 0 Then
swit = 1
i = k + 1
Else
'**********FOUND**********
i = i + 1
End If
Wend
If swit = 0 Then
Print n;
End If
Next n
End Sub