VB程序设计作业(三)答案

《VB程序设计》作业（三）

客观题部分：

选择题（每题1分，共15题）

1. 把字符串“123”转换为数值 123 时应该使用的函数是（ B ）。

A）Str B）Val C）Len D）Log

2. 在Sub过程被定义时，使用Private类型符进行修饰表示（ D ）。

A）此过程可以被任何其它过程调用

B）此过程不可以被任何其它过程调用

C）此过程只可以被本工程中的其它过程调用

D）此过程只可以被本模块中的其它过程调用

3. 以下叙述不正确的是（ D ）。

A） 在Sub过程中可以调用Function过程

B） 在用Call调用Sub过程时必须把参数放在括号里

C） 在Sub过程中可以嵌套定义Function

D） 用Static声明的过程中的局部变量都是Static类型。

4. 在窗体上绘制一个命令按钮Command1，然后编写如下程序：

Function Func(ByVal x As Integer, y As Integer)

y = x * y If y > 0 Then Func = x Else Func = y End If

End Function

Private Sub Command1_Click()

Dim a As Integer, b As Integer

a = 3 b = 4 c = Func(a, b) Print \"a=\"; a Print \"b=\"; b Print \"c=\"; c End Sub

程序运行后，单击命令按钮，输出结果为（ B ）。

A）a=3 b=12 c=3 B）a=3 b=4 c=3

C）a=3 b=4 c=12 D）a=3 b=12 c=12

5. 在窗体上绘制一个文本框Text1，然后编写事件过程：

Private Sub Text1_KeyPress(keyascii as integer) End Sub

若焦点位于文本框中，则能够触发KeyPress事件的操作是（ D ）。

A)单击鼠标B)双击文本框 C)鼠标滑过文本框 D)按下键盘上的某个键

6. 在窗体上绘制一个命令按钮Command1，两个标签Label1和Label2，然后编写如下程序代码：

Private x As Integer

Private Sub Command1_Click()

x = 5: y = 3 Call proc(x, y) Label1.Caption = x Label2.Caption = y End Sub

Private Sub proc(ByVal a As Integer, ByVal b As Integer)

x = a * a y = b + b End Sub

程序运行后，单击命令按钮，两个标签中显示的内容是（ C ）。

A)5和3 B)25和3 C)25和6 D)5和6

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

Private Sub Command1_Click()

a = InputBox(\"Enter the First integer\") b = InputBox(\"Enter the Second integer\") Print a + b End Sub

程序运行后，单击命令按钮，先后在两个输入对话框中分别输入123和456，则输出结果是（ B ）。

A）456 B）579 C）456123 D）123456

8. 如果要改变窗体的标题，需要设置窗体对象的（ B ）属性。

A）Caption B）Name C）BorderStyle D）BackColor

9. 为了取消窗体的最大化功能，需要把它的（ D ）属性设置为False。

A）ControlBox B）MinButton C）Enabled D）MaxButton

10. 为了使窗体在需要时被加载到内存中并同时显示在屏幕上，应该使用（ A ）方法。

A）Show B）Hide C）Load D）Unload

可以用一下几种方法：1：ShowWindow(hWnd,SW_HIDE )，hWnd 为窗口的句柄。

2：加载到可视区域以外。3：VB: 把窗体的VISIBLE 设为 False 加载用 Load form

11. 为了使文本框同时具有水平和垂直滚动条，应先将MultiLine属性设置为True，

然后再把ScrollBars 属性设置为（ C ）。A）0 B）1 C）2 D）3

12. 使文本框获得焦点的方法是（ C ）。

A）Change B）GotFocus C）SetFocus D）LostFocus

A.SetFocus 获取焦点 动作 B.GotFocus 获取焦点时 事件

C.LostFocus 失去焦点 事件 D.Change 文本框发生变化 事件

13. 表示滚动条控件取值范围最大值的属性是 （ A ）。

A）Max B）LargeChange C）Value D）Max—Min

14. 对以下控件叙述正确的是（ A ）。

A）组合框包含了列表框的功能。

B）列表框包含了组合框的功能。

C）组合框和列表框的功能完全不同。

D）组合框和列表框的功能完全相同。

15. 制作菜单的分隔栏时，标题名称只能是（ A ）。

A）－ B）… C）∶ D） ∽

主观题部分：

编程题（每题15分，共1题）

编程实现一个命令按钮command1的单击事件，单击该按钮后生成10个100到200之间的随机整数，输出其中能被5整除的数并求出它们的和。

Private Sub Command1_Click()

Dim a%(1 To 10), i%, s%, n%

Print \"产生的10个随机数为：\"

For i = 1 To 10

a(i) = Int(Rnd * 1 + 100)

Print a(i);

If i Mod 5 = 0 Then Print

Next i

Print \"其中能被5整除的数有：\"

For i = 1 To 10

If a(i) Mod 5 = 0 Then

Print a(i);

s = s + a(i)

End If

Next i

Print

Print \"它们的和为：\" & s

End Sub