VB试题(三)

VB试题（三）

一、概念填空题

1 在Visaul Basic中的常量分为两种，一种是文字常量一种是（）常量。符号常量

2 VB中每个对象都有自己的属性，（）属性决定控件是否允许可见。Visible

3 在VB对象的三要素中，可以把（）看作一个对象的性质，把（）看作对象的响应，把（）看作对象的动作。属性|事件|方法

4 VB中拥有多个窗体的程序可用（）语句窗体装入内存，用（）语句从内存中删除指定窗体。 LOAD|UNLOAD

5 在VB中，当坐标系确定后，如果坐标值前加上关键字Step，则坐标值（X，Y）表示对象上的（）坐标。相对坐标

6 VB逻辑数据类型只有True与False两个值。当逻辑数据转换成整型数据时，True 转换为（），False转换为（）。1|0

7 VB中依据变量的作用范围将VB变量的作用范围分为三类，它们是：（）变量、（）变量和（）变量。局部变量|窗体模块级变量窗体模块变量|全局变量

8 VB中的控件分为内部控件、ActiveX控件和（）三类。可插入对象

9 货币类型的数据小数点的位置是固定的，精确到小数点后（）位。 4

10 A=7，B=3，C=4，则表达式A MOD 3 +B^3/C\5的值为（）。

11 根据变量的定义位置和所使用的变量定义语句不同，VB中的变量可以分为3类，即（）、模块变量和（）。局部变量|全局变量

12 字符串常量由任何ASCII字符组成，在程序中，它必须由（）括起来。双引号””

13 双击窗体中的对象后，Visaul Basic 将显示的窗口是（）窗口。代码

二、是非选择题

1 在Visaul Basic中，没有指针类型的变量。 T

2 当向一个过程传递参数时，可以通过两种方式传递：引用传递和值传递。 T

3 在Visaul Basic中，窗体最常见的必不可少的对象，一个窗体可以对应多个窗体模块。 F

4 在Visaul Basic中，若在程序中使用字符串，则字符串必须用单引号或双引号将字符串括起来。F

5 在Visaul Basic中，常量分为直接常量和符号常量两种。 T

6 在Visaul Basic的事件过程中，Private表示此过程只可以被本工程中的其它过程调用。 F

7 在Visaul Basic中，工具箱中包含了所有的VB控件。 F

8 在Visaul Basic中，控件数组可以由不同类型的控件组成。 F

9 在Visaul Basic中，文本框的Autosize属性是根据文本内容自动调整文本框的大小。 F

10 Visaul Basic中，当一个工程含有多个窗体时，其中的启动窗体是第一个添加的窗体。F

三、概念选择题

1 VB可分为（ C ）。

A)学习版、专家版和企业版B)中文版、英文版和学习版

C)学习版、专业版和企业版D)内部版、正式版和测试版

2 实现字符串Unicode编码方式与ANSI编码方式相互转换的函数是（ B ）。

A) Str B) Strconv C) Trim D) Mid

3 若要获得滚动条的当前值，可访问的属性是（ B ）。

A) Text B) Value C) Max D) Min

4 若要将窗体从内存中卸载出去，其实现的方法是（ B ）。

A) Show B) UnLoad C) Load D) Hide

5 下列关于For…N ext 语句的说法正确的是（ A ）。

A)循环变量、初值、终值和步长都必须为数值型B)step后的步长只为正数

C)初值必须小于终值D)初值必须大于终值

6 在用通用对话框的ShowOpen显示“打开”文件对话框时，若要指定其中的文件类型为文本文件，正确的描述格式是（ A ）

A)“text(.txt)|(*.txt)” B)“文本文件(.t xt)|(.txt)”

C)“text(.txt)||(*.txt)” D)“text(.txt)(*.txt)”

7 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置（ C ）。

A) Text属性值为* B) Caption属性值为*

C) password属性值为空 D) Passwordchar属性值为*

8 下述的说法哪种是Windows的程序设计方法：（ D ）。

A) 面向对象、顺序驱动B) 面向过程、事件驱动

C) 面向过程、顺序驱动D) 面向对象、事件驱动

9 下列关于工具箱的说法正确的是( C )。

A) 工具箱中控件的数目是固定不变的。B) 工具箱中包含了所有的VB控件。

C) VB的内部控件不能从工具箱中移除。 D) ActiveX控件不能添加到工具箱中。

10 当程序运行时,在窗体上单击鼠标,以下( C )事件是窗体不会接收到的。

A) MouseDown B) MouseUp C) Load D) Click

11 Visual Basic的三种工作模式是( B )。

A) 编辑、编译与运行 B) 设计、运行与中断

C) 中断、打开与关闭 D) 设计、编辑与编译

12 使用( C )方法可以进入代码编辑窗口。

A) 执行“文件”菜单中的“打开”命令。 B) 双击当前窗体的标题栏。

C) 执行“视图”菜单中的“代码窗口”命令。 D) 双击“工程资源管理器”。

13 编写如下事件过程：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Shift = 6 And Button = 2 Then

Print "Hello"

End If

End Sub

程序运行后，为了在窗体上输出“Hello”，应在窗体上执行以下( D )操作。

A) 同时按下Shift键和鼠标左按钮 B) 同时按下Shift键和鼠标右按钮

C) 同时按下Ctrl、Alt键和鼠标左按钮 D) 同时按下Ctrl、Alt键和鼠标右按钮

14 如果在立即窗口中执行以下操作：(是回车键，下同)

a = 8 :

b = 9 : print a>b

则输出结果是( C )。

A) -1 B) 0 C) False D) True

15 以下语句的输出结果是( C )。

Print Format $(32548.5,“000,000.00”)

A) 32548.5 B) 32,548.5 C) 032,548.50 D) 32,548.50

16 下列不能打开菜单编辑器的操作是( D )。

A)按Ctrl+E B)单击工具栏中的“菜单编辑器”按钮

C)执行“工具”菜单中的“菜单编辑器”命令 D)按Shift+Alt+M

17 表达式4+5*7/8 Mod 9的值是( D )。

A)4 B)5 C)6 D)7

18 假定Picturel和Textl分别为图片框和文本框的名称，下列不正确的语句是( C )。

A)Print 100 B)Picturel.Print 100

C)Print.Text1 D)Debug.Print 25

19 下列可作为VisualBasic的变量名的是( B )。

A)4*Delta B)A1pha C)4ABC D)Ab

20 多分支结构执行哪一个分支的根据是( C )。

A)Select case 语句的“测试表达式”与Case语句的“变量值列表”同为false。

B)Select case 语句的“测试表达式”与Case语句的“变量值列表”同为true。

C)Select case 语句的“测试表达式”与Case语句的“变量值列表”相匹配。

D)Select case 语句的“测试表达式”与Case语句的“变量值列表”完全相等。

四、程序选择题

1 下列程序段的执行结果为（ A ）。

X = 5

Y = -20

If Not x > 0 Then

x = y - 3

Else

y = x + 3

Print x - y; y -x

End If

A) -3 3 B) 5 -8 C) 3 -3 D)

25 -25

2 下列程序执行后，变量S的值为（ B ）。

Dim s As Long, x As Integer

s = 0

For x = 1 To 10 Step 2

s = s + x

Next x

Text1.Text = s

A) 10 B) 25 C) 50 D) 100

3 下列程序段的执行结果为( B )。

Dim A(10, 10)

For I = 2 To 4

For J = 4 To 5

A(I, J) = I * J

Next J

Next I

Print A(2, 5) + A(3, 4) + A(4, 5)

A) 22 B) 42 C) 32 D) 52

4 执行下列程序后，X的值为( C )。

X = 3

y = 6

Do While y <= 6

x = x * y

y = y + 1

Loop

A) 3 B) 6 C) 18 D) 20

5 下列程序段的执行结果为( C )。

Dim M(10)

For k = 1 To 10

M(k) = 11 - k

Next k

X = 6

Print M(2 + M(X))

A) 2 B) 3 C) 4 D) 5

6 有如下程序段，执行该程序段，在输入对话框中输入数据4，该程序段的执行

结果是( -10 )。

N = Val(InputBox("请输入大于零的偶数"))

s = 0

I = 1

c = 1

Do

s = s + c * I * I

c = c * (-1)

I = I + 1

Loop While I <= N

Print s

五、阅读程序写结果

1 单击命令按钮时，下列程序代码的执行结果为( 6 )。

Public Function MyFunc(m As Integer, n As Integer) As Integer Do While m <> n

Do While m > n

m = m - n

Loop

Do While m < n

n = n - m

Loop

Loop

MyFunc = m

End Function

Private Sub Command1_Click()

Print MyFunc(24, 18)

End Sub

2 以下程序的输出结果是( 3

3 )。

Option Base 1

Private Sub Command1_Click()

Dim a(10),p(3) As Integer

k=5

For I=1 To 10

a(I)=I

Next I

For I=1 To 3

p(I)=a(I*I)

Next I

For I=1 To 3

k=k+p(I)*2

Next I

Print k

End sub

3 在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：Private Sub Form_Load ()

List1.AddItem"357"

List1.AddItem"246"

List1.AddItem"123"

Listl.AddItem"456"

Text1.Text=""

End Sub

Private Sub List1_ DblClick ( 456789 )

a =List1.Text

Print a+Text1.Text

End Sub

程序运行后，在文本框中输入“789”，然后双击列表框中的"456"，则输出结果

为( 456789 )。

4 假定有如下的Sub过程：

Sub S(x As Single,y As Single)

t = x

x =t*y

y =t/y

End Sub

在窗体上画一个命令按钮，然后编写如下事件过程：

Private Sub Commandl_Click ()

Dim a As Single

Dim b As Single

a =5 ：

b =4

S a,b

Print a;b

End Sub

程序运行后，单击命令按钮，输出结果为( 20 1.25 )。

六、程序填空

1 以下程序代码实现单击命令按钮Command1时生成20个（0～100）之间的随机

整数，存于数组中，打印数组中大于50的数，并求这些数的和。

Int(Rnd*101) arr(k)>50

Dim arr(1 To 20)

For I = 1 To 20

arr(i) = ( 1 )

Next I

Sum = 0

For k = 1 to 20

If ( 2 ) Then

Print Tab(20); arr(k)

Sum = Sum + arr(k)

End If

Next k

Print Tab(20); "Sum="; Sum 2 以下程序用来建立一个10*10矩阵，该矩阵两条对角线上的元素为1，其余元

素为0，请补充完该程序。 n=m n=11-m m=1 To 10

Private Sub Form_click()

Dim s(10, 10) As Integer

For n = 1 To 10

For m = 1 To 10

If ( 1 ) Or ( 2 ) Then

s(n, m) = 1

Else

s(n, m) = 0

End If

Next m

Next n

For n = 1 To 10

For ( 3 )

Print s(n,m)

Next m

Print

Next n

End Sub

3窗体中有图片框(Picture)和计时器(Timer1)两个控件。运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下角移动，每次向左、向右移动100twip。

Private Sub Form_Load()

Picture1_Picture=LoadPicture("c:\pic\mouth.ico")

( 1 ) Timer1.Interval=2000

End Sub

Private Sub Timer1_Timer()

Static x,y As Integer

x=x+100

y=y+100

Pictuer1.Move x,y

End Sub

4下列程序用来计算1+2+3……+10的值，请补充完程序。

Dim t,k as single

K=0

Do While k<10

K=k+1

( 1 ) t=t+k

Loop

print t

5下列程序用来计算1+2+……n，当和数大于100时停止计算，请补充完该程序。

Private sub form_click( )

Dim n as integer,s as integer,I as integer,k as integer

S=0

K=0

N=inputbox("请输入n的值)

for I=1 to 100

k=k+1

s=s+I

( 1 ) If s>100 then exit for

Next I

print s

end sub

6用随机数函数产生100个100～300之间的整数，在窗体上输出能被3 整除的数的和及个数。

i=1 to S=S+X

Private Sub Form_Click()

Dim S&, N%

S = 0

N = 0

Randomize

For ( 1 ) 100

x = Int(Rnd * 200 + 100)

If x Mod 3 Then

( 2 )

N = N + 1

End If

Next i

Print S

Print N

End Sub

七、程序设计

1 单击窗体由键盘输入20个实数，单击“求最大最小”命令按钮在图形框（Picture1）中输出最这些数的最大、最小值；单击“排序”命令按钮，在图形框（Picture2）中输出这些数的升序。

（1）画出界面

（2）写出属性表

（3）事件过程代码

Dim a(20) As Single

Private Sub Form_Load()

For i = 1 To 20

a(i) = InputBox("输入数据")

Next i

End Sub

Private Sub Command1_Click()

Tmax = a(1)

Tmin = a(1)

For i = 2 To 20

If Tmax < a(i) Then Tmax = a(i)

If Tmin > a(i) Then Tmin = a(i)

Next i

Picture1.Print "Max="; Tmax

Picture1.Print "Min="; Tmin

End Sub

Private Sub Command2_Click()

For i = 1 To 20

For j = i To 20

If a(i) > a(j) Then

t = a(i): a(i) = a(j): a(j) = t End If

Next j

Next i

For i = 1 To 20

Picture2.Print a(i)

Next i

End Sub