. "\u5B9E\u8DF5 - \u7F16\u5199\u4E00\u4E2A Celestia \u5DE5\u5177"@zh . "\u5148\u4E0B\u8F7D\u4E00\u4E2A Visual Basic\uFF08\u4E0D\u8981\u4E0B\u7CBE\u7B80\u7248\uFF0C\u5426\u5219\u529F\u80FD\u4E0D\u5168\uFF0C\u672C\u6765\u6CA1\u6709\u7CBE\u7B80\u7248\u7684\uFF0C\u7CBE\u7B80\u7248\u5B9E\u9645\u4E0A\u662F\u5728\u539F\u6765\u7684 Visual Basic \u5220\u9664\u6587\u4EF6\uFF09\uFF0C\u5B89\u88C5\u597D\u4E86\u4E4B\u540E\uFF0C\u6253\u5F00\u5B83\uFF0C\u4F1A\u51FA\u73B0\u65B0\u5EFA\u5DE5\u7A0B\u7A97\u53E3\uFF0C\u53CC\u51FB\u201C\u6807\u51C6 EXE\u201D\u3002 \u70B9\u51FB\u5DE6\u8FB9\u63A7\u4EF6\u680F\u91CC\u7684\u6309\u94AE\u56FE\u6807\uFF0C\u7136\u540E\u5728\u7A97\u4F53\u4E0A\u4E00\u76F4\u6309\u5DE6\u952E\uFF08\u4E0D\u8981\u677E\u5F00\uFF09\uFF0C\u518D\u62D6\u52A8\uFF0C\u65B0\u5EFA\u4E00\u4E2A\u6309\u94AE\u3002 \u53CC\u51FB\u7A97\u4F53\uFF0C\u6309 Ctrl+A\uFF0C\u518D\u6309BackSpace\uFF0C\u518D\u8F93\u5165\uFF1A Private Sub Form_Load() Command1.Caption = \"\u751F\u6210\u8D64\u7ECF\u8D64\u7EAC\" '\u8BBE\u7F6E\u6309\u94AE\u6807\u9898 End Sub \u8FD4\u56DE\u5230\u7A97\u4F53\uFF0C\u53CC\u51FB\u6309\u94AE\u3002 \u8F93\u5165\uFF1A Private Sub Command1_Click() Dim RA(3) As Single, Dec(3) As Single, rab As Integer, decb As Integer '\u5B9A\u4E49RA\u3001Dec\u7684\u53D8\u91CF RA(1) = \uFF08\u586B\u5199\u8D64\u7ECF\u7684h\uFF09 RA(2) = \uFF08\u586B\u5199\u8D64\u7ECF\u7684m\uFF09 RA(3) = \uFF08\u586B\u5199\u8D64\u7ECF\u7684s\uFF09 Dec(1) = \uFF08\u586B\u5199\u8D64\u7EAC\u7684d\uFF09 Dec(2) = \uFF08\u586B\u5199\u8D64\u7EAC\u7684m\uFF09 Dec(3) = \uFF08\u586B\u5199\u8D64\u7EAC\u7684s\uFF09 rab = (RA(1) * 3600 + RA(2) * 60 + RA(3)) / 3600 * 15 '\u8D64\u7ECF\u8BA1\u7B97 decb = (Dec(1) * 3600 + Dec(2) * 60 + Dec(3)) / 3600 '\u8D64\u7EAC\u8BA1\u7B97 MsgBox \"RA \" + Str(rab) + Chr(13) + Chr(10) + \"Dec \" + Str(decb) '\u5F39\u51FA\u6D88\u606F\u6846 End Sub \u518D\u70B9\u51FB\u6587\u4EF6(F)\u2014\u2014\u751F\u6210\u5DE5\u7A0B1.exe(K)...\uFF0C\u5373\u53EF\u7F16\u8BD1\u7A0B\u5E8F\uFF0C\u53D8\u6210 EXE \u53EF\u6267\u884C\u6587\u4EF6\u3002"@zh . "\u5148\u4E0B\u8F7D\u4E00\u4E2A Visual Basic\uFF08\u4E0D\u8981\u4E0B\u7CBE\u7B80\u7248\uFF0C\u5426\u5219\u529F\u80FD\u4E0D\u5168\uFF0C\u672C\u6765\u6CA1\u6709\u7CBE\u7B80\u7248\u7684\uFF0C\u7CBE\u7B80\u7248\u5B9E\u9645\u4E0A\u662F\u5728\u539F\u6765\u7684 Visual Basic \u5220\u9664\u6587\u4EF6\uFF09\uFF0C\u5B89\u88C5\u597D\u4E86\u4E4B\u540E\uFF0C\u6253\u5F00\u5B83\uFF0C\u4F1A\u51FA\u73B0\u65B0\u5EFA\u5DE5\u7A0B\u7A97\u53E3\uFF0C\u53CC\u51FB\u201C\u6807\u51C6 EXE\u201D\u3002 \u70B9\u51FB\u5DE6\u8FB9\u63A7\u4EF6\u680F\u91CC\u7684\u6309\u94AE\u56FE\u6807\uFF0C\u7136\u540E\u5728\u7A97\u4F53\u4E0A\u4E00\u76F4\u6309\u5DE6\u952E\uFF08\u4E0D\u8981\u677E\u5F00\uFF09\uFF0C\u518D\u62D6\u52A8\uFF0C\u65B0\u5EFA\u4E00\u4E2A\u6309\u94AE\u3002 \u53CC\u51FB\u7A97\u4F53\uFF0C\u6309 Ctrl+A\uFF0C\u518D\u6309BackSpace\uFF0C\u518D\u8F93\u5165\uFF1A Private Sub Form_Load() Command1.Caption = \"\u751F\u6210\u8D64\u7ECF\u8D64\u7EAC\" '\u8BBE\u7F6E\u6309\u94AE\u6807\u9898 End Sub \u8FD4\u56DE\u5230\u7A97\u4F53\uFF0C\u53CC\u51FB\u6309\u94AE\u3002 \u8F93\u5165\uFF1A Private Sub Command1_Click() End Sub \u518D\u70B9\u51FB\u6587\u4EF6(F)\u2014\u2014\u751F\u6210\u5DE5\u7A0B1.exe(K)...\uFF0C\u5373\u53EF\u7F16\u8BD1\u7A0B\u5E8F\uFF0C\u53D8\u6210 EXE \u53EF\u6267\u884C\u6587\u4EF6\u3002"@zh . .