第4章VB高级语言编程技巧

1、第4章 VB高级语言编程技巧一、单项选择题1Dim A（1 To 6，1 To 5）定义的数组包含的元素个数是（ ）。A30 B25C42 D动态变化答案：A2能够实现“窗体总在最前端”界面效果的API函数是（ ）。ASetWindowPos BSetWindowAPICSetWindowShape DeclareAPI答案：A3如果创建了命令按钮数组控件 ，那么Click事件的参数是（ ）。AIndex BCaptionCTag D没有参数答案：A4如果要在窗体代码编辑器的“通用”部分定义私有Sub过程，则正确的语句是（ ）。APublic Sub BPublic FnctionCPriva

2、te Sub DPrivate Function答案：C5键盘事件的执行顺序是（ ）。AKeyPress，KeyDown，KeyUp BKeyDown，KeyPress，KeyUpCKeyUp，KeyDown，KeyPress DKeyUp，KeyPress，KeyDown答案：B二、填空题1通常可将文本框控件的 属性设置为True，以禁止键盘输入。答案：Locked2在程序运行过程中可以使用 语句修改数组的上下界。答案：ReDim3如果不希望某个控件获得焦点，则可以将它的 属性设置为False。答案：TabStop4Dim A（1 To 6）定义的数组包含 个元素。答案：6三、问答题1为什么

3、要编写自定义过程？答：因为自地那以过程有以下好处：1）程规模小，容易调用和维护。2）过程可以被反复调用，避免了重复编码，加强了可重用性。3）过程是由处理某一特定功能的代码组成，是一个相对独立的实体，将应用程序划分为这样一个实体，会使程序结构简洁，便于阅读维护。2简述参数传递机制。答：VB中参数传递机制有两种：一种是引用参数传递（默认），另一种是按值传递参数。引用参数传递是将参数变量的内存地址传递给Sub或Function过程，过程通过内存地址访问实际参数的内容，从而可以方便地改变实际参数的值。按值传递参数是只把参数的数值传递给过程，也称传值方式。即传递给过程的只是实际参数的副本，即使过程调用时

4、改变了形式参数的值，实际参数也不会改变。如果按值传递参数，需要在定义过程时在形式参数前面加是G关键字ByVal。3什么是数组，如何声明，使用数组有什么好处？答：VB把一组具有同一名字、不同下标的变量称为数组，它实际上是一组具有相同类型的变量的集合。数组分为静态数组和动态数组。定义静态数组的方法与变量的声明方法基本相同。有两种声明方法：方法1：Dim 数组名 （上界） As 数据类型方法2：Dim 数组名（下界 To 上界） As 数据类型。使用数组可以使程序代码更清晰、简洁。，可以方便灵活地组织数据。4什么是焦点，设置控件焦点有哪些方法？答：窗体或控件（对象）的焦点是对象活动的标志，只有获得焦

5、点的窗体或控件才能接受键盘事件。设置控件焦点的两种方法：SetFocus方法：控件名.SeFocus按预先设计好的顺序，改变控件的TabIndex的值。5请简述多功能计算器与第3章计算器在功能上的区别。答：区别有以下几点：1）能将计算结果转换为十六进制。2）将数字键设置为命令按钮组，使“0”“9”数字按键的Index属性分别为0、1、2、3、4、5、6、7、8、9。用按键的Index来识别输入的数字。3）禁止键盘在文本框中输入数据。4）使计算器总是悬浮在其它窗体上。 四、程序设计题1焦点切换程序。在一窗体上创建一文本框数组，并设置好它们的TabIndex属性，然后使用SendKeys语句编写文

6、本框控件的KeyPress事件。当运行时，当按下回车键后，控件的叫掉将自动切换。解：界面如下图所示：程序代码：Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer) Select Case Index Case 0 If KeyAscii = 13 Then SendKeys "tab" End If Case 1 If KeyAscii = 13 Then SendKeys "tab" End If Case 2 If KeyAscii = 13 Then SendKeys &

7、quot;tab" End If Case 3 If KeyAscii = 13 Then Text1(0).SetFocus End If End SelectEnd Sub2键盘按键程序。请使用MsgBox过程对窗体的KeyDown和KeyPress事件编程，以显示按下、放开一个键时的事情发生过程。比如，当按下了A键时，程序界面如下图所示。答案：程序代码：Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) MsgBox "KeyDown事件发生了，KeyCode的值是：" _ &

8、; KeyCode & Chr(13) & _ "Shift参数的值是：" & Shift, 0, "键盘按键程序"End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer) MsgBox "KeyPress事件发生了，KeyAscii的值是：" _ & KeyAscii, 0, "键盘按键程序"End Sub4随机序列排序程序。使用第3章学过的Rnd函数生成10个099之间的随机整数，并按从小到大的顺序排序，最后在列表框控件中列出。

9、本程序主要使用数组、自定义过程、引用传递参数等知识。程序运行结果如下图所示。答案：程序代码：Private Sub MyRnd(B() As Integer) Dim i As Integer Randomize For i = 1 To 10 B(i) = Int(Rnd * 100) MsgBox "产生的第" & i & "个随机数是" & B(i), 0, "当前产生的随机数" Next iEnd SubPrivate Sub Command1_Click() Dim A(1 To 10) As Integer Dim i As Integer MyRnd A For i = 1 To 10 For j = i