汇编语言 5+8=13的编译

答案：MousePointer 属性示例
本例当在屏幕上画圆时将鼠标指针改变为沙漏标，然后在过程结束时将沙漏标恢复为鼠标指针。要试用此例，先将下面的代码粘贴到窗体的声明部分。按 F5 键 以运行该程序，然后单击窗体。

Private Sub Form_Click ()
   Dim I   ' 声明变量。
   ' 将鼠标指针改变为沙漏标。
   Screen.MousePointer = vbHourglass
   ' 设置随机的颜色和在窗体上画圆。
   For I = 0 To ScaleWidth Step 50      
      ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      Circle (I, ScaleHeight * Rnd), 400
   Next
   ' 返回鼠标指针到正常状态。
   Screen.MousePointer = vbDefault
End Sub

其他：汇编语言，有好多种。 mov ax,5
add ax,8 MOV AX,5
ADD AX,8 MOV AX,5
ADD AX,8

上一个：汇编语言
下一个：汇编语言程序改错题