单击窗体时，下列程序段的执行结果为( )。 Private Sub Form_Crick() Line(200,200)-(400,400) Print"+++++++++++++++++++" Print"*******************" End Sub

A．在窗体上画一斜线，从斜线终点处开始打印两行符号

B．在窗体上画一斜线，从斜线起点处开始打印两行符号

C．在窗体上画一斜线，从窗体左上角开始打印两行符号

D．从窗体左上角开始打印两行符号，从符号结束处开始画一斜线

[单选题]执行下列程序后，鼠标单击窗体，输出结果为Private Sub Form_Click()Print "Click"；E．nd SubPrivate Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single)Print "Donw"E．nd SubPrivate Sub Form_MouseUp(ButtonAs Integer，Shift As Integer，X As Single，Y A

[单选题]执行下列程序后,鼠标单击窗体,输出结果为Private Sub Form_Click()Print "Click";E．nd SubPrivate Sub Form_mouseDown(Button As Integer,ShiftA．s Integer, X As Single, Y As Single)Print "Donw"E．nd SubPrivate Sub Form_MouseUp(ButtonAsInteger,ShiftA．s Integer, X As Single,

[单选题]执行下列程序后，鼠标单击窗体，输出结果为 Private Sub Form_Click() Print"Click"： End Sub Private Sub Form_MouseDown(Button As Integer，Shift_As Integer，X As Single，Y As Single) Print"Donw" End Sub Private Sub Form_MouseUp(Button As Integer，Shift_As Integer，X As Single

[单选题]执行下列程序后，鼠标单击窗体，输出结果为。 Private Sub Form_Click() Print“Click”； End Sub Private Sub Form_MouseDown(Button As Integer，Shift_ As Integer，X As Single，Y As Single) Print “Donw” End Sub Private Sub Form_MouseUp(Button As Integer，Shift_ As Integer，X As Single

[单选题]单击窗体时，下列程序代码的执行结果为______ 。 Private Sub Test (x As Integer) x=x*2+1 If x ＜ 6 Then Call Test(x) End If x-x*2+1 Print x; End Sub Private Sub Command1_ Click () Test 2 End SubA．23 47B．5 11C．10 22D．23 29

[单选题]单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x＜6 Then call Text(x) End if x=x*2+1 Print x； End SubA．27 55B．11 35C．22 45D．24 51

[单选题]单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim FirstStr As String FirstStr="abcdef" Print PickMid(FirstStr) End Sub Private Function PickMid(xStr As String)As String Dim tempStr As String,strLen As Integer TempStr=" " strLen=Len(xStr) i

[单选题]单击命令按钮时，下列程序段的执行结果为( )。 Private Sub Command1_Click() Dim a As Integer, b As Integer, c As Integer a-2:b=4:c=6 Call S1(a,b)Print "a="; a; "b="; b; "c="; c Call S2(a,b)Print "a ="; a; "b="; b; "c="; c; End Sub Private Sub S1(x As Integer, y

[单选题]单击窗体时，下列程序的执行结果是 Private Sub Invert(By Val xstr As String，ystr As String) Dim tempstr AS String Dim I AS Integer I=Len(xstr) Do While I＞=1 tempstr=tempstr + Mid(xstr，I，1) I=I - 1 Loop ystr=tempStr End Sub Private Sub Form_Click( ) Dim s1 As String，s2

[单选题]运行下列程序，单击窗体后输出的结果是( )。Private Sub Form_Click()D．im aD．im s As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)s = 1F．or i = 5 To 1 Step -2s = s * a(i)Next iPrint sE．nd SubA． 15B． 48C． 120D． 720