习题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=3 And x=3 Or X“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= 3 And x=3 Or x “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 215 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 = 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)
Next i For i= 1 To 3 k=k+p()*2 Next i Print k End Sub A.33 B.28 D.37 (20)执行下面程序后,输出的结果是 Private Sub Form Click Dim a(10, 10)As Integer For i=2 To 4 Fori=4 To 5 a(,j)=1* Next i Print a(2,5)+a(3,4)+a( End Sub A.22 B.42 C.32 D.52 2.10填空题 (1)填空,使得程序运行后,能在窗体上打印如图所示的图案。 Private Sub Form Click Print Print Tab(8-1) 与,Form1 1 To 8 Print " Print 本本本冰率 End Sub (2)下面程序的功能是利用随机函数产生1个(1之的随机整数,打印其中 能被5整除的数并求其和,请用正确的内容填空。 Private Sub Form Click Dim sum As Integer, x As Integer For i= 1 To 10 =Int(Rnd*100+1) The sum= sum +x End lf If sum <>0 Then Print "sum=. sum End If End Sub (3)用正确的内容填空,使得以下程序能够找出50以内所有能构成直角三角形的整 Private Sub Form Click Dim a as integer. b As Integer Dim c as single For a=1 To 50 For b= a To 50 Sqr(a 2+b 2) (3) Then Print a, b, c Next b
Next i For i = 1 To 3 k = k + p(i) * 2 Next i Print k End Sub A. 33 B. 28 C. 35 D. 37 （20）执行下面程序后，输出的结果是 。 Private Sub Form_Click() Dim a(10, 10) As Integer For i = 2 To 4 For j = 4 To 5 a(i, j) = i * j Next j Next i Print a(2, 5) + a(3, 4) + a(4, 5) End Sub A. 22 B. 42 C. 32 D. 52 2.10 填空题 （1） 填空，使得程序运行后，能在窗体上打印如图所示的图案。 Private Sub Form_Click() Print For i = 1 To 4 Print Tab(8 - i); For j = 1 To 8 Print "*"; （1） Print Next i End Sub （2） 下面程序的功能是利用随机函数产生 10 个（1~100）之间的随机整数，打印其中 能被 5 整除的数并求其和，请用正确的内容填空。 Private Sub Form_Click() Dim sum As Integer, x As Integer For i = 1 To 10 x = Int(Rnd * 100 + 1) If （2） = 0 Then sum = sum + x Print "x="; x End If Next i If sum <> 0 Then Print "sum="; sum End If End Sub （3） 用正确的内容填空，使得以下程序能够找出 50 以内所有能构成直角三角形的整 数。 Private Sub Form_Click() Dim a As Integer, b As Integer Dim c As Single For a = 1 To 50 For b = a To 50 c = Sqr(a ^ 2 + b ^ 2) If （3） Then Print a, b, c Next b Next a
(4)用正确的内容填空,使得以下程序能够计算1+1/3+1/5+……+1/(2N+1),直到 l/(2N+1)小于105。 rivate Sub Form Click sum=l: n= I 1/n sum = sum temp If tempc] Then Elself Max cj Then End If End if sum =sum cI Next i aver Print"该选手的成绩为:",aver End Sub (6)以下程序用随机函数模拟掷骰子,统计掷50次骰子出现各点的次数,请用正确的 内容填空。 Private Sub Form Click Dim a(I To 6)As Integer Randomize 1To50 a(n)=a(n)+1 For i= 1 to 6 Print i;"点出现";a(i),"次 Next i End Sub 2.11编程题 (1)编写程序将1~100自然数中能被3和5同时整除的数打印出来,并统计其个数。 (2)我国现有人口14亿,设年增长率为0.75%,编写程序,计算多少年后将增加到 16亿 (3)编写程序输出100~200之间不能被3整除的自然数 (4)设计程序,求s=1+(1+2)+(1+2+3)+……+(1+2+3+…+n)的值
End Sub （4） 用正确的内容填空，使得以下程序能够计算 1+1/3+1/5+……+1/(2N+1)，直到 1/(2N+1)小于 10-5。 Private Sub Form_Click() sum = 1: n = 1 Do n = n + 2 temp = 1 / n sum = sum + temp If temp cj Then Min = cj ElseIf Max < cj Then Max = cj End If End If sum = sum + cj Next i aver = （5） Print "该选手的成绩为：", aver End Sub （6） 以下程序用随机函数模拟掷骰子，统计掷 50 次骰子出现各点的次数，请用正确的 内容填空。 Private Sub Form_Click() Dim a(1 To 6) As Integer Randomize For i = 1 To 50 n = （6） a(n) = a(n) + 1 Next i For i = 1 To 6 Print i; "点出现"; a(i); "次" Next i End Sub 2.11 编程题 （1） 编写程序将 1~100 自然数中能被 3 和 5 同时整除的数打印出来，并统计其个数。 （2） 我国现有人口 14 亿，设年增长率为 0.75％，编写程序，计算多少年后将增加到 16 亿。 （3） 编写程序输出 100~200 之间不能被 3 整除的自然数。 （4） 设计程序，求 s=1+(1+2)+(1+2+3)+……+(1+2+3+……+n)的值
(5)编写程序计算S的近似值,直到最后一项的绝对值小于105为止。并用 Print方法 输出计算结果。其中 S=1 234 K (6)假设某项税收的规定如下: 收入在500元以内,免征 收入在500~1000元内,超过500元的部分纳税3%; 收入超过1000元时,超过的部分纳税4% 收入超过2000元时,超过的部分纳税5% 试编程实现上述操作 (7)编写程序,用 Input Box函数输入3个正整数,打印其中最大的数。 (8)编写程序,任意输入三个整数A,B,C,按由大到小顺序把它们打印出来。 smx≈x一一 (9)编写程序,计算 3!5! (2n-1)直到第n项的 绝对值小于108 (10)分别编写两个程序,在窗体上分别打印出如下所示的图形。 水本水水 *水木 (11)编写程 内的所有 指一个数恰好等于它的因子之 和,如6的因子为1、2、3,而6=1+2+3,因而6是完数 (12)一只小球从10米高度上自由落下,每次落地后反弹回原高度的40%,再落下 编程计算小球在第8次落地时,共计经过了多少米? (13)编写程序,求出所有小于或等于100的自然数对。自然数对是指两个自然数和与 差都是平方数,如8和17的和为8+17=25与其差17-89都是平方数,则8和17 就称为自然数对 (14)找出100~999之间的所有“水仙花数”。所谓“水仙花数”是一个三位数,其各 位数的立方各等于该数本身,例:153=13+53+33,故153是“水仙花数”。 (15)编写程序,在窗体上打印下图所示的“数字金字塔”: 121 12321 1234321 123454321 12345654321 1234567654321 123456787654321 12345678987654321 (16)用一元纸币兑换一分、二分和五分的硬币,要求兑换硬币的总数为50枚。编程列 出所有可能的兑换方案。 (17)编写程序,建立并输出一个10×10的矩阵,该矩阵两条对角线上的元素为1,其 余元素均为0
（5） 编写程序计算 S 的近似值，直到最后一项的绝对值小于 10-5 为止。并用 Print 方法 输出计算结果。其中： K S k 1 ( 1) 4 1 3 1 2 1 1 +1 = − + − ++ − （6） 假设某项税收的规定如下： ⚫ 收入在 500 元以内，免征； ⚫ 收入在 500～1000 元内，超过 500 元的部分纳税 3%； ⚫ 收入超过 1000 元时，超过的部分纳税 4%； ⚫ 收入超过 2000 元时，超过的部分纳税 5%。 试编程实现上述操作。 （7） 编写程序，用 InputBox 函数输入 3 个正整数，打印其中最大的数。 （8） 编写程序，任意输入三个整数 A，B，C，按由大到小顺序把它们打印出来。 （9） 编写程序，计算 (2 1)! ( 1) 3! 5! sin 2 1 1 3 5 − − + + + − − − n x x x x x n n 直到第 n 项的 绝对值小于 10-8 （10） 分别编写两个程序，在窗体上分别打印出如下所示的图形。 （11） 编写程序，输出 1000 之内的所有完数。“完数”是指一个数恰好等于它的因子之 和，如 6 的因子为 1、2、3，而 6=1+2+3，因而 6 是完数。 （12） 一只小球从 10 米高度上自由落下，每次落地后反弹回原高度的 40％，再落下。 编程计算小球在第 8 次落地时，共计经过了多少米？ （13） 编写程序，求出所有小于或等于 100 的自然数对。自然数对是指两个自然数和与 差都是平方数，如 8 和 17 的和为 8+17=25 与其差 17-8=9 都是平方数，则 8 和 17 就称为自然数对。 （14） 找出 100~999 之间的所有“水仙花数”。 所谓“水仙花数”是一个三位数，其各 位数的立方各等于该数本身，例：153=13+53+33，故 153 是“水仙花数”。 （15） 编写程序，在窗体上打印下图所示的“数字金字塔”： （16） 用一元纸币兑换一分、二分和五分的硬币，要求兑换硬币的总数为 50 枚。编程列 出所有可能的兑换方案。 （17） 编写程序，建立并输出一个 10×10 的矩阵，该矩阵两条对角线上的元素为 1，其 余元素均为 0
习题3 、选择题 (1)窗体的标题条显示内容由窗体对象的()属性决定 A Back Color B BackStyle C. Text (2)窗体的示意图标可用( )属性来设置 A. Picture B. Image C Icon D. Mouselcon (3)若要取消窗体的最大化功能,则可设置()属性为 False来实现 A ControlBox B. Min Button C Max Button D. Enabled (4)窗体的风格由窗体对象的( 属性来设置 A Back Style B Border Style C WindowState D FillStyle (5)若要以程序代码方式设置在窗体中显示文本的字体大小,则可用窗体对象的()属性 来实现。 A FontName B Font C. FontS ize Fontbold (6)若要设置文本的显示颜色,则可用()属性来实现 A Backcolor B. Fore Color FillColor D. BackStyle (7)若要使用窗体启动时,位于屏幕的中间,则可通过()属性来设置。 B. Left C. StartUp Position D. WindowState (8)若要禁止窗体被移动,则可设置窗体的( )属性为 False来实现 A Move B Moveable C. MinButton D. Control Box (9)若要将窗体隐藏起来,则实现的方法为( A Hide B UnLoad C Show D WindowState (10)命令钮的标题文字由 )属性来设置 A Text B Caption C Nam D.(名称) (11)命令按钮标题文字的下划线,可通过()符号来设置 D\> (12)若要将某命令按钮设置为默认命令钮,则可设置( )属性为True来实现 A value B Cancel C. Default D. Enable (13)若要设置命令钮的工具提示,则可通过( 属性来设置 A Caption B C. value D ToolTip Text (14)若要使用某命令按钮获得控制焦点,则可使用( )方法来设置。 A Refresh B. Setfocus C GotFocus D. Value (15)若要使用命令钮在运行时不可见,则可通过设置(属性的取值来实现 A. Visible B. Enabled C. Defau D. Value (16)在运行时,若要调用某命令钮的 Click事件过程,则可设置该命令按钮对象的()属 性为True来实现 A Enabled B. value C. Default D. Cancel (17)标签框的边框,由( )属性的设置值决定 A Border Style B Back Style C Back Color D AutoSize (18)若要使用标签框的大小自动与所显示的文本相适应,则可通过设置()属性的值为 True来实现 A Auto Size B Alignment C Appearance D Visible (19)若要设置或返回文本框中的文本,则可通过文本框对象的()属性来实现 A. Captio B. Text C.(名称) D. Na (20)若要使用文本框成为只读文本框,可通过设置()属性值为True来实现。 A ReadOnly B Lock D. Enabled (21)若要设置定时器控件的定时时间,可通过( 属性来设置 A. Interval B. Value C. Enabled D. Text (22)若要多列显示列表项,可通过设置列表框对象的( )属性来实现 A Columns B MultiSelect C Style D. List (23)若要获知当前列表项的数目,可通过访问()属性来实现 A. List B. ListIndex C. ListCount D. Text (24)若要向列表框新增列表项,则可使用的方法是( A. Add B. Remove C Clear D. AddItem
习题 3 一、选择题 (1) 窗体的标题条显示内容由窗体对象的( )属性决定。 A. BackColor B. BackStyle C. Text D. Caption (2) 窗体的示意图标可用( )属性来设置。 A. Picture B. Image C. Icon D. MouseIcon (3) 若要取消窗体的最大化功能，则可设置( )属性为 False 来实现。 A. ControlBox B. MinButton C. MaxButton D. Enabled (4) 窗体的风格由窗体对象的( )属性来设置。 A. BackStyle B. BorderStyle C. WindowState D. FillStyle (5) 若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的( )属性 来实现。 A.FontName B. Font C. FontSize D.FontBold (6) 若要设置文本的显示颜色，则可用( )属性来实现。 A. BackColor B. ForeColor C .FillColor D. BackStyle (7) 若要使用窗体启动时，位于屏幕的中间，则可通过( )属性来设置。 A. Top B. Left C. StartUpPosition D. WindowState (8) 若要禁止窗体被移动，则可设置窗体的( )属性为 False 来实现。 A. Move B. Moveable C. MinButton D. ControlBox (9) 若要将窗体隐藏起来，则实现的方法为( ) A. Hide B. UnLoad C. Show D. WindowState (10)命令钮的标题文字由( )属性来设置。 A. Text B. Caption C. Name D. (名称) (11)命令按钮标题文字的下划线，可通过( )符号来设置。 A.＼＜ B.& C. _ D＼＞ (12)若要将某命令按钮设置为默认命令钮，则可设置( )属性为 True 来实现。 A. Value B. Cancel C. Default D. Enable d (13)若要设置命令钮的工具提示，则可通过( )属性来设置。 A. Caption B. Text C. Value D. ToolTip Text (14)若要使用某命令按钮获得控制焦点，则可使用( )方法来设置。 A. Refresh B. SetFocus C. GotFocus D. Value (15)若要使用命令钮在运行时不可见，则可通过设置()属性的取值来实现。 A. Visible B. Enabled C. Default D. Value (16)在运行时，若要调用某命令钮的 Click 事件过程，则可设置该命令按钮对象的( )属 性为 True 来实现。 A. Enabled B. Value C. Default D. Cancel (17)标签框的边框，由( )属性的设置值决定。 A. BorderStyle B. BackStyle C. BackColor D. AutoSize (18)若要使用标签框的大小自动与所显示的文本相适应，则可通过设置( )属性的值为 True 来实现。 A. AutoSize B. Alignment C. Appearance D. Visible (19)若要设置或返回文本框中的文本，则可通过文本框对象的( )属性来实现。 A. Caption B. Text C. (名称) D. Name (20)若要使用文本框成为只读文本框，可通过设置( )属性值为 True 来实现。 A. ReadOnly B. Lock C. Locked D. Enabled (21)若要设置定时器控件的定时时间，可通过( )属性来设置。 A. Interval B. Value C. Enabled D. Text (22)若要多列显示列表项，可通过设置列表框对象的( )属性来实现。 A. Columns B. MultiSelect C. Style D. List (23)若要获知当前列表项的数目，可通过访问( )属性来实现。 A. List B. ListIndex C. ListCount D. Text (24)若要向列表框新增列表项，则可使用的方法是( )。 A. Add B. Remove C. Clear D. AddItem
(25)若要清除列表框的内容,可使用()方法来实现 A. Add B. Ren C. cle D. AddItem (26)在3种不同风格的组合框中,用户不能输入数据的组合框是() A.下拉式组合框B.简单组合框C.下拉式列表框 (27)复选框或单选框的当前状态通过( 属性来设置或访问。 A. value B. Checked C. Selected D Caption (28)下列控件中,没有 Caption属性的是( A.框架 B.列表框 C.复选框 D.单选按钮 (29)复选框的 Value属性为1时,表示 A.复选框未被选中 B.复选框被选中 C.复选框内有灰色的勾 D.复选框操作错误 (30)用来设置粗字体的属性是( A. Fontltalic B. FontName C. Font Bold D. FontSize (31)将数据项“ China”添加到列表框 List1中,成为第一项应使用()语句 A. Listl. addltem"China".0 B. List. AddItem“ China”,l C. List1. AddIton0,“ China” D. Listl. Addltem 1"China (32)假定时钟控件的 Interval属性为1000, Enabled属性为True,并且有下面的事件过程, 计算机将发出()次Bep声。 Private Sub Timer Timer For i=1 To 5 B End Sub A.1000次 B.10000次 C.5次 D.以上都不对 (33)如果每0.5秒产生一个计时器事件,那么时钟控件的 Interval属性应设为()。 B.5 (34)将命令按钮 Commandl的标题复制到文本框控件,Text作为显示文本,应执行()。 A. Text= Commandl BText 1= Commandl Caption CTextI text=Command1 Caption DTextIText=CStr( Command1) (35)表示滚动条控件取值范围最大值的属性是( A Max B Large Change C. value D Max-Min 二、填空题 (1)复选框的 属性设置为2 Grayed时,将变为灰色,禁止用户使用 (2)Ⅴ isual basic中有一种控件组合了文本框和列表框的特点,这种控件是 (3)为了在程序运行时把dpic文件夹中的图形文件ajpg装入图片框 Picture,所使用的语 句为 (4)计时器控件能有规律地以一定的时间间隔触发 事件,并执行该事件过程中的 程序代码。 (5)若要求输入密码时文本框中只显示*号,则应当在文本框的属性窗口中设置 属 (6)图像框和图片框在使用时有所不同,这两个控件中,能作为容器容纳其它控件的是 (⑦)单击滚动条边的箭头时,滚动条默认滚动值为1,为了实现单击滚动条边的箭头时,滚 动条的滚动值为2,需要将其 属性设置为2。 (8)滚动条响应的重要事件有 和 Change,滚动条产生 Change事件是因为 改变了。 (9)列表框中的 和 属性是数组。 (10)在窗体上有一个名为 Command 1的命令按钮和一个名为 TextI的文本框,程序运行后, Command1为禁用(灰色)。当向文本框中输入任何字符时,命令按钮 Command1变为 可用。请在空白处填入适当的内容,将程序补充完整 Private Sub Form Load Command 1. Enabled= False End Sub
(25)若要清除列表框的内容，可使用( )方法来实现。 A. Add B. Remove C. Clear D. AddItem (26)在 3 种不同风格的组合框中，用户不能输入数据的组合框是( ) A. 下拉式组合框 B. 简单组合框 C. 下拉式列表框 (27)复选框或单选框的当前状态通过( )属性来设置或访问。 A. Value B. Checked C. Selected D. Caption (28)下列控件中，没有 Caption 属性的是( )。 A. 框架 B. 列表框 C. 复选框 D. 单选按钮 (29)复选框的 Value 属性为 1 时，表示( )。 A. 复选框未被选中 B. 复选框被选中 C. 复选框内有灰色的勾 D. 复选框操作错误 (30)用来设置粗字体的属性是( )。 A. FontItalic B. FontName C. FontBold D. FontSize (31)将数据项“China”添加到列表框 List1 中，成为第一项应使用( )语句。 A. List1.AddItem “China”, 0 B. List1.AddItem “China”, 1 C. List1.AddItem 0, “China” D. List1.AddItem 1, “China” (32)假定时钟控件的 Interval 属性为 1000，Enabled 属性为 True，并且有下面的事件过程， 计算机将发出（ ）次 Beep 声。 Private Sub Timer1_Timer() For i = 1 To 5 Beep Next i End Sub A. 1000 次 B.10000 次 C. 5 次 D. 以上都不对 (33)如果每 0.5 秒产生一个计时器事件，那么时钟控件的 Interval 属性应设为（ ）。 A. 5 B. 50 C. 500 D. 5000 (34)将命令按钮 Command1 的标题复制到文本框控件，Text1 作为显示文本，应执行（ ）。 A. Text1= Command1 B.Text1= Command1.Caption C.Text1.text= Command1.Caption D.Text1.Text= CStr(Command1) (35)表示滚动条控件取值范围最大值的属性是（ ）。 A. Max B. LargeChange C. Value D. Max-Min 二、填空题 (1) 复选框的 属性设置为 2-Grayed 时，将变为灰色，禁止用户使用。 (2) Visual Basic 中有一种控件组合了文本框和列表框的特点，这种控件是 。 (3) 为了在程序运行时把 d:\pic 文件夹中的图形文件 a.jpg 装入图片框 Picture1，所使用的语 句为 。 (4) 计时器控件能有规律地以一定的时间间隔触发 事件，并执行该事件过程中的 程序代码。 (5) 若要求输入密码时文本框中只显示*号，则应当在文本框的属性窗口中设置 属 性。 (6) 图像框和图片框在使用时有所不同，这两个控件中，能作为容器容纳其它控件的是 。 (7) 单击滚动条边的箭头时，滚动条默认滚动值为 1，为了实现单击滚动条边的箭头时，滚 动条的滚动值为 2，需要将其 属性设置为 2。 (8) 滚动条响应的重要事件有 和 Change，滚动条产生 Change 事件是因为 改变了。 (9) 列表框中的 和 属性是数组。 (10)在窗体上有一个名为 Command1 的命令按钮和一个名为 Text1 的文本框，程序运行后， Command1 为禁用（灰色）。当向文本框中输入任何字符时，命令按钮 Command1 变为 可用。请在空白处填入适当的内容，将程序补充完整。 Private Sub Form_Load() Command1.Enabled = False End Sub