请问那有语法错误呢？？

Question

Private Sub cmdstrat_Click()
Dim i As Integer, j As Integer
Dim a As Single
Dim strprize As String
For i = 1 To 3
    j = Int(10 * Rnd)
    strprize=strprize&j
    For a = 1 To 10000 Step 0.001
    Next a
    txtprize.Text = strprize
    txtprize.Refresh
Next i
End Sub
运行时提示有语法错误。
请多多指点

Answer 1

strprize=strprize&j
strprize=strprize & j

Answer 2

Private Sub cmdstrat_Click()
Dim i As Integer, j As Integer
Dim a As Single
Dim strprize As String
For i = 1 To 3
    j = Int(10 * Rnd)    strprize =s trprize & j‘这里
    For a = 1 To 10000 Step 0.001
    Next a
    txtprize.Text = strprize
    txtprize.Refresh
Next i
End Sub