'建一个Command1控件,两个Text控件,Text控件宽度和高度都拉大一点,且MultiLine属性均设为TruePrivate Function prime(ByVal x As Integer) As Boolean '判断是否素数Dim i As IntegerFor i = 2 To Sqr(x)If x Mod i = 0 ThenExit FunctionEnd IfNext iprime = TrueIf x < 2 Then prime = FalseEnd FunctionPrivate Sub Command1_Click()Dim a(1 To 100) A...
'一个TextBox,设置其Multiline属性为True'一个CommandButtonFunction SU(ByVal n As Integer) As Boolean SU = True For i = 2 To Fix(Sqr(n)) If n Mod i = 0 Then SU = False Exit Func...