单项选择题

要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是（）

A．Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)　　Print X,Y　　End Sub
B．Private Sub P1_MouseDown(Button AS Integer,Shift As Integer,X As Single, Y As Single)　　Picture.Print X,Y　　End Sub
C．Private Sub P1_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)　　P1.Print X,Y　　End Sub
D．Private Sub Form_MouseMove(Button AS Integer,Shift As Integer,X As Single, Y As Single)　　P1.Print X,Y　　End Sub

<上一题 目录 下一题>
热门 试题

单项选择题
有下面的程序段，其功能是按图1所示的规律输出数据 Dim a(3,5) As Integer For i=1 To 3 For j=1 To 5 A(i,j)=i+j Print a(i,j); Next Print Next 若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是（）

A．For i=1 To 5　　For j=1 To 3　　Print a(j,i);　　Next　　Print　Next
B．For i=1 To 3　　For j=1 To 5　　Print a(j,i);　　Next　　Print　　Next
C．For j=1 To 5　For i=1 To 3　　Print a(j,i);　　Next　　Print　　Next
D．For i=1 To 5　　For j=1 To 3　　Print a(i,j);　　Next　　Print　　Next
单项选择题
下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是（）

A．Print gcd(8,12)，gcd(12,16)，gcd(16,8)
B．Print gcd(8,12,16)
C．Print gcd(8)，gcd(12)，gcd(16)
D．Print gcd(8,gcd(12,16))
相关试题