已知线段AB的两端点坐标，可计算tgα_AB

下列程序运行后立即窗口输出的结果是 Private Sub Form_ClickO X="a":y="b" Z=1:u=2 Debug.x;y,z;u Debug.z;x,y;u End Sub A.a b 12 1 ab 2 B.ab 121 a b2C.ab 12 1a b2 D.ab 121a b2

已知直线 AB 两端点的坐标为 A(2,3),B(5,6).写出使直线 AB 以坐标原点为中心顺时针旋转 90 的变换矩阵，并求出变换后直线 AB 的坐标矩阵。

若已知两点的坐标为A(100，100)和B(150，50)，则直线AB的坐标方位角为()。

编写如下两个事件过程。

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

Print Chr(KeyCode)

End Sub

Private Sub Form_KeyPress(KeyAcii As Integer)

Print Chr(KeyAscii)

End Sub

在一般情况下(即不按住Shift键和锁定大写键时)运行程序,如果按"A"键,则程序输出的结果是

A．A A

B．a A

C．A

D．a a

设有如下过程： Private Sub Form. KeyDpwn(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form. KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 若把窗体的KeyPreview属性设置为True，程序运行后，如果按“A”键，则输出结果为（ ）。

A. A A

B. A B

C. A C

D. A D

已知A、B两点的坐标为 XA=1011.358m, YA=1185.395m;点B的坐标为XB=883.122m,YB=1284.855m。在AB线段的延长线上定出一点C，BC间的距离DBC=50.000m，计算C点的坐标。

执行下面的程序，消息框里显示的结果是 【 】 。

Private Sub Form_Click()

Dim Str As String， K As Integer

Str="ab"

For k=Len(Str) TO 1 Step-1

Str=Str & Chr(Asc(Mid(Str，k，1))+k)

Next k

MsgBox Str

End Sub

编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住“Shift”键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是

A． A A

B．a A

C． A a

D．a a

执行以下程序后输出的是。 Private Sub Commandl_Click ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2) End Sub A．CDEFGH B．ABCD C．FG D．AB

编写如下两个事件过程： Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer) Print Cb_r(KeyCode) End Sub Private Sub Form_KeyPress( KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住Shift键和锁定大写键时)运行程序，如果按“A”键，则程序输出的结果是

A．A A

B．a A

C．A a

D．a a