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

以下叙述中错误的是（    ）

将数据和程序（    ）起来的一个逻辑实体称为“对象”

如果一个变量N未经定义就直接赋值即N＝3.1415，则该变量的类型为（    ）

事件的名称必须是（    ）

以下不符合VB语法的常量是（    ）

在VB中，数据100&的类型是（    ）

设有语句：x=InputBox("输入数值"，"0"，"示例")   程序运行后，如果从键盘上输入数值10，并按回车键，则下列叙述中正确的是（    ）

下列属性中属于逻辑型的是（    ）

窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性设置为（    ）

设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框只能显示信息，不能接收输入的信息，以下能实现该操作的语句是（    ）

命令按钮不支持的事件是（    ）

命令按钮command1的事件过程如下：

Private sub command1_click( )

X=inputbox(“输入：”,“输入整数”)

Msgbox “输入的数据是：”,, “输入数据：”+X

End sub

程序运行后，单击command1，从键盘上输入数据10，则以下叙述中错误的是（    ）

运行以下程序段后，输出结果为（    ）

X%=1/4

Y%=11/4

Print x%;y%

若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（    ）

设a=2,b=3,c=4,d=5,下列表达式的值是  3>2*b  OR a=c AND b<>c OR c>d （    ）

运行下面程序段时，若从键盘输入－5，则变量Y的值是（    ）

X=-5

A=val(inputbox(“请输入A的值：”))

Select case a

  Case is>0

    Y=x+1

  Case is =0

    Y=x+2

  Case else

    Y=x+3

End select

有如下程序段

X=2

For i = 1 to 10 step 2

    x=x+i

Next i

运行程序后，X的值是（    ）

已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（    ）

X=“ABCDEFG”

For i =4 to 1 setp -1

    y=y+mid(x, i, 1)

Next i

以下程序段的输出结果是（    ）

x=1

y=4

Do Until y>4

    x=x*y

    y=y+1

Loop

Print x

执行下面的程序段后，i的值为(    )

X=5

For i = 1 TO 20 STEP 2

    x=x+i^2

Next i

可以在中断状态下查询对象值的窗口是。

在VB中，发生在对象上且能被对象识别的动作称为。

当Rem放在某语句后，必须用“”分隔，否则会出错。

表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是。

同时具有列表框与文本框功能的控件是。

设有如下程序段：a$= " beijingshanghai ":b$=mid(a$,instr(a$, "g")+6)执行上面的程序段后，变量b$的值为。

循环结构for I = 5.5 to 0 step -2的循环次数是

若要设置文本框的滚动条生效，必须先把属性设置为True。

在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:

Private Sub Command1_Click( )

    Text1.Text="Vb Programming"

    Text2.Text=Text1.Text

    Text1.Text="ABCD"

End Sub

程序运行后，单击命令按钮，文本框Text1中显示的内容为；文本框Text2中显示的内容为

以下程序执行后将输出100到200之间所有的素数，并统计素数的个数

 Private Sub Form_Click( )

    Dim i%, j%, k%, t%         't为统计素数的个数

    Dim b As Boolean

    For i = 100 To 200

        b = True

        k=

        j = Int(Sqr(i))

        Do While k <= j And b

            If i Mod k = 0 Then

                

            End If

            

        Loop

        if b=true then

            t = t + 1

            Form1.Print i

        End If

    Next i

    Print "t="; t

End Sub

下面这段程序是从3个数中找出最小值

Dim x%,y%,z%,min%

X=val(inputbox(“请输入X的值”))

Y=val(inputbox(“请输入Y的值”))

Z=val(inputbox(“请输入Z的值”))

If then

    Min=y

Else

    Min=x

End if

If z<min then

Print “最小值是：”;min

下列程序的功能是找出被5、7除，余数为1的最小5个正整数。

Private Sub Form_Click()

    Dim Ncount%, n%

    Ncount =

    n = 1

    Do

        If  Then

            Print n

            Ncount = Ncount + 1

        End If

        n = n + 1

    Loop Until =5

End Sub

完善程序，使其能输出1-2+3-4+5-6+……+99-100的值。程序如下：

Private Sub Command1_Click()

    S=

    For i = 1 To

        S = S+((-1)^()) *i

    Next i

    Print s

End Sub

以下程序运行时，用户可以在文本框Text1中输入文本，单击command1“添加”按钮后将文本中输入的内容加到列表框的末尾，用户选某列表框的某一个列表项后，单击command2“删除”按钮，将删除该列表项；如果没有任何一项选中，将有出错提示"先选择，再删除！"。

Private Sub Command1_Click()    '添加按钮

    If Len(Text1.Text) <> 0 Then

        

        Text1.Text = ""

        Text1.SetFocus

    End If

End Sub

Private Sub Command2_Click()      '删除按钮

    IfThen

        MsgBox "先选择，再删除！"

    Else

       

    End If

End Sub

下面的程序是求100以内奇数和s的值，请将程序补充完整。

Private Sub Command1_Click( )

    Dim s As Single

    Dim i As Single

    s = _

    For i = 1 To 100 Step

       

    Next

    Print

End Sub

在窗体上添加1个列表框、1个命令按钮和1个标签，其名称分别为List1，Command1和Label1,通过属性窗口把列表框中的项目设置为“第一个项目”，“第二个项目”，“第三个项目”，“第四个项目”。程序运行后，在列表框中选择一个项目，然后单击命令按钮 ，将所选择的项目删除，并在标签中显示列表框当前的项目数。将程序补充完整。

Private Sub Command1_Click()

    If List1.ListIndex >=  Then

        List1.RemoveItem

        Label1.Caption =

    Else

    MsgBox "请选择要删除的项目"

   

End Sub

在窗体上画一个标签（名称为label1）和一个计时器（名称为timer1），然后编写如下几个事件过程：。程序运行后，单击窗体，将在标签中显示当前时间，每隔1秒钟变换1次。

Private sub form_load( )

    Timer1.enabled=false

    Timer1.interval=

End sub

Private sub form_click( )

    Timer1.enabled=

End sub

Private sub timer1_timer( )

    Label1.caption=time

End sub