最佳答案:Private Function prime(ByVal n As Long) As IntegerDim k As Integerprime = FalseF
最佳答案:假设文本框为TEXT1,标签为LABEL1,函数代码如下:public sub testnum()dim x as longx=cint(text1.text)