魔导 发表于 2012-5-7 19:42:02

编程练习05

以下是小弟的代码，请各位前辈多多指教{:face (396):}
;~ 编写一个程序，其 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 发表于 2012-5-7 21:41:18

学习的态度值得学习

魔导 发表于 2012-5-7 22:08:08

回复 2# whitehead


    请{:face (460):}多多指教哦

whitehead 发表于 2012-5-7 22:10:51

回复whitehead


    请多多指教哦
魔导 发表于 2012-5-7 22:08 http://www.autoitx.com/images/common/back.gif

请您多多指教
页: [1]
查看完整版本: 编程练习05