兵团2021年春《Visual Basic程序设计》试卷

《Visual Basic程序设计》试卷.docx售价: 15 学习币

附件大小: 19.99 KB, 下载次数: 3

下载 购买 记录

部分科目为随机出题，顺序是乱的 请用CTRL+F搜索查找你所需要的试题

兵团2021年春季学期《Visual Basic程序设计》试卷

试题 1

能够改变标签(Label)控件显示标题的属性是（    ）

A.Name      

B.Caption         

C.Border

D.Text      

正确答案是：Caption

试题 2

当一个工程中含有多个窗体时，其中的启动窗体是（    ）。

A.最后一个添加的窗体

B.启动VB时创建的第一个窗体              

C.第一个添加的窗体

D.在“工程属性”对话框中指定的窗体      

正确答案是：在“工程属性”对话框中指定的窗体

试题 3

当运行程序时，系统自动执行启动窗体的（    ）事件。

A.LostFocus

B.Load  

C.Click  

D.Unload  

试题 4

下列4项中合法的变量名是（    ）。

A.Integer

B.x-yz                  

C.2xyz                  

D.x_yz

试题 5

表达式24 / 2 - 2 ^ 3 *4 / 4 Mod 5 \ 3（　　）

A.32

B.12

C.20

D.16

试题 6

要清除List列表框控件中的所有项目，可采用的方法是（    ）

A.Erase               

B.Click               

C.Clear  

D.Delete

试题 7

下列正确的赋值语句是（    ）   

A.2=x+y

B.x+y=z                 

C.x=Integer+2

D.z=x+y                 

试题 8

可通过下列何种属性来设置或返回List列表框控件中当前选定项目的索引（    ）。

A.ListText      

B.LisItem

C.ListCount      

D.ListIndex      

试题 9

.若窗体Form1左上角的坐标为(-250,300)，右下角的坐标为(350,-200)，那么X轴和Y轴的正方向是（     ）

A.向右和向下               

B.向左和向上                    

C.向左和向下

D.向右和向上

试题 10

如果仅需要得到当前系统时间，则可以使用哪个函数（     ）

A.Now

B.Year

C.Date

D.Time         

试题 11

数学关系8≤y<40表示成正确的VB表达式为（    ）

A.8<=y AND<40               

B.8<=y<40                       

C.8<=y AND y<40           　   

D.8<=y OR y<40

试题 12

Dim A(-1 To 4, 5) As String定义的数组包含的元素个数是（    ）

A.30

B.25

C.36

D.20

试题 13

应用程序打包后，其包文件的后缀是（　　

A..vbp

B..ocx                           

C..exe

D..cab                           

试题 14

能够实现“窗体总在最前端”界面效果的API函数是（　　）

A.SetWindowPos                     

B.Public

C.Private                           

D.SetWindowAPI

试题 15

某窗体的Name属性为MyFrm，则它的Load事件的过程名为（   

A.MyFrm_Load

B.Form_Load

C.Form1_Load

D.Me_Load

试题 16

MsgBox函数的返回值的类型是（　　）

A.逻辑型     

B.日期型

C.字符串

D.整型        

试题 17

以读方式打开D盘中的 Text.dat文件，正确的语句是（    ）

A.open"D:\text.dat" For Output As# 1

B.open" D:\text.dat" For Input As

C.open" D:\text.dat" For Input As# 1

D.open"text.dat" For Random As #1

试题 18

在VB中，Access数据库属于（　　）

A.本地数据库        　　　　　

B.OLE数据库

C.远程数据库                  

D.外部数据库

试题 19

当Winsock控件处于关闭状态时，其State属性的值是（　　）

A.1

B.-1

C.2

D.0

试题 20

后缀为.Vbp的文件表示VB 的（　　）

A.窗体文件

B.标准类模块文件

C.类模块文件                 

D.工程文件                  

阅读下列程序并写出程序运行结果（每题10分，共40分。）

试题 21

Private Sub Form_Click()

Static a As Integer

  Dimb As Integer

  a =a+2

  b =b+2

Text1=a

Text2=b

End Sub

写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。

试题 22

Private Sub Form_Click()

Static a As String

  Dimb As String

  a =a + "A"

  b =b + "B"

Text1 = a

Text2 = b

End Sub

写出程序运行时连续单击三次窗体后，文本框Text1和Text2显示结果。

试题 23

Private Sub Command1_Click()

  Dimn As Integer, y As Integer, x As Integer

  a =1

Do While a < 20

    n= n + 1

    b= a + b

    a= a * (a + 1)

Loop

Text1.Text = n

Text2.Text = a

Text3.Text = b

End Sub

写出程序运行时单击Command1后，文件框Text1、 Text2和 Text3的输出结果。

试题 24

Private Sub Command1_Click()

  DimA(1 To 5) As Integer

  Dimx As Integer

  Fori = 1 To 5

   A(i) = i

Next i

  i =1

  DoWhile x < 3

   A(i) = A(i) * x

    x= x + 2

    i= i + 1

Loop

Text1.Text = A(1)

Text2.Text = A(2)

End Sub

写出程序运行时单击Command1后，文本框Text1、Text2的输出结果。

试题 25

列表框应用程序。要求从文本框(Text1)中输入姓名，然后按“回车”键，把姓名添加到列表框(List1)中；当选择列表框中某一项后，按“删除”按钮(Command1)，则从列表框中删除该项。程序运行结果如下图所示。

Private Sub Text1_KeyPress(      [1]         )

   If KeyAscii =    [2]         Then

      If Text1 <> "" Then

          List1.AddItem      [3]         

          Text1 = ""

      Else

          MsgBox "请先输入姓名!", vbOKOnly, "信息提示"

      End If

   End If

End Sub

Private Sub Command1_Click()

   If List1.ListIndex >=  [4]      Then

              [5]                       

   Else

       MsgBox "请先选择一个项目!", vbOKOnly, "信息提示"

   End If

End Sub

Private Sub Command2_Click()

   Unload Me

End Sub

请将答案写此横线上