文本框式text1，标签是label1，产生按钮是c，判断是p。下面是代码：Public a As IntegerPrivate Sub c_Click()Randomizea = Int(Rnd() * 900) + 100Text1.Text = aEnd SubPrivate Sub p_Click()Dim b, c, d As Integer b = a \ 100 c = a \ 10 - (a \ 100) * 10 d = a - (a \ 10) * 10If b * b * b + c * c * c + d * d * d = a Then Label1.Caption = "是...
