编程练习05

魔导

以下是小弟的代码，请各位前辈多多指教

;~ 编写一个程序，其 main() 调用一个用户自定义的函数（以光年值为参数，并返回对应天文单位的值）。
;~ 改程序按下面的格式要求用户输入光年值，并显示结果：
;~ Enter the Number of light years: 4.2
;~ 4.2 light years = 265608 astronomical units.
;~ 天文单位是从地球太阳的平均距离（约150000000千米或93000000英里），
;~ 光年是光一年走的距离（约10万亿千米或6万亿英里。）
;~ 请使用double类型，转换公式为：
;~ 1光年 = 63540 天文单位
$Form1 = GUICreate("练习",200,150,-1,-1)
GUICtrlCreateLabel("光年：",5,2)
$input = GUICtrlCreateInput("",65,2,80,15)
$button = GUICtrlCreateButton("确定",60,40,30,20)
GUISetState()
While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case -3
                        Exit
                                        Case $button
                                        $Rinput = GUICtrlRead($input)
                                        $ma = '天文单位：'
                                        $ma &= 63540*$Rinput
                                        If 1 = StringIsFloat($Rinput) Then
                                        MsgBox(0,'单位转换结果','Enter the Number of light years: '&$Rinput _
                                        &@CRLF&$Rinput&' light years = '&$ma&' astronomical units.')
                                        Else
                                MsgBox(0,'提示','请输入一个浮点数（带小数点的数值）')
                                EndIf
                EndSwitch
wend

whitehead

学习的态度值得学习

魔导

回复 2# whitehead


    请多多指教哦

whitehead

回复  whitehead


    请多多指教哦
魔导 发表于 2012-5-7 22:08

请您多多指教