level 15
你这是统计从1到【文本框的字符数】这个范围内有多少素数，不是文本框里有几个素数
2020年07月04日 08点07分
2
那现在要怎么改呀
2020年07月04日 09点07分
level 15
'如果数组a定义为Dim a(1 To 20) As Integer，那么代码可以这样改：
For i = 1 To Len(Text1.Text) '改成 For i = 1 To 20
If IsPrime(i) = True Then '改成 If IsPrime(a(i)) Then
2020年07月04日 09点07分
3
