大学VB 编程题 VB编程题， VB团队帮帮学弟， VB高手帮帮学弟，我很努力 希望可以详细写出步

Question

大学VB 编程题 VB编程题， VB团队帮帮学弟， VB高手帮帮学弟，我很努力 希望可以详细写出步骤，最好写在纸上，严格按照VB格式书写。 我在线等你，，， 谢谢

Answer 1

Private Sub Command1_Click()
Dim Ss As Single, Ss2 As Single, Ss_2 As Single
Ss = InputBox("请输入一个实数")
Ss2 = Format(Ss * Ss, "Fixed")
Ss_2 = Format(Sqr(Ss), "Fixed")
Print Ss & "的平方为：" & Ss2 & " 平方根为：" & Ss_2
End Sub追问

亲，你为什么不用Val函数？

为什么不用Val函数？

追答

因为已经定义Ss为Single，系统会自动转换，不需要Val.