VB期末考试试题(A、B卷)[1]

VB期末考试试题（A卷）

一、选择题

1.要改变控件的宽度，应修改该控件的（ B ）属性。

A、TOP

B、width

C、Left

D、Height

2.将命令按钮Command1设置为不可见，应修改该命令按钮的（A）属性。

A、Visible

B、Value

C、Caption

D、Enabled

3.单机滚动条两端的任何一个滚动箭头，将触发该滚动条的（ C ）事件。

A、Scroll B 、KeyDown C、change D、Dragver

4.（ D ）对象具有clear方法。

A、图片框

B、窗体

C、复选框

D、列表框

5.中心定义图片框控件的坐标系统，可采用该图片框的（ A ）

A、scale

B、Scale X

C、scale Y

D、setFocus

6.将通过对话框CommdDialog1的类型设置成另存为对话框，可调用该控件的（ B）方法。

A、Showopen

B、Showsave

C、ShowColor

D、ShowFont

7.形状控件所显示的图形不可能是（ D ）

A、圆

B、椭圆

C、圆角正方形

D、等边三角形

8.由Fro K=10 TO oslept 3：next K循环语句控件的循环次数是（ B ）

A、12

B、0

C、-11

D、-10

9.下列数据类型中，占用内存最大值是（ D ）

A、Boolwan

B、Byte

C、Lnteger

D、Single

10.如果在图片框上使用绘图方法绘制一个实心圆，则图片框的（ C ）属性决定了该图片的颜色。

A、BackColro

B、Forelklor

C、Fillcolor

D、Dlawstyle

一、选择题

1.要在垂直位置上移动控件，应利用控件的（C）

属性。

A、Left

B、Width

C、Top

D、Height

2.要在文本框中的文本显示掩码（密码）符，在属性设置时，首先必须设置（ D）属性为False。

A、Txet

B、Enabled

C、Visible

D、Multline

3.用键盘的光标键选中某一菜单项，并按回车触发菜单的（ C ）的事件。

A、KeyPress

B、KeyDown

C、Click

D、Keyllp

4.一下（ D ）对象不具有Clear方法。

A、列表框

B、组合框

C、剪贴框

D、图片框

5.软件列表中设定“文件列表”显示文件类型应改该控件的（ D ）属性。

A、Path

B、FileName

C、Name

D、Patterw 6．组合框有三种风格，它们由Style属性所决定，其中为简单组合框时，Style属性值应为（ B ）

A、0

B、1

C、2

D、3

7.下列可调整图片框的大小以适合图片的属性是（ B ）

A、Stretch

B、autosize

C、picture

D、oledropmode

8.要想清除文本框中的内容则可利用（ A ）进行。

A、Caption

B、Text

C、Clear

D、Cls

9.下列表达式中，其值为0的是（ C ）

A、7/9

B、7mod 15

C、7\9

D、15 mod 9

10.求以10 为底X的常用对数的表达式为（ A ）

A、LoG（X）/LoG（10）

B、LN（X）

C、LoG（X）/LoG(E)

D、LoG（X）

三、编程题

1随机产生n个两位正整数（n由对话框输入，切n>0)。求出其中的偶数之和，并在标签框Labol1上显示。程序写在命令按钮Command1的click事件中。Private Sub Command1_Click()

Dim n As Integer

Dim i As Integer, sum As Long

n = Val(InputBox("Please input a integer", "Input N value"))

For i = 1 To n

rnddat = (10 + Int(90 * Rnd))

If rnddat Mod 2 = 0 Then

sum = sum + rnddat

End If

Next i

Label1.Caption = sum

End Sub

2由输入对话框中输入100个数值数据，放入数组a，将其中的整数放入数组b，然后运用选择分类将数组b 中的数据按从大到小的顺序排列，并以每行5个数据在窗体上输出。

注：程序写在窗体form的click事件上。

Private Sub Form_Click()

Dim a(1 To 100)

Dim b() as integer

Dim i As Integer, j As Integer, k As Integer, pos As Integer,temp as integer

For i = 1 To 100

a(i) = Val(InputBox("Please input data"))

If a(i) = Int(a(i)) Then

j = j + 1

ReDim Preserve b(j)

b(j) = a(i)

End If

Next i

For k = 1 To j - 1

pos = k

For m = k To j

If b(m) < b(pos) Then pos = m

Next m