习题 11. 填空题(1) Visual Basic 是一种面向 的可视化程序设计语言，采取了 的编程机制。

(2) Visual Basic 的对象主要分为 和 两大类。

(3) 在 Visual Basic 中，用来描述一个对象外部特征的量称之为对象的 。

(4) 在 Visual Basic 中，设置或修改一个对象的属性的方法有两种，它们分别是： 和 。

(5) 在 Visual Basic 中，每个对象一般都能感知和接收多个不同的事件，并能对这些事件作出响应，其响应方式就是通过调用执行一个与之相对应的 来实现的。

(6) 在 Visual Basic 中，事件过程的名字由 、 和 所构成。

(7) 若用户单击了窗体 Form1，则此时将被执行的事件过程的名字应为：。

(8) Visual Basic 的集成开发环境主要由6个部分组成，它们分别是： 、 、 、 、 、 。

2.简答题(1) 简述Visual Basic 的特点(2) 什么是对象的属性、事件和方法？(3) Visual Basic 如何完成对用户操作的响应?(4) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程?习题 22.1 说明下列哪些是Visual Basic 合法的直接常量，并分别指出它们的类型。

100.0 %100 1E1 123D3 123,456 0100“ASDF” “1234.5” #2004/10/7# 100# π&O78 &H123 True T -1123! 345.54#2.2 下列数据哪些是变量，哪些是常量？是什么类型的常量？Name “name” False ff “11/16/99” cj“120” n #11/12/2004# 12.3452.3 下列符号中，哪些可以是Visual Basic 的合法变量名？A123 a12_3 123_a a,123 a 123 IntegerXYZ False Sin(x) 变量名 sinx π2.4 把下列数学表达式写成Visual Basic 表达式：（1）5||z y x ++ （2）6)1(xy +（3）xy y x 310+ （4）a acb b 242-+-（5）3211111r r r ++ （6）110ln 45sin 10++++y x e2.5 写出下列表达式的值：（1）123 + 23 Mod 10 \ 7 + Asc("A")（2）Int(68.555 * 100 + 0.5) / 100（3）#11/22/2004# - 10（4）"ZXY" & 123 & "abc"2.6 设a=7，b=3，c=4，求下列表达式的值：（1）a + 3 * c （2）a ^ 2 / 4（3）a / 2 + 3 \ 2 （4）a Mod 3 + b ^ 3 / c \ 52.7 写出下列函数的值：（1）Int(-3.14159) （2）Fix(-3.14159)（3）Sqr(Sqr(81)) （4）Len("Visual Basic 程序设计")（5）Int(Abs(99 - 100) / 2) （6）Sgn(7 * 3 + 2)（7）LCase("Hellow VB!") （8）Mid("Hellow VB!", 4, 3)（9）Left("Hellow VB!", 3) （10）Val("16个加23个")（11）Str(-459.55) （12）UCase("Visual Basic")2.8 选择题（1）可以同时删除字符串前导和尾部空格的函数是 。

A. LtrimB. RtrimC. TrimD. Mid（2）函数Int(Rnd(1) * 10)是在哪个范围产生随机整数 。

A. (0,1)B. (0,9)C. (1,10)D. (1,9)（3）数学式子sin25º写成Visual Basic 表达式是 。

A.Sin25B. Sin(25)C. Sin(25º)D. Sin(25*3.14/180)（4）表达式16/4 – 2^3 * 8/4 Mod 5\2的值是 。

A. 14B. 4C. 20D. 2（5）数学关系式103<≤x 表示成正确的VB 表达式为 。

A. 3<= x <10B. x >= 3 And x<10C. x>=3 Or x<10D. 3<= x And <10（6）已知A=”12345678”，则表达式Val(Left(a, 4) + Mid(a, 4, 2))的值是 。

A. 123456B. 123445C. 8D. 6（7）表达式Len("123程序设计ABC")的值是 。

A. 10B. 14C. 20D. 17（8）表达式LenB("123程序设计ABC")的值是 。

A. 10B. 14C. 20D. 17（9）下面正确的赋值语句是 。

A. x+y=30B. y=x+30C. y=π*r*rD. 3y=x+1（10）为了给x ，y ，z 三个变量赋初值1，正确的赋值语句是 。

A. x=1: y=1: z=1B. x=1, y=1, z=1C. x=y=z=1D. x,y,z=1（11）赋值语句g = 123 + Mid("123456", 3, 2)执行后，变量g 中的值是 。

A. “12334”B. 123C. 12334D. 157（12）赋值语句g = 123 & Mid("123456", 3, 2)执行后，变量g 中的值是 。

A. “12334”B. 123C. 12334D. 157（13）如果x 是一个正实数，对x 的第3位小数四舍五入的表达式是 。

A. 0.01 * Int(x + 0.005)B. 0.01 * Int(100 * (x + 0.005))C. 0.01 * Int(100 * (x + 0.05))D. 0.01 * Int(x + 0.05)（14）下列哪组语句可以将变量a ，b 的值互换 。

A. a=b: b=aB. a=a+b: b=a-b: a=a-bC. a=c: c=b: b=aD. a=(a+b)/2: b=(a-b)/2（15）下列四个字符串进行比较，最小的是 。

A. “9977”B. “B123”C. “Basic”D. “DATA”（16）下列逻辑表达式中，其值为True 的是 。

A. “b” > “ABC”B. “THA T” > “THE”C. 9 > “H”D. “A” > “a”（17）表达式a+b=c 是 。

A. 赋值表达式B. 字符表达式C. 算术表达式D. 关系表达式（18）在下列表达式中，非法的是 。

A. a=b+cB. a>b+cC. a ≠b>cD. a<b+c（19）语句Print Format (“HELLO”, “<”) 的输出结果是 。

A. HELLOB. helloC. HeD. he（20）MsgBox 函数的返回值的类型是 。

A. 整数B. 字符串C. 逻辑值D. 日期（21）用语句Dim A(-3 to 5) As Long 定义的数组元素个数是 。

A. 7B. 8C. 9D.10（22）用语句Dim A(3, -3 to 0，3 to 6) As Long 定义的数组元素个数是 。

A. 12B. 27C. 64D.802.9 程序阅读题（１）执行下面程序段后，变量c$的值为。

a = "学习Visual Basic Programming"b = "我们"c$ = b & "喜欢" & UCase(Mid(a, 10, 5))（２）执行下面程序后,显示的结果是。

Private Sub Form_Click()Dim x As Integerx = Int(Rnd) + 4Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "及格"Case ElsePrint "不及格"End SelectEnd Sub（３）执行下面程序段后，变量ｘ的值为。

Dim x As Integerx = 5For i = 1 To 20 Step 3x = x + i \ 5Next i（４）执行下面程序后，输出的结果是。

Private Sub Form_Click()Dim x As IntegerFor i = 1 To 3For j = 1 To iFor k = j To 3x = x + 1Next kNext jNext iPrint xEnd Sub（５）执行下面程序后，输出的结果是。

Private Sub Form_Click()Dim x As Integerx = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1LoopPrint "x="; x; "n="; nEnd Sub（６）执行下面程序后，输出的结果是。

Private Sub Form_Click()Dim x As Integer, a As Integerx = 0For j = 1 To 5a = a + jNext jx = jPrint x, aEnd Sub（７）以下程序的循环次数是。

For j = 8 To 35 Step 3Print j;Next j（８）执行下面程序输入４后，程序输出的结果是。

Private Sub Form_Click()x = InputBox(x)If x ^ 2 < 15 Then y = 1 / xIf x ^ 2 > 15 Then y = x ^ 2 + 1Print yEnd Sub（９）执行下面程序后，输出的结果是。

Private Sub Form_Click()Dim sum As Integersum% = 19sum = 2.23Print sum%; sumEnd Sub（10）执行下面程序后，输出的结果是。

Private Sub Form_Click()a = 100Dos = s + aa = a + 1Loop Until a > 100Print aEnd Sub(11) 执行下面程序后，输出的结果是。