VB期末练习卷二

练习卷二

一、 语言基础题（40分） 判断题（本题10分，每小题1分）

1. 所谓属性是指对象的名字、大小、位置和颜色等特性。

2. 变量尾部的%符号隐式声明变量为整型。

3. 事件过程通常由事件驱动执行的，而Sub 过程是通过过程调用执行的。

4. 子程序调用时,如果参数按址传递并且实参是变量，则子程序在执行时 对形参的修改不会影响到对应传递的实参变量的内容。

5. 控件数组的每个元素都有相同的Name 属性值和不同的Index 属性值，其中最小的Index 属性值为1。

6. Caption 是标签的缺省属性；Text 是文本框的缺省属性。

7. 滚动条控件、TextBox 控件、InputBox 函数都可被作为输入数据用。

8. 当影像框Image 控件的Stretch 属性为True 时，Image 控件能自动调整自已的尺寸以与显示的图片尺寸匹配。 9. CommonDialog 控件的Font 对话框打开之后，必须设置CommonDialog 控件的Flags 属性值。

10. 在Drive1_Change 过程中，语句Dir1.Path=Drive1.Drive 的作用是：当选取了不同的驱动器时，目录列表框中的目录项也随不同的驱

动器作相应的改变。 单选题（本题10分，每小题1分） 1. ____ 对象能使用Print 方法 [A]文本框

[B]图片框 [C]列表框 [D]框架

2. 长整数的取值范围为____ [A]-215 ～215

[B]-231 ～231-1 [C]-215 ～215–1 [D]-215 ～231-1 3. ____ 对象具有Clear 方法 [A]列表框 [B]图片框 [C]窗体 [D]框架 4. 要改变控件的宽度，应修改该控件的____ 属性

[A]Top [B]Left [C]Width [D]Height 5.

将命令按纽Command1设置为不可见，应修改该命令按纽的____ 属性

[A]Visible [B]Value [C]Caption [D]Enabled 6. 单击滚动条两端的任意一个滚动箭头，将触发该滚动条的____ 事件 [A]Scroll [B]KeyDown [C]Change [D]DragOver 7. 重新定义图片框控件的坐标系统，可采用该图片框的____ 方法

[A]Scale [B]ScaleX [C]ScaleY [D]SetFocus 8. 将通用对话框CommonDialog1的类型设置成另存为对话框，可调用该对话框的____ 方法

[A]ShowOpen

[B]ShowSave

[C]ShowColor

[D]ShowFont

9. Timer 函数的功能是：____

[A]获得系统当前的时间 [B]获得系统当前的日期和时间 [C]返回从午夜12点至当前时间的秒数 [D]触发Timer()事件

10. ____ 对象不能响应Click 事件

[A]列表框

[B]图片框 [C]窗体 [D]计时器

填空题（本题20分，每小题2分）

1. 写出Print Not (3 > 8), (3 > 9) Or (5 < 6) And (7 >= 0), (8 > 3) Xor (5 < 6) 语句执行后的结果____ ____。

2. 写出函数Int(Sqr(17))的值____ ____。

3. 将数学式

2

2

2

23

3y

x b a y ++⋅

+写成VB 表达式____ ____。 4. 把A 和B 都为正整数或同为负数写成VB 关系或逻辑表达式____ ____。 5. 写出表达式81\7 Mod 2^2的值____ ____。

6. 写出循环结构FOR I=30 TO 10 STEP –3 …Next I 的循环次数____ ____。

7. 假设列表框具有多选功能，你采用____ ____方法能判别出列表框中被选中的表项。

8. 程序运行时，单击水平滚动条右边的箭头时，滚动条的Value 属性值会____ ____。

9. Pi = 3.14159265 : Circle (1500, 1500), 1000, , -Pi / 3, -Pi / 2语句画出的是____ ____图形。

10.执行Line(500,500)-Step(1000,0) : Line -Step(0,1000) : Line –Step(-1000,0) : Line –Step(0,-1000) 语句画出的是____图形。 二、 程序阅读题（本题20分，每小题5分）

1. 写出命令按钮Command1单击后，程序运行结果。

Private Sub Command1_Click() Dim B As Integer, K As Integer

B = 1

For K = 1 To 5

B = B * K

If B >= 15 Then

Exit For

Else

K = K + 1 End If

Next K

Print K, B End Sub

2. 写出命令按钮Command1单击后，程序运行结果。

Private Sub Command1_Click( )

Dim X As Integer , Y As Integer, N As Integer , Z As Integer X = 1 : Y = 1

For N=1 To 6

Z = Func1(X , Y)

Print N , Z

Next

End Sub Private Function Func1( X As Integer , Y As Integer ) As Integer Dim N As Integer

Do While N <= 4

X = X + Y

N = N +1

Loop

Func1 = X

End Function

3.写出连击三次Cmd1，且分别输入9，3，16时文本框的内容

Private Sub Cmd1_Click()

Dim X As Integer

Dim Y As Integer

X=Val(Inputbox(“输入数值”))

If Int(Sqr(X))<>Sqr(X) Then

Y=X*X

Else

Y=Sqr(X)

End If

Txtresult.Text=”Y=”+Str(Y) End Sub

4. 写出连续单击Cmd1三次的结果

Dim A As Integer, Y As Integer

Private Sub Form_Load()

Open “C:\ Windows\Hh.Dat” For Out Put As #1

Close #1

End Sub

Private Sub Cmd1_Click()

Open “C:\ Windows\Hh.Dat” For Append As #1

Call Aa(5)

Y=Y+A

Print #1, “Y=”;Y,”A=”;A

Close

End Sub

Private Sub Aa(I As Integer) Dim X As Integer

X=1

Do Until X>I

A=A+X

X=X+3

Loop

End Sub

三、程序填空题（本题20分，每空2分）

1. 下列程序段实现在标签中自动依次显示"中国"，"浙江"，"杭州"，"西湖"。

Private Sub Form_Load()

Label1.Autosize = True: Label1.Fontsize = 24 Label1 = ---(1)---

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

Select Case Label1

C ase ---(2)---

Label1 = "中国"

C ase ---(3)---

Label1 = "浙江"

C ase ---(4)---

Label1 = "杭州"

C ase Else

Label1 = "西湖"

---(5)---

End Sub

2. 下列程序段首先由随机函数产生10个互不相同的二位随机整数，在窗体中显示。然后用冒泡法从大到小排序，也在窗体中显示。

Private Sub Form_Click()

Const N = 10

Dim A(1 To N) As Integer, B As Boolean

Dim I As Integer, J As Integer, Temp As Integer Form1.Print "原始数据"

Randomize

For I = 1 To N

B = False

Do While Not B

A(I) = Int(90 * Rnd + 10)

B = True

For J = 1 To ---(1)---

If A(I) = A(J) Then

---(2)---

Exit For

End If

Next J

Loop

Form1.Print A(I);

Next I

Form1.Print

I = 1

Do

For J = I + 1 To N