用 InpuBox 函数输入一个 4 位的正整数,然后逆序输出,例如输入的是 1234 ,则逆序为 4321 ,如右图所示。计算两个数“立方差的绝对值”(结果保留整数部分)及“和的平方根”(结果四舍五入保留 2 位小数)。 〖提示〗 1 利用 mod 和 \ 运算符分离出 4 个数,然后再连接成逆序数。 2利用 Round(N1 , N2) 对 N1 进行四舍五入处理,保留 N2 位小数。 代码如下: Private Sub Command1_Click() Label3.Caption = InputBox("请输入:") End Sub Private Sub Command2_Click() 【1】 = Val(Label3.Caption) '把取到num中,以下各行不能用Val(Label3.Caption) num1 = 【2】 '算法:个位为对10求余(求模) num10 = 【3】 ' 十位为整除10再对10求余(求模),百位千位类推 num100 = 【4】 num1000 = 【5】 Text1.Text = 【6】 '把各位逆序连接起来 End Sub '以下可以使用Val(Label3.Caption) Private Sub Command3_Click() Text2.Text = 【7】 '立方差的绝对值 Text3.Text = 【8】 '和的平方根,用format保留两位小数 End Sub