This HTML5 document contains 5 embedded RDF statements represented using HTML+Microdata notation.

The embedded RDF content will be recognized by any processor of HTML5 Microdata.

Subject Item

n2:

rdfs:label

实践 - 编写一个 Celestia 工具

rdfs:comment

先下载一个 Visual Basic（不要下精简版，否则功能不全，本来没有精简版的，精简版实际上是在原来的 Visual Basic 删除文件），安装好了之后，打开它，会出现新建工程窗口，双击“标准 EXE”。 点击左边控件栏里的按钮图标，然后在窗体上一直按左键（不要松开），再拖动，新建一个按钮。 双击窗体，按 Ctrl+A，再按BackSpace，再输入： Private Sub Form_Load() Command1.Caption = "生成赤经赤纬" '设置按钮标题 End Sub 返回到窗体，双击按钮。 输入： Private Sub Command1_Click() End Sub 再点击文件(F)——生成工程1.exe(K)...，即可编译程序，变成 EXE 可执行文件。

dcterms:subject

n4: n7:

n6:abstract

先下载一个 Visual Basic（不要下精简版，否则功能不全，本来没有精简版的，精简版实际上是在原来的 Visual Basic 删除文件），安装好了之后，打开它，会出现新建工程窗口，双击“标准 EXE”。 点击左边控件栏里的按钮图标，然后在窗体上一直按左键（不要松开），再拖动，新建一个按钮。 双击窗体，按 Ctrl+A，再按BackSpace，再输入： Private Sub Form_Load() Command1.Caption = "生成赤经赤纬" '设置按钮标题 End Sub 返回到窗体，双击按钮。 输入： Private Sub Command1_Click() Dim RA(3) As Single, Dec(3) As Single, rab As Integer, decb As Integer '定义RA、Dec的变量 RA(1) = （填写赤经的h） RA(2) = （填写赤经的m） RA(3) = （填写赤经的s） Dec(1) = （填写赤纬的d） Dec(2) = （填写赤纬的m） Dec(3) = （填写赤纬的s） rab = (RA(1) * 3600 + RA(2) * 60 + RA(3)) / 3600 * 15 '赤经计算 decb = (Dec(1) * 3600 + Dec(2) * 60 + Dec(3)) / 3600 '赤纬计算 MsgBox "RA " + Str(rab) + Chr(13) + Chr(10) + "Dec " + Str(decb) '弹出消息框 End Sub 再点击文件(F)——生成工程1.exe(K)...，即可编译程序，变成 EXE 可执行文件。