答案: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 ORG 1000H
MOV A,#05H;把05给A
ADD A,#08H;把05+08=13给A
DA A ;把13给A
SJMP $
END 汇编语言,有好多种。 mov ax,5
add ax,8 MOV AX,5
ADD AX,8 MOV AX,5
ADD AX,8
上一个:学汇编语言需要什么基础啊
下一个:用汇编语言编程