习题1 1.填空题 (1) Visual basic是一种面向 的可视化程序设计语言,采取了 的编程机 制 (2) isual basic的对象主要分为 两大类 (3)在 isual Basic中,用来描述一个对象外部特征的量称之为对象的 (4)在 isual Basic中,设置或修改一个对象的属性的方法有两种,它们分别是 和 (5)在Ⅴ isual basic中,每个对象一般都能感知和接收多个不同的事件,并能对这些事件 作出响应,其响应方式就是通过调用执行一个与之相对应的 来实现的 (6)在Ⅴ isual basic中,事件过程的名字由 和 所构成。 (7)若用户单击了窗体Form1,则此时将被执行的事件过程的名字应为 (8)Ⅴ isual basic的集成开发环境主要由6个部分组成,它们分别是 2.简答题 (1)简述Ⅴ isual basic的特点 (2)什么是对象的属性、事件和方法? (3)Ⅴ isual Basic如何完成对用户操作的响应? (4)什么是事件?事件过程的一般格式是怎样的?如何编写对象的事件过程? 习题2 2.1说明下列哪些是Ⅴ sual basic合法的直接常量,并分别指出它们的类型 IEI 123D3 123456 ASDE “1234.5”#2004/10/7# 100# &O78 &H123 Ir l123! 345.54# 22下列数据哪些是变量,哪些是常量?是什么类型的常量? ame tt 11/1699” “120 #11/12/2004# 12.345 23下列符号中,哪些可以是Ⅴ sual basic的合法变量名? A123 a12 3 123a a 123 XYZ False Sin(x) 变量名 2.4把下列数学表达式写成 Visual basic表达式 (1)|x+y|+z5 (2)(1+xy) 10x+√3 40 (3) x (4) 2 45 +hn10 (5) (6) 2.5写出下列表达式的值: (1)123+23Mod10\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)a2/4 (3)a/2+3\2 (4)aMod3+b^3/c\5 2.7写出下列函数的值
习题 1 1. 填空题 (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) 什么是事件? 事件过程的一般格式是怎样的？如何编写对象的事件过程? 习题 2 2.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.345 2.3 下列符号中，哪些可以是 Visual Basic 的合法变量名？ A123 a12_3 123_a a,123 a 123 Integer XYZ False Sin(x) 变量名 sinx π 2.4 把下列数学表达式写成 Visual Basic 表达式： （1） 5 | x + y | +z （2） 6 (1+ xy) （3） xy 10x + 3y （4） a b b ac 2 4 2 − + − （5） 1 2 3 1 1 1 1 r r r + + （6） 1 ln 10 sin 45 10 + + + + x y e 2.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 \ 5 2.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)Ⅷa("16个加23个") (1l)Str(-459.55) (12) UCase("Visual Basic 2.8选择题 (1)可以同时删除字符串前导和尾部空格的函数是 A. Ltrim B. Rtrim C. Trim D Mid (2)函数Int(Rnd(1)*10)是在哪个范围产生随机整数 A.(0,1) B.(0,9) C.(1,10) D.(1,9) (3)数学式子sin25°写成Ⅴ sual Basic表达式是 A Sin25 BSin(25)C.Sin(25°)D.Sin(25*3.14/180) (4)表达式16/4-2^3*8/4Mod51的值是 A.14 B.4 C.20 (5)数学关系式3≤x<10表示成正确的ⅤB表达式为 A.3<=x<10 B x>=3 And x<10 C. x>=3 Or X<10 D. 3<=x And <10 (6)已知A=”12345678”,则表达式Val( Left(a,4)+Mida,4,2)的值是 A.123456 B.123445 D.6 (7)表达式Len("123程序设计ABC")的值是 B.14 (8)表达式LenB("123程序设计ABC")的值是 A.10 B.14 C.20 7 (9)下面正确的赋值语句是 A.x+y=30B.y=x+30 Cy=I'r*r D.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,z1 (11)赋值语句g=123+Md"123456″,3,2)执行后,变量g中的值是 A.“12334 C.12334 D.157 (12)赋值语句g=123&Md("123456”,3,2)执行后,变量g中的值是 A.“12334” B.123 C.12334 D.157 (13)如果ⅹ是一个正实数,对x的第3位小数四舍五入的表达式是 A.0.01*Int(x+0.005) B.0.01*Int(100*(x+0.005)) C.0.01*In(100*(x+0.05)) D.0.01*In(x+0.05 (14)下列哪组语句可以将变量a,b的值互换」 Aa=b: b=a B a=a+b: b=a-b a=a-b C a=cc=b: b=a D.a=(a+b/2:b=a-b)/2 (15)下列四个字符串进行比较,最小的是 A.“9977” B.“Bl23” C.“ Basic” D.DATA” (16)下列逻辑表达式中,其值为True的是 A.“b”>“ABC”B.“THAT”>“THE”C.9>“H”D.“A”>“a” (17)表达式a+b=c是 A.赋值表达式B.字符表达式 C.算术表达式D.关系表达式 (18)在下列表达式中,非法的是 Aa=btc B a>b+c (19)语句 Print format(HELO”,“<”)的输出结果是 A HELLO B. hello C. He D. he (20) Msgbox函数的返回值的类型是 整数 B.字符串 C.逻辑值 D.日期 (21)用语句DmA(-3to5) As Long定义的数组元素个数是 D.10 (22)用语句DimA(3,-3to0,3to6) As Long定义的数组元素个数是
（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. Ltrim B. Rtrim C. Trim D. Mid （2）函数 Int(Rnd(1) * 10)是在哪个范围产生随机整数 。 A. (0,1) B. (0,9) C. (1,10) D. (1,9) （3）数学式子 sin25º写成 Visual Basic 表达式是 。 A.Sin25 B. Sin(25) C. Sin(25º) D. Sin(25*3.14/180) （4）表达式 16/4 – 2^3 * 8/4 Mod 5\2 的值是 。 A. 14 B. 4 C. 20 D. 2 （5）数学关系式 3 x 10 表示成正确的 VB 表达式为 。 A. 3<= x <10 B. x >= 3 And x<10 C. x>=3 Or x<10 D. 3<= x And <10 （6）已知 A=”12345678”，则表达式 Val(Left(a, 4) + Mid(a, 4, 2))的值是 。 A. 123456 B. 123445 C. 8 D. 6 （7）表达式 Len("123 程序设计 ABC")的值是 。 A. 10 B. 14 C. 20 D. 17 （8）表达式 LenB("123 程序设计 ABC")的值是 。 A. 10 B. 14 C. 20 D. 17 （9）下面正确的赋值语句是 。 A. x+y=30 B. y=x+30 C. y=π*r*r D. 3y=x+1 （10）为了给 x，y，z 三个变量赋初值 1，正确的赋值语句是 。 A. x=1: y=1: z=1 B. x=1, y=1, z=1 C. x=y=z=1 D. x,y,z=1 （11）赋值语句 g = 123 + Mid("123456", 3, 2)执行后，变量 g 中的值是 。 A. “12334” B. 123 C. 12334 D. 157 （12）赋值语句 g = 123 & Mid("123456", 3, 2)执行后，变量 g 中的值是 。 A. “12334” B. 123 C. 12334 D. 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=a B. a=a+b: b=a-b: a=a-b C. a=c: c=b: b=a D. a=(a+b)/2: b=(a-b)/2 （15）下列四个字符串进行比较，最小的是 。 A. “9977” B. “B123” C. “Basic” D. “DATA” （16）下列逻辑表达式中，其值为 True 的是 。 A. “b” > “ABC” B. “THAT” > “THE” C. 9 > “H” D. “A” > “a” （17）表达式 a+b=c 是 。 A. 赋值表达式 B. 字符表达式 C. 算术表达式 D. 关系表达式 （18）在下列表达式中，非法的是 。 A. a=b+c B. a>b+c C. a≠b>c D. a<b+c （19）语句 Print Format (“HELLO”, “<”) 的输出结果是 。 A. HELLO B. hello C. He D. he （20）MsgBox 函数的返回值的类型是 。 A. 整数 B. 字符串 C. 逻辑值 D. 日期 （21）用语句 Dim A(-3 to 5) As Long 定义的数组元素个数是 。 A. 7 B. 8 C. 9 D.10 （22）用语句 Dim A(3, -3 to 0，3 to 6) As Long 定义的数组元素个数是
29程序阅读题 (1)执行下面程序段后,变量c$的值为 a="学习 Visual basic programming" cS=b&"喜欢"& CAse(Mid(a,10,5) (2)执行下面程序后,显示的结果是 Private Sub Form Click Dim x As Integer nt( Rnd)+ 4 Select case x Case 5 Print"优秀 良好 及格 Case el Print"不及格 End Select End sub (3)执行下面程序段后,变量x的值为 Di Dimx as ir For i= 1 To 20 Step 3 (4)执行下面程序后,输出的结果是 Private Sub Form Click Fori= 1 To 3 F I To =x+1 Next End Sub (5)执行下面程序后,输出的结果是 Private Sub Form Click( Dim x As Integer Do While x 50 Print"xe' End Sub (6)执行下面程序后,输出的结果是 Private Sub Form Click Dim x as in ForI= 1 To
A. 12 B. 27 C. 64 D.80 2.9 程序阅读题 （１）执行下面程序段后，变量 c$的值为 。 a = "学习 Visual Basic Programming" b = "我们" c$ = b & "喜欢" & UCase(Mid(a, 10, 5)) （２）执行下面程序后,显示的结果是 。 Private Sub Form_Click() Dim x As Integer x = Int(Rnd) + 4 Select Case x Case 5 Print "优秀" Case 4 Print "良好" Case 3 Print "及格" Case Else Print "不及格" End Select End Sub （３）执行下面程序段后，变量ｘ的值为 。 Dim x As Integer x = 5 For i = 1 To 20 Step 3 x = x + i \ 5 Next i （４）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim x As Integer For i = 1 To 3 For j = 1 To i For k = j To 3 x = x + 1 Next k Next j Next i Print x End Sub （５）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim x As Integer x = 0 Do While x < 50 x = (x + 2) * (x + 3) n = n + 1 Loop Print "x="; x; "n="; n End Sub （６）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim x As Integer, a As Integer x = 0 For j = 1 To 5 a = a + j Next j
Prim End Sub (7)以下程序的循环次数是 orj=8 To 35 Step 3 (8)执行下面程序输入4后,程序输出的结果是 Private Sub Form Click Input Box(x) fx 2<15 Then y=1/ Ifx 2>15 Then=x2+ I Print End Sub (9)执行下面程序后,输出的结果是 Private Sub Form Click Dim sum as intege sum%=19 sum =2.23 Print sum%: sum End Sub (10)执行下面程序后,输出的结果是 Private Sub Form Click Do Loop Until a >100 Print a End Sub (11)执行下面程序后,输出的结果是 Private Sub Form Click a="ABCD b="efgh d=CAse(b) Print c+d End Sub (12)执行下面程序后,输出的结果是 Private Sub Form Click x=2y=4:z=6 End Sub (13)执行下面程序后,输出的结果是 Private Sub Form Click Dim count As Integer While count 20 count= count +1 Wend Print count End Sub (14)执行下面程序后,输出的结果是 Private Sub Form Click "*";b="$
x = j Print x, a End Sub （７）以下程序的循环次数是 。 For j = 8 To 35 Step 3 Print j; Next j （８）执行下面程序输入４后，程序输出的结果是 。 Private Sub Form_Click() x = InputBox(x) If x ^ 2 < 15 Then y = 1 / x If x ^ 2 > 15 Then y = x ^ 2 + 1 Print y End Sub （９）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim sum As Integer sum% = 19 sum = 2.23 Print sum%; sum End Sub （10）执行下面程序后，输出的结果是 。 Private Sub Form_Click() a = 100 Do s = s + a a = a + 1 Loop Until a > 100 Print a End Sub (11) 执行下面程序后，输出的结果是 。 Private Sub Form_Click() a = "ABCD" b = "efgh" c = LCase(a) d = UCase(b) Print c + d End Sub （12） 执行下面程序后，输出的结果是 。 Private Sub Form_Click() x = 2: y = 4: z = 6 x = y: y = z: z = x Print x; y; z End Sub （13）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim count As Integer count = 0 While count < 20 count = count + 1 Wend Print count End Sub （14）执行下面程序后，输出的结果是 。 Private Sub Form_Click() a = "*": b = "$
For k= 1 To 3 Str(Len(a)+k)&b Print x: End Sub (15)执行下面程序后,输出的结果是 Private Sub Form Click k=0:a=0 Do While k <70 k=k+2 k=k*k+k Print a End Sub (16)执行下面程序后,输出的结果是 Private Sub Form Click Dim M(10)As Long, N(10)As Long For t=1 To 5 N()=2*i+t Next t Print N(: M(i) End sub A.311 B.315 C.1113 D.153 (17)执行下面程序后,输出的结果是 Private Sub Form Click Dim ao Aray(1,2,3,4) For i=3 To 0 Step-1 a()*j Next i Print s End Sub A.1234 B.4321 C.12 D.34 (18)执行下面程序后,输出的结果是 Private Sub Form Click Dim M(10) For k=1 To 10 M(k)=11-k Print M(2+ M(x)) End Sub A.2 B.3 C.4 D.5 (19)执行下面程序后,输出的结果是 Private Sub Form Click Dim a(10)As Integer, p(3)As Integer I To 10 a(1)=1 Next i For 1= 1 To 3
For k = 1 To 3 x = Str(Len(a) + k) & b Print x; Next k End Sub （15）执行下面程序后，输出的结果是 。 Private Sub Form_Click() k = 0: a = 0 Do While k < 70 k = k + 2 k = k * k + k a = a + k Loop Print a End Sub （16）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim M(10) As Long, N(10) As Long i = 3 For t = 1 To 5 M(t) = t N(i) = 2 * i + t Next t Print N(i); M(i) End Sub A. 3 11 B. 3 15 C. 11 13 D. 15 3 （17）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a() a = Array(1, 2, 3, 4) j = 1 For i = 3 To 0 Step -1 s = s + a(i) * j j = j * 10 Next i Print s End Sub A. 1234 B.4321 C. 12 D. 34 （18）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim M(10) For k = 1 To 10 M(k) = 11 - k Next k x = 6 Print M(2 + M(x)) End Sub A. 2 B. 3 C. 4 D. 5 （19）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a(10) As Integer, p(3) As Integer k = 5 For i = 1 To 10 a(i) = i Next i For i = 1 To 3 p(i) = a(i * i)