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

试卷更新日期：2021-11-30 类型：月考试卷

进入出卷网下载

一、选择题：本题共20小题，每小题2分，共40分。

1. 以下叙述中错误的是（）

A、打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B、保存VB程序时，应分别保存窗体文件、工程文件和模块文件 C、由于VB属于高级语言，所以其程序不能以解释方式执行 D、一个工程可以添加多个模块文件

查看试题解析
2. 将数据和程序（）起来的一个逻辑实体称为“对象”

A、连接 B、封装 C、串接 D、调试

查看试题解析
3. 如果一个变量N未经定义就直接赋值即N＝3.1415，则该变量的类型为（）

A、Variant B、Single C、Double D、Integer

查看试题解析
4. 事件的名称必须是（）

A、窗体所能识别的 B、能够被用户触发的 C、对象所能识别的 D、该事件有对应的方法可执行

查看试题解析
5. 以下不符合VB语法的常量是（）

A、20－10 B、”电脑” C、true D、2.6E+01

查看试题解析
6. 在VB中，数据100&的类型是（）

A、单精度型 B、双精度型 C、整型 D、长整型

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

A、变量X的值是数值“示例” B、在InputBox对话框标题栏中显示的是"示例" C、0是默认值 D、变量X的值是字符串"10"

查看试题解析
8. 下列属性中属于逻辑型的是（）

A、Caption B、BorderStyle C、Visible D、Name

查看试题解析
9. 窗体上有一个名为Label1的标签，为了使该标签透明并且没有边框，正确的属性设置为（）

A、Label1.BackStyle=0： Label1.BorderStyle=0 B、Label1.BackStyle=1： Label1.BorderStyle=1 C、Label1.BackStyle=true： Label1.BorderStyle=true D、Label1.BackStyle=False： Label1.BorderStyle=False

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

A、Text1.MaxLength=0 B、Text1.Enabled=False C、Text1.Visible=False D、Text1.Width=0

查看试题解析
11. 命令按钮不支持的事件是（）

A、Click B、DblClick C、GotFocus D、LostFocus

查看试题解析
12. 命令按钮command1的事件过程如下：
Private sub command1_click( )

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

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

End sub

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

A、X的值是数值型数据10 B、输入对话框的标题是“输入整数” C、信息框的标题是“输入数据：10” D、信息框中的显示是“输入的数据是：”

查看试题解析
13. 运行以下程序段后，输出结果为（）
X%=1/4

Y%=11/4

Print x%;y%

A、0.25 0.75 B、1 3 C、0 2 D、0 3

查看试题解析
14. 若变量X＝1，则执行语句if x then x=0 else x=1后，X的值是（）

A、0 B、1 C、实时错误 D、编译错误

查看试题解析
15. 设a=2,b=3,c=4,d=5,下列表达式的值是 3>2*b OR a=c AND b<>c OR c>d （）

A、1 B、True C、False D、-1

查看试题解析
16. 运行下面程序段时，若从键盘输入－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

A、－5 B、－2 C、－4 D、－3

查看试题解析
17. 有如下程序段
X=2

For i = 1 to 10 step 2

x=x+i

Next i

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

A、26 B、27 C、38 D、57

查看试题解析
18. 已知X和Y是字符型变量，运行下面程序段后，变量Y的值是（）
X=“ABCDEFG”

For i =4 to 1 setp -1

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

Next i

A、ABCD B、DCBA C、DEFG D、GFED

查看试题解析
19. 以下程序段的输出结果是（    ）
x=1

y=4

Do Until y>4

    x=x*y

   y=y+1

Loop

Print x

A、1 B、4 C、8 D、20

查看试题解析
20. 执行下面的程序段后，i的值为( )
X=5

For i = 1 TO 20 STEP 2

x=x+i^2

Next i

A、 21 B、 22 C、 1335 D、 50

查看试题解析

二、填空题(每空1分，共10分)

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

查看试题解析
22. 在VB中，发生在对象上且能被对象识别的动作称为。

查看试题解析
23. 当Rem放在某语句后，必须用“”分隔，否则会出错。

查看试题解析
24. 表达式7 + 33 \ 6 * 7 / 8 Mod 2的值是。

查看试题解析
25. 同时具有列表框与文本框功能的控件是。

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

查看试题解析
27. 循环结构for I = 5.5 to 0 step -2的循环次数是

查看试题解析
28. 若要设置文本框的滚动条生效，必须先把属性设置为True。

查看试题解析
29. 在窗体上画两个文本框Text1和Text2和一个命令按钮Command1然后在命令按钮的代码窗口中编写如下事件过程:
Private Sub Command1_Click( )

    Text1.Text="Vb Programming"

    Text2.Text=Text1.Text

    Text1.Text="ABCD"

End Sub

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

查看试题解析

三、程序填空题（每空2分，共50分）

30. 以下程序执行后将输出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

查看试题解析
31. 下面这段程序是从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

查看试题解析
32. 下列程序的功能是找出被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

查看试题解析
33. 完善程序，使其能输出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

查看试题解析
34. 以下程序运行时，用户可以在文本框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

查看试题解析
35. 下面的程序是求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

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

    If List1.ListIndex >= Then

        List1.RemoveItem

      Label1.Caption =

    Else

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



End Sub

查看试题解析
37. 在窗体上画一个标签（名称为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

查看试题解析