已知线段AB的两端点坐标,可计算tgαAB=△y/△x,R=arctg△y/△x,R>0,若使αAB=R+180则()。
第1题:
下列程序运行后立即窗口输出的结果是 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
第2题:
已知直线 AB 两端点的坐标为 A(2,3),B(5,6).写出使直线 AB 以坐标原点为中心顺时针旋转 90 的变换矩阵,并求出变换后直线 AB 的坐标矩阵。
参考答案:
(1)AB 的齐次坐标矩阵为:
(2)绕原点顺时针旋转 90°的变换矩阵为:
(3)变换后直线 AB 的坐标矩阵为:
第3题:
若已知两点的坐标为A(100,100)和B(150,50),则直线AB的坐标方位角为()。
第4题:
编写如下两个事件过程。
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
第5题:
设有如下过程: 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
第6题:
已知A、B两点的坐标为 XA=1011.358m, YA=1185.395m;点B的坐标为XB=883.122m,YB=1284.855m。在AB线段的延长线上定出一点C,BC间的距离DBC=50.000m,计算C点的坐标。
第7题:
执行下面的程序,消息框里显示的结果是 【 】 。
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
第8题:
编写如下两个事件过程: 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
第9题:
执行以下程序后输出的是。 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
第10题:
编写如下两个事件过程: 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