我需要怎么做才可以全部循环d次，for=d？

Question

For 3
Dim a,b,c
b = 随机数(3)'
Select Case b
Case 1:
a=ReadUIConfig ("输入框1", "内容")
Case 2:
a=ReadUIConfig ("输入框2", "内容")
Case 3:
a=ReadUIConfig ("输入框3", "内容")
End Select
InputText a

Function 随机数(最大随机数)
随机数 = Int((最大随机数 - 1 + 1) * Rnd() + 1)
End Function

Delay 1000
Dim intX, intY
FindPic 0, 0, 0, 0, "Attachment:zz.png", "000000", 2, 0.9, intX, intY
If intX > -1 And intY > -1 Then 
Tap intX,intY
End If

c = ReadUIConfig("输入框4", "内容")
Delay c
Next
循环三次，可是在Function 随机数位置报错了，说next必须放到function前面。

Answer 1

function也就是函数，应该把函数移动到for循环的外面