求1到2000之内的素数并放到列表框中，为什么我输出结果都是0

完全看不懂你的代码想干啥……
这题根本没必要用数组（其实有种算法叫筛法，那个倒是可以用数组做），函数功能应该是判断参数x是否为素数，函数类型应该是Boolean（返回True表示是素数，False表示不是素数），主调过程循环调用该函数依次判断每个数，如果是素数则添加到列表框

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
List1.Clear
For i = 1 To 2000
If IsSu(i) Then List1.AddItem i
Next i
End Sub
Function IsSu(ByVal IsSuX As Integer) As Boolean '判断是否为素数
Dim IsSuA As Integer
If IsSuX = 1 Then
IsSu = False
Exit Function
End If
IsSu = True
For IsSuA = 2 To Int(Sqr(IsSuX))
If IsSuX Mod IsSuA = 0 Then
IsSu = False
Exit Function
End If
Next IsSuA
End Function

好的好的，谢谢大佬

还有这个，第一个倒三角我打不出来

Option Explicit
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 5
Print Space(i - 1);
For j = 1 To 11 - 2 * i
Print "*";
Next j
Print
Next i
End Sub

为什么我的图案变成了这样，还少一个空格？

哦哦，我找到出错的地方了，谢谢大佬