Private Sub Command1_Click()Dim a, b, c As IntegerDim maxRandomizea = Int(900 * Rnd + 100)b = Int(900 * Rnd + 100)c = Int(900 * Rnd + 100)Print a, b, cmax = aIf b > max Then max = bIf c > max Then max = cPrint "最大数是"; maxEnd SubPrivate Sub Command1_Click()Dim a As Integera = Val(InputBox("输入一个整数")...