内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期...

Private Sub Command1_Click(  )

Move 500，500

End Sub

程序运行后，单击命令按钮，执行的操作为（    ）。

Private Sub Command1 _Click（）

Text1.Text = "Visual"

Me.Text1= "Basic"

Text1 = "Program"

End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的是（    ）

Private Sub Command1_Click( )

    strText = InputBox("请输入")

    Text1.Text = strText

End Sub

Private Sub Text1_Change()

    Label1.Caption = Right(Trim(Text1.Text), 3)

End Sub

程序运行后，单击命令按钮，如果在输入对话框中输入abcdef,则在标签中显示的内容是（    ）

Private Sub Command1_ Click（）

    x=-5

    If Sgn(x) Then

        y= Sgn(x^2)

    Else

        y= Sgn(x)

    End If

Print y

End Sub

程序运行后，单击命令按钮，窗体上显示的是（    ）

Option Base 1

Private Sub Command1_Click()

    Dim a

    s= 0

    a= Array(1,2,3,4)

    j=1

    For i= 4 To 1 Step -1

        s=s+a(i)*j

        j=j* 10

    Next i

Print s

End Sub

运行上面的程序，单击命令按钮，其输出结果是（    ）

Private Sub Command1_Click()

    n = Val(Text1.Text)

    For i=2 To n

        For j= 2 To sqr(i)

            If i Mod j=0 Then Exit For

        Next j

        If j>Sqr(i) Then Print i

    Next i

End Sub

该事件过程的功能是（    ）

Private Sub Command1_Click()

    Dim array1(10, 10) As integer

    Dim i As integer, j As integer

    For i= 1 To 4

        For j= 2 To 5

            Array1(i, j)=i+j

        Next j

    Next i

    Text1.Text = array1(2, 5) + array1(3, 4)

End Sub

程序运行后，单击命令按钮，在文本框中显示的值是（    ）

Private Sub Form_Click( )

    a= 1: b= 1

    Print"A="; a; "B="; b

    Call mult(a, b)

    Print"A=";a; "B=";b

End Sub

Sub mult(x, y)

    x=2* x

    y=3*y

End Sub

Private Sub Command1_Click( )

    Print “5个数34、124、68、73、352的最大值是：”

    Max1 = max(34,124,68)

    Max1 =

    Print Max1

End Sub

Public Function max(ByVal a%,ByVal b%,ByVal c%)

    If   Then

        M = a

    Else

        M = b

    End If

    If  Then

        Max = m

    Else

    End If

End Function

Private Sub Command1_Click()

    Picture1.Scale (-6, 6)-(6, -6)

    Picture1.DrawWidth = 5

    For i = -6 To 6 Step 0.0001

        Picture1.  (i,)

End Sub

Private Sub Command2_Click()

    Picture1.

End Sub

Private Sub Command1_ Click( )

    Randomize

    For i= 1 To 50

        x =

        List1.

    Next i

End Sub

Private Sub Command2 _Click( )

    For i=  To 0 step -1

        If   Then

            List2.AddItem

            List1.

    Next i

End Sub

Private Sub Command1_Click( )

    Dim i As Integer

    For i = 100 to 999

    Next i

End Sub

Public Sub suixian(x As Integer)

    Dim i%,j%,k%

    i =

    j = (x -i * 100)\10

    k =

    If   Then Print x

End Sub

Private Sub Command1Click()

    Dim a(1 To 50) As Integer, i%, j%, t%, p%, n%, x%

    n=0

    Randomize

    Do While n<50

        x=

        For i= 1 To n

            If Then  Exit For

        Next i

        If i> n Then

            a(n)=x

        End If

    Loop

    For i= 1 To 49

        For j=i+ 1 To 50

            If a(p)> a(j) Then

        Next j

        t= a(p): a(p) = a(i): a(i)=t

    Next i

    For i= I To 50

        Print a(i);

        if Then Print

    Next i

End Sub