VB程序问题 关于窗体显示的内容 如何到text框中
DimxAsInteger,aAsInteger,bAsInteger,cAsIntegerForx=100To999a=xMod10b=(x\10)Mod10c=x\1...
Dim x As Integer, a As Integer, b As Integer, c As Integer
For x = 100 To 999
a = x Mod 10
b = (x \ 10) Mod 10
c = x \ 100
If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x
Next x
这个程序 谁能帮我写个后面的 就是让水仙花数显示在一个text框内 很感谢~~ 高手指点一下吧 展开
For x = 100 To 999
a = x Mod 10
b = (x \ 10) Mod 10
c = x \ 100
If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x
Next x
这个程序 谁能帮我写个后面的 就是让水仙花数显示在一个text框内 很感谢~~ 高手指点一下吧 展开
2个回答
展开全部
If x = a ^ 3 + b ^ 3 + c ^ 3 Then Print x 改为
If x = a ^ 3 + b ^ 3 + c ^ 3 Then
text1.text=text1.text & x & space(1)
end if
If x = a ^ 3 + b ^ 3 + c ^ 3 Then
text1.text=text1.text & x & space(1)
end if
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
