已解決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 =