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

兵团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.SetWindowPos

B.Public

C.Private

D.SetWindowAPI

试题 15

某窗体的Name特点为MyFrm，则它的Load事情的过程名为（ ）

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.工程文件

阅览下列程序并写出程序运转成果（ ）

试题 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

请将答案写此横线上