Question

角度表示成度分秒的格式代码。VB语言

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励20（财富值+成长值）

Answer 1

Private Sub Command1_Click()

x = Val(InputBox("请输入几度："))

a = Int(x)

b = Int((x - a) * 60)

c = Round((x - a - b / 60) * 3600, 2)

MsgBox x & "度=" & a & "度" & b & "分" & c & "秒"

End Sub

追问

能再向你请教几个问题吗