已解决VB程序语言运行结果~

提问者：qq_117711177  |  浏览次  |  提问时间：2017-01-09  |  回答数量：1

请各位老鸟们帮忙看看下面几个程序运行后的结果，或者其中存在的问题！谢谢！1、Private Sub Command1_Click()Dim i, j, k, s, t As IntegerPrintFor i = 1 To 9For j = 0 To 9For k = 0 To 9s = i * 100 + j * 10 + kt = i ^ 3 + j ^ 3 + k ^ 3If s = t ThenPrint s & \",\";End IfNext kNext jNext iEnd Sub2、Private Sub Command2_Click()Dim s, i, j, k As IntegerPrintFor s = 100 To 999i = s \\ 100j = s \\ 10 Mod 10k = s Mod 10If s = i ^ 3 + j ^ 3 + k ^ 3 ThenPrint s & \",\";End IfNext sEnd Sub3、Private Sub Command3_Click()Dim s As IntegerFor s =