内蒙古自治区巴彦淖尔市临河区第三高级中学2022届高三上学期信息技术期中考试（计算机班）VB试卷

以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（    ）。

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private Sub Command1_Click(  )

Move 500，500

End Sub

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

在窗体上有若干控件，其中有一个名称为Text1的文本框。影响Text1的Tab顺序的属性是（    ）。

在窗体上画一个名称为List1的列表框，为了对列表框中的每个项目都能进行处理，应使用的循环语句为（    ）。

以下Case语句中错误的是（    ）

以下关于图片框控件的说法中，错误的是（    ）

执行语句s=Len(Mid("VisualBasic",1,6,)后，s的值是（    ）。

当一个复选框被选中时，它的Value属性的值是（    ）

以下关于函数过程的叙述中，正确的是（    ）

确定一个控件在窗体上的位置的属性是（    ）

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程

Private Sub Command1 _Click（）

Text1.Text = "Visual"

Me.Text1= "Basic"

Text1 = "Program"

End Sub

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

以下关系表达式中，其值为False 的是（    ）

语句Print 5/4*6\5 Mod 2的输出结果是（    ）

在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1,然后编写如下两个事件过程:

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,则在标签中显示的内容是（    ）

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

Private Sub Command1_ Click（）

    x=-5

    If Sgn(x) Then

        y= Sgn(x^2)

    Else

        y= Sgn(x)

    End If

Print y

End Sub

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

在窗体上画一个命令按钮(其NAME属性为Command1)，然后编写如下代码

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

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

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程:

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

该事件过程的功能是（    ）

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编如事件过程:

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

在VB中设计程序时，能自动被检查出来的错误是（     ）

产生一个[20，50]范围内的随机数的表达式是。

VB中的变量如果没有显示声明其数据类型，则默认为。

Visual Basic提供了结构化程序设计的三种基本结构，三种基本结构是、和。

根据数组中元素的个数是否可以变化，数组分为数组和数组。

如果列表框的ListCount属性为20，则列表框的最后一项的Listindex值为。

在过程调用中，参数的传递可分为传递和传递两种方式。

下面过程max()用于求3个数中的最大值，利用这个过程求5个数中的最大值，请填空。

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

窗体上有一个图片框Picture1，两个命令按钮Command1和Command2,如图所示。当单击命令按钮Command1时，在图片框中画出正弦函数，当单击命令按钮Command2时，清空图片框中的图像，请填空。

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

编写事件过程并满足以下要求:单击命令按钮1,产生50个[50, 300]随机整数并显示在列表框1中，单击命令按钮2,在列表框2中显示上述随机整数中的所有大于100的数，并在列表框1中删除该数。如图所示。

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

以下程序suixian可以判断某个数字是否为水仙花数，所谓“水仙花数”是指一个3位数，其各个数字立方和等于该数本身。

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

用随机数产生50个[10,100]不重复的正整数放入数组,从小到大排序,每行输出10个数。

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