VB程序设计知识点归纳

1、欢迎阅读第一章1从功能上讲，Visual Basic 6.0有3种版本，即：学习版、专业版、企业版2与传统的程序设计语言相比，Visual Basic最突出的特点是事件驱动编程机制3 Visual Basic 6.0集成环境的主窗口中含有标题栏、菜单栏、工具栏4用标准工具栏中的工具按钮不能执行的操作是打印源程序。5关于Visual Basic"方法"的概念错误的是方法是对事件的响应6 在Visual Basic中，称对象的数据为属性7 Visual Basic应用程序可以用解释方式执行也可以用编译方式执行第二章1计时器控件的Interval属性用于设置Timer事件发生的时

2、间问隔，为了暂时关闭计时器，应把该计时器的Enabled属性设置为False，如果要求设置定时器时间间隔为 1秒钟，那么它的Interval 属性值应该等于10002利用Ctrl + G操作可以打开立即窗口 。3假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为： Lable1.BackStyle = 0 Lable1.BorderStyle = 04在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口5 在Visual Basic中，窗体文件的扩展名为 FRM6窗体的Name属性指定窗体的名称，用来标识一个窗体7改变控件在窗体中的上下位置，应修改

3、该控件的属性是Top8表示滚动条控件取值范围最大值的属性是Max9如果要改变窗体的标题，则需要设置的属性是Caption10在文本框(Text)中，通过ForeColor属性来设置字体颜色11若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordcharfll性值为 *12能够改变复选框中背景颜色的属性是 Backcolor13图片框是不具有Picture属性的对象14窗体的Name属性指定窗体的名称，用来标识一个窗体15要想返回文本框中输入的内容则可利用text属性进行编程第三章I I1用于从字符用左边截取字符的函数是Left(),设a="

4、Visual Basic",使b="Basic"的语句是b=Left(a,8,5)。2 下列符号中哪个是 VB程序中合法的变量名：A?ab7B?7abC?If D?a*bc(A)数字开头，关键字，*3 X是小于100的非负数，用 VB表达式表达正确的是 0<=X and X<1004 设有如下变量声明Dim TestDate As Date为变量TestDate正确赋值的表达方式是5 TextDate=#1/1/200 2#6 表达式4 + 5 6 * 7 / 8 Mod 9的值是5,设a=3,b=5,贝U表达式(a>b)Or(b>0)值为

5、真。5/5.25为1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部 分为偶数，大于0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分 为奇数，4舍5入。例如：52.5等价于52页脚内容欢迎阅读52.6等价于5352.4等价于525.43等价于5351.5等价于527函数String(n, "str")的功能是返回由n个字符组成的字符串8设有如下声明：9 Dim X As Integer 如果 Sgn(X)的值为-1,则 X 的值是小于 0 的数 Sgn(3-5)=-1 Sgn(5-3)=110 Integer类型的

6、数据由2字节组成，Long类型的数据由4字节组成。11已知X<Y, A>B,正确表示它们之间关系的式子是 Sgn(Y-X)-Sgn(A-B)=-212在一个有逻辑运算算术运算及关系运算混合在一起的表达式(无括号)中，其运算顺序为以下合法的 Visual Basic 标识符是那些：A?ForLoop B? Const C?9abc D? a#x A通常所说的变量名13能正确表示条件"整型变量x值是大于等于-5并且小于等于5"的逻辑表达式-5<=x and x<=514求下列表达式的值：表达式4+5 6 * 7 / 8 Mod 9的值是5,表达式5 Mo

7、d 3+35*2的值是2设a=2,b=4,c=6,下歹!J表达式a>b Eqv c<a的值为真Eqv相同为true相反为false设$="中华人民共和国"，表达式Left (S,1) +Right (S,1) +Mid (S,3,2)的值为"中国人民" 表达式2*4A2-2*6/3+32的值是29表达式5人2 Mod 252人2的值是115 VB算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余16获得系统日期的函数是date ()17数学式子sin30写成VB表达式是：？Sin(30*3.14/180)18在Visual

8、 Basic的立即窗口内输入以下语句19 X = 6520 ?Chr$(X)21在窗口中显示的结果是 _A_22计算下列表达式的值表达式93?Mod?2A2的值是_1_。表达式Len。123程序设计ABC ")的值是_10_。Int (198.555*100+0.5) /100 的值是 _198.56_。已知 A$=u 123456781",贝U表达式 val(Left$(A$,4)+Mid$(A$,4,2)的值为( 123445)左取4位1234中取4位开始2位23数学关系30式10表示成正确的 VB表达式为3<=x?And?x<10?lE?x>=3?a

9、nd?x<1024表示x是5的倍数或是9的倍数的逻辑表达式是x?mod?5=0?or?x?mod?9=025 s$= "china ”26 s$= "Beijing： "27 Print?s$28以上语句的输出结果是。参考答案 Beijing29 表达式 Ucase(Mid(" abcdefgh ,3,4)的值是 _ CDEF _30 已知 a=3.5, b=5.0,?c=2.5,d=trueRJ表达式：a>=0?and?a+c>b+3?OR?NOT?d勺值是_ False 。第四章1 VB中可用MsgBox语句产生一消息框。2 VB提

10、供了结构化程序设计的三种基本结构，三种基本结构是：选择结构？独？?!环结构？独?页脚内容欢迎阅读 顺序结构3 InputBox函数返回值的类型为字符串。4 J下列语句正确的是(C)5 A? If A w B Then Print "A等于 B"B? If A<>B Then Printf "A 不等于 B"6 C? If A<>B Then Print "A 不等于 B"D? If A 引Print "A 不等于 B"7 在Do UntilLoop1环中，判断循环表达式与结束循环的关系是先判

11、断循环表达式， 当表达式值为真时结束循环8 在While循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式 值为真时执行循环体9 设a=6,则执行x=IIf(a >5,-1,0)后,x的值为1 If a>5 thenA=-1 Else A=0 endif10要使下列For语句循环执行20次，循环变量的初值应当是多少？11 For?k=?_1_To?-5?Step?-2 参考答案1: 33N=(终值-初值)/2+112 以下语句的输出结果是：13 Print Int(12345.6789*1000.5)/100参考答案1234514 给出下列程序运行的结果15 (1)

12、 x=516 y=-617 If Not x>0 Then x=y-3 Else y=x+318 Print x-y; y-x结果-3 319 (2) J 1=420 J2=921 If J1<J2 Then Print J2 Else Print J1 结果为 9(3)执行以下程序段后，变量 c $的值为(Quick BASIC Programing ) a $ = "Visual Basic Programing" b $ = "Quick" c $ = b $ & Ucase (Mid $ (a $,7,6) & Rig

13、ht $ (a $,11)(4)以下语句的输出结果是032,548.50。Print Format $ (32548.5, "000,000.00")(5)在窗体(Name属性为Formal)上画两个文本框(其 Name属性分别为Text1和Text2)和 一个命令按钮(Name属性为Command。，然后编写如下两个事件过程：Private Sub Command1_Click()A = Text.Text + Text2.Text Print a End Sub Private Sub Formm_Load() Text1.Text ="" Text

14、2.Text ="" End Sub程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入123和321, 然后单击命令按钮，则输出结果为123321。页脚内容欢迎阅读(6 )阅读下面的程序段： For I = 1 To 3 i=1i=2i=3For j = 1 To I j=1to1j=1to2j=1 to 3For k = j To 3 k=1to 3 k=1to3k=2to3 k=1to3 3 A=A+1a=3a=3+3+2k=2to3 2Next kk=3to3 1Nextja=8+3+2+1Next I 执行上面的三重循环后，a的值为_14

15、 _0(7)在窗体上画两个文本框(其 Name属性分别为Text1和Text2)和一个命令按钮(其 Name 属性为Command。，然后编写如下的事件过程：Private Sub Command1_Click()X = 0Do While x<50X = ( x + 2 ) * ( x + 3 ) N = n+1LoopText1.Text = Str(n)Text2.Text = Str(x) End Sub 程序执行后，单击命令按钮，在两个文本框中显示的值分别为2和72。(8)设a=10, b=5, c=1,执行语句Print a > b > c后，窗体上显示的是 Fa

16、lse(9)在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click()Static X As IntegerStatic Y As Integer Cis , -Y=1Y=Y+5X=5+XPrint X,YEnd Sub程序运行时，三次单击命令按钮 Commandl后，窗体上显示的结果为15 6 Static无法 释放 x=5+5+5 y=1+5(10)设有语句 x=InputBox("输入数值"，"0","示例")程序运行后，如果从键盘上输入数值10 并按回车键，变量X

17、的值是字符串"10"(11)在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：一个计时器控件，名称为Timerl的时间。程序为：Private Sub Timer1_ ()TxtTime.text=TimeEnd Sub在下划线上应填入的内容是Timer(12)假定有以下程序段： For i=1 To 33-1/1+1=3For j=5 To 1 Step -11-5/-1+1Print i*j3*5Next 页脚内容欢迎阅读Next 则语句Print i*j的执行次数是15(13)以下程序段的输出结果为(4) x=1 y=4 Do Unti

18、l y>4 x=x*y y=y+1 Loop Print x(14)在窗体上面画一个文本框，然后编写如下事件过程：Private Sub Form_Activate()Text1.Text=""Text1.SetFocusFor i=1 to 10 Sum=Sum+i NextText1. Text=SumEnd Sub上述程序的运行结果是55首相加末项*项数/2(15)在窗体上画一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() For n = 1 To 20 If n Mod 3 <>

19、; 0 Then m = m + n 3 Next n Print n End Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是(21)(16)设有如下程序：Private Sub Command1_Click() Dim sum As Double, x As Double sum = 0 n = 0Fori = 1 To 5 x = n / i n = n + 1 sum = sum + x NextEnd Sub该程序通过For循环计算一个表达式的值，这个表达式是 (1/2+2/3+3/4+4/5)(17)下面程序运行后，窗体(Form1)中输出的结果是(TrueTrue)Pri

20、vate Sub Form_Load()Form1.AutoRedraw=True 设置 form1 让他显示结果X=3:y=5Print x=3;y=5 x 是否=3(18)下面程序执行的结果是(579)Private Sub Command1_Click() 页脚内容欢迎阅读A="123":b="456"C=Val(a)+Val(b) 2边是数字则做加法Print cEnd Sub(19)若i的初值为8,则下列循环语句的循环次数为(5)次 同样可以用公式：(终值-初值) /步长+1Do While i<=17i=i+2Loop(20)执行下面的

21、程序段后，x的值为(21)x=5For i=1 To 20 Step 2 x=x+i5Next I(21)下面程序运行后，输出的值是(54)Private Sub Command1_Click()J=1do While J<5J=J+1A=A+J*JloopPrint AEnd Sub(22)有如下程序：Private Sub FormKeyPress(KeyAscii As Integer)For m=1 To 3For j=1 To mFor k=j To 3 i . J F 1 I- In=n+m+j-kNext kNext jNext mPrint nEnd Sub程序运行后，按

22、任意键，n的值是(20 )(23)在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()A= 12B= 34C= 56Print A + B+CEnd Sub程序运行后，单击命令按钮，输出结果是 (123456)(24)下面程序运行后输出的结果是(110 20 )Private Sub Command1_Click()A=0For M=1 To 10A=A+1 : B=0欢迎阅读For J=1 To 10A=A+1 : B=B+2Next J ： Next MPrint A;BEnd Sub(25) x=int(Rnd)+3 :if?xA2>

23、;8? then y=xA2+1 ：if?xA2=9?then?y=xA2-2:if?xA2<8?then?y=xA3:print?y程序运行后输出的结果是_7_。(26)执行下面的程序段，x而值为Private Sub Command1_Click()For i=1 To 9a=a + iNext ix=Val (i)MsgBox xEnd Sub_ .参考答案10(27)在窗体上有一个命令按钮，然后编写如下程序:Function Trans(ByVal num As Long) As LongDim k As Longk=1Do While num num=0 时循环终止k=k *

24、(num Mod 10) 取个位10位百位相乘num=num 10'! ； I.'I ILoopTrans=kPrint TransEnd FunctionPrivate Sub Command1_Click()Dim m As LongDim s As Long欢迎阅读m=InputBox("请输入一个数")s=Trans(m)End Sub程序运行时，单击命令按钮，在输入对话框中输入"789”,输出结果为_1_,在输入对话框中输入"987”输出_2在输入对话框中输入"879”,输出结果为 _3_.参考答案 1 : 504 2

25、 : 504 3: 50422 表达式 Int(4*Rnd+1)*(Int(4*Rnd-1)值的范围是-4, 823语句x+y=x ,是错误的赋值语句。24逻辑表达式Not(1>2),其逻辑值为真”25 表达式 1.5+32>2 Or 7 Mod 3<4 And Not 1 的运算结果是(-1)一二26 可以将变量A、B值互换的语句是 A=C : C=B : B=A27执行如下语句：28 &= inutBox("Today" , "Tomorrow, "Yesterday","Day before yeste

26、rday", 5)29 将显示一个输入胃话框，在对话框的输入区中显示的信息是(Yesterday)30 能在窗体 Forml的标题栏中显示"VisualBasic窗体"的语句是(Form1.Caption="VisualBasic窗体 ")第五章1 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是( Static a As Integer2 声明一个变量为局部变量应该用(Static)3 Sub过程与Function过程最根本的区别是(Sub过程不能返回值，而Function过程能返回值)4 若要向列表框添加列表项，可使用的方法是

27、(AddItem)5 在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变 量同名6 Sub过程中不可以嵌套调用Sub过程7 定有以下函数过程：8 Puncli Firn(S As Siring) As Siring9 Dim si As Sting10 Iori-1 loLen(S)11 s1 = UCase(Mid(S, i, 1)十 s112 Next i13 Fun=s114 End Function15 在窗体上画一个命令按钮，然后编写如下事件过程：16 P山®C Sub CornmmldLClick。17 Dim S(rl As String

28、, Str2 As String18 Std = inputbox("请输入一个字符串")19 Sir2-l'un(Sli+l)20 Prim Str221 End Sub欢迎阅读22 程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg”,则单击”确23 定”按钮后在窗体上的输出结果为(GFEDCBA)24 复选框的Value属性为_1时，表示复选框被选中。第六章1用下面语句所定义的数组的元素个数是(9)Dim a(-3 to 5) as integer2要声明一个长度为256个字符的定长字符串变量 str,正确的语句是(Dim str

29、 as String*256)3设有数组声明语句：Option Base 0Dim B(-1 To 10,2 To 9,20) As Integer 则数组 B 中共有(2016)个元素4在窗体上画一个命令按钮，名称为Command单击命令按钮时，执行如下事件过程：PrlVate Sub Commandl-C1ickoa$="software and hardware"b$= Right(a$,8)c$=Mid(a$,1 , 8)Msgbox a$,b$,c$,1End Sub则在弹出的信息框的标题栏中显示的信息是(hardwafe)5为了清除列表框中的所有内容，应使用的方

30、法是 (Clear)程序填空1. 下列程序是判断一个整数 (>=3)是否为素数，请补充完整。2. Dim n As Integer3. n=InputBox("请输入一个整数(>=3)")4. k=Int(SqKn)5. i=26. swit=07. While i <=k And swit=08. If n Mod i=0 Then9. _1_Else:参考答案 1.swit=0 2.swit=1I * I_2_I 'JEnd IfloopIf swit=0 ThenPrint n;"是一个素数。"ElsePrint n;&q

31、uot;不是一个素数。"欢迎阅读6.17.End If下面程序是用来打印九九乘法表的，请补充完整。Dim i As Integer, j As Integer, Str1$Str1=""For i=1 To 9For j=1 To 9If_1_ThenStrl-Strl + Str$(j) - " + StrS(i) - 1l-r, + StrS(Val(iElse18. Str1=Str1 & Chr(13) _2_End If19. Next j20. Next i21. Print Str1 参考答案

32、1: j<=I 2: j>i22. 下面程序的功能是产生 10个小于100(不含100)的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。23. Sub PR()24. Randomize25. Dim a(10)26. For j=1 To 10a(i) =Int( _1_)27. If _2_ Then k=k + 128. Print a(j)29. Next j30. Print31. Print k / 1032. End Sub参考答案 1 : (99 * Rnd)+ 1 2: a(j) Mod 5 = 033. 以下程序的功能是从键盘输入若干个学生的

33、考试成绩，统计并输出最高分和最低分，当输入负 数时结束输入，输出结果。请补充完整下列程序段。34. Dim x, amax, aminAsSingle35. x=InputBox("Entera score")36. amax=x37. amin=x38. Do While_1_If x > amax Then amax=x End If If_2_Then amin=x End Ifx=InputBox("enter a score") LoopPrint "max="；amax, "min="；amin参

34、考答案 1: x>0 2： x<amin39. 在窗体上画一个命令按钮，然后编写如下事件过程:40. Private Sub Command1_Click()欢迎阅读41. x=042. Do Until x=-1a=InputBox("请输入第一个数字 a的值")43. a=Val(A)44. b=InputBox("请输入第二个数字 b的值")45. b=Val(b)46. x=InputBox("请输入第三个数字 x的值")47. x=Val(x)48. a=a + b + x49. Loop50. Print a5

35、1. End Sub52. 在程序运行后，单击命令按钮，在对话框中分别输入 5, 4, 8, 5, 8,-1 ,输出结果为 _1_. 参考答案11253. 下列程序的功能是：当x<50时，y=0.8x;当500x&100, y=0.7 x；当x>100时，没有意义。Private Sub Command1_Click()Dim x As Singlex=InputBox("请输入 x 的值！")_1_Case Is < 50y=0.8 * xCase 50 To 100y=0.7 * x_2_Print ”输入的数据出界！"End Sel

36、ectPrint x, yEnd Sub参考答案1: Select Case x 2： Case Else54. 设有如下程序段：55. a$="BeijingShanghai"56. b$=Mid(a$,InStr(a$,"g")+1)57.58. 执行上面的程序段后，变量b$的值为_1_.参考答案1: Shanghai I I59. 执行下面程序，当单击窗体时，显示在窗体上第一行的内容是_1_第二行的内容是_2_Private Sub Form_Click()Dim I As Integer,Sum As IntgerFor I=0.5 To 8.5

37、 Step2.5Sum=Sum+I*10Next IPrint Sumprint IEnd Sub 参考答案1: 200 2: 1025下面程序的功能是对密文解密。密文的加密方法是以字符为单位，取其 ASCII码，按逆序保存(例如字母"e"的ASCII码是01100101密文中则为10100110)。解密是加密的逆过程。完善程2627282930313233343536373839404142434445464748495051525354555657585960616263欢迎阅读序，实现以上功能。t)Private Sub Command1_Click()Dim s A

38、s String, st As String, i As Integer,n As Integer s=Text1Do Until n >=Len(s)_1_If n Mod 8 <> 0 Thenst=st &Mid(s,n,1)Elsest=st & Mid(s,n,1)List1.AddItem st_2_End IfLoopEnd SubPrivate Sub Command2_Click()Dim s As String, st As String, i As IntegerFor i=0 To_3_st=List1.List(i)For j=1 T

39、o Len(st)s=Mid(st,j,1) & sNext jFor j=Len(s) To 1 Step-1 n=4_ Next jText2=Text2 & Chr(n) s=""_5_ Next iEnd Sub参考答案 1: n=n+1 2： st=""3: List1.Listcount 4： n+2A(j-1) 5: n=0下面程序的功能是，找出 100以内所有可以表示成 3个连续自然数之和的数。完善程序，实现以上功能。(难)Option ExplicitPrivate Sub Command1_Click()Dim I A

40、s Integer, N As IntegerDim Js As Integer, S As StringFor I =1 To 100If Fun(I,N,Js)Then S=Str(I) & "=" & N Do_1_N=N+1S=S & "+" & NLoopList1.AddItem SEnd If欢迎阅读Next IEnd SubPrivate Function Fun(L As Integer, M As Integer, Js As Integer) As BooleanDim I As Integer, _

41、2_ K=0 _3_Do While Sum < L And K < 3K=K+1Js=Js+1Sum=Sum+JsLoopIf _4_henM=IFun=TrueE xit ForExit if/ I) I -i产 j， I ' ! I .Next I£*' . I 二.一"End Function参考答案 1 : while n<=js-1 2: Sum=0 3 : Js=i-1 4: k=3 And Sum=L、判断题(每题1分，共10分)()1.由Visual Basic语言编写的应用程序有解释和编译两种执行方式。()2.文本框控件

42、的MaxLength属性值为0时，在文本框内不可以输入任何字符。()3.要使输入文本框的字符始终显示“#"，则应彳改其PasswordChar属性为“能()4.在一个窗体中不能使用Unload来卸载本窗体，即一个窗体只能由其它窗体卸载。()5. VB的Double类型数据，可以精确表示其数值范围内的所有实数。()6.在图片框中添加的控件，其Top和Left属性值是相对图片框而言的，与窗体无关()7.命令按钮不但能响应单击事件，而且还能响应双击事件。()8.在自定义函数过程中，函数名必须被赋值。()9.文本框控件只能响应 KeyPress、KeyDown、KeyUp、Change事件。

43、()10.如果一个菜单项的 Visible属性为False,则它的子菜单也会显示。、单选题(每题2分，共20分)页脚内容欢迎阅读()11.要改变控件的高度，应修改控件的 属性。A、TopB、LeftC、HeightD、Width()12. VB算术运算符乘或除、整除、求余的优先级，从高到低依次为 oA、乘或除、求余、整除B、乘或除、整除、求余C、整除、求余、乘或除D、整除、乘或除、求余()13.下列哪个属性用来表示标签(Label)的内容和窗体(Form)的标题A、CaptionB、TextC、LeftD、Name()14.判断整型变量 m能否被n整除的VB表达式为。A、n Mod m=0 B

44、、m/n*n=m C、m Mod nD、mn*n=m()15.选中复选框控件时，Value属性的值为 。A、TrueB、FalseC、0D、1()16.在窗体Form1的一个事件过程中，使用 来清除窗体上所绘制的图形的方法是不正确的A、Form1.Cls B、Form.ClsC、Me.CLSD、Cls()17.设计动画时通常用时钟控件 属性来控制动画速度。A、Interval B、TimerC、MoveD、Enabled()18.使用Circle方法不可以绘制的图形是 。A、圆角矩形B、椭圆C、圆饼图D、扇形()19.运行时组合框控件 Comb1中所选择的表项，可以表示为 。A、Comb1.T

45、extB、Comb1.ListIndex C、Comb1.List D、Comb1.ListCount()20.若i的初值为9,则下列循环语句的循环次数为 次。Do While i<=20i=i+3LoopA、3次B、4次C、5次D、6次三、程序填空题(每空2分，共20分)1 .【程序说明】以下程序产生 30个两位随机整数、并按从小到大的顺序存入数组a中，再将其中的奇数按从小到大的顺序在窗体中用紧凑格式输出。Private Sub Form_Click()Dim a(30) As byteFor i=1 To 30,i as Byte, j As Byte, m As Bytea(i)=

46、 (21)Next i For i=1 To 29For j= (22) If a(i)>a(j) Then m=a(i)(23)a(j)=mNext jNext iFor i=1 To 30If (24) Then (25) Next iEnd Sub)页脚内容(22 )页脚内容欢迎阅读(23 ) (24 ) (25 ) 2.【程序说明】下列程序运行时，单击Command1(0后，图片每秒自动左移 1毫米，单击Command1(1痹止移动(当图片尾部移出窗体后，图片从窗体右端进入窗体)。界面设计如下图1所示。图1程序2的界面设计【程序】Private Sub Command1_Clic

47、k(Index As Integer)If Index=0 Then (26) Else Timer1.Enabled=False End SubPrivate Sub Form_Load() Timer1.Interval =(27)Form1.ScaleMode = 6 (28)End SubPrivate Sub Timer1_Timer() Picture1.Left = (29)If Picture1.Left + Picture1.Width <= Form1.ScaleLeft Then _(30)= Form1.ScaleLeft + Form1.ScaleWidthEn

48、d Sub(26) (27) (28 )(29 )(30 )四、程序阅读题(每小题5分，共20分)程序31、请写出单击窗体三次后，窗体上的显示结果。Private Sub Form_Click()Static a As IntegerDim b As Integerb = a + b + 2 a = a + bForm1.Print "a=" a, "b=" bEnd Sub程序32、请写出单击窗体后，窗体上的显示结果。Private Sub Form_Click()For i% = 1 To 7Print Spc (7- i);For j% = 1 T

49、o (2 * i%) - 1 : Print "M" ; : Next j% PrintNext i%End Sub程序33、写出程序运行时，单击 Option1(2)后，窗体上的显示结果。Private Sub Form_Load()Option1(0).Value=FalseOption1(1).Value=FalseOption1(2).Value=False欢迎阅读End SubPrivate Sub Option1_Click(Index As Integer)If Option1(Index).Value=True ThenSelect Case IndexCa

50、se 0Check1(0).Value=1: Check1(1).Value=0Case 1Check1(0).Value=0: Check1(1).Value=1Case 2Check1(0).Value=1: Check1(1).Value=1End SelectIf Check1(0).Value=1 Then Print "您好"If Check1(1).Value=1 Then Print "欢迎使用 Visual Basic!"End IfEnd Sub程序34、设Text1.Text为"abcdef",运行时连续单击3次

51、控件HScroll1右侧箭头后，分别 写出组合框控件中的第1项、第2项及第3项的内容。Private Sub Form_Load()HScroll1.SmallChange = 1: HScroll1.Max = 5HScroll1.Min = 1: HScroll1.Value = 1Combo1.ClearEnd SubPrivate Sub HScroll1_Change()Combo1.AddItem Left(Text1.Text, HScroll1.Value), 0End Sub五、程序设计题(每题10分，共30分)35 .编制事件过程Command1_Click执行该过程时输入

52、n以及n个数，计算这n个数的和并在 文本框控件Text1中显示。(10分)36 .编制通用函数过程fsum ,计算Single类型一维数组所有元素的和。(10分)37 .在窗体上建立命令按钮“ Command'1 (显示)和“ Command2(退出)。运行时，“Command2按钮始终显示“退出”；单击“显示”按钮后窗体上显示“欢迎使用Visual Basic!”同时标题改为“清除”，再单击“消除”按钮后，界面恢复窗体装入时的初态。(10分)VB练习题(一)参考答案试题一、判断题(每小题1分，共10分)I. V 2. X 3. V 4. X 5. X 6. V 7. V 8. V 9

53、. 乂 10. X试题二、单选题(每小题2分，共20分)II. C 12. B 13. A 14. D 15. D 16. B 17. A 18.A 19. C 20. B试题三、程序填空题(每空2分，共20分)21. Int(Rnd*90)+1022.i+1 To 3023. a(i) = a(j) 24. a(i) Mod2<>0 25.Print a(i); 26. Timer1.Enabled=True 27. 1000 28. Timer1.Enabled = False 29.页脚内容页脚内容欢迎阅读Picture1.Left-130. Picturel.Left试题四

54、、程序阅读题(每小题5分，共20分)31. a = 2 b = 2a = 6 b = 4a = 14 b = 832. HMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMMM33. 您好欢迎使用Visual Basic!34. abcd abc ab试题五、程序设计题(每小题各10分，共30分)35 .编制事件过程Command1_Click执行该过程时输入n以及n个数，计算这n个数的和并 在文本框控件 Text1中显示。Private Sub Command1_Click()Dim s As Single, n As Integer, x As

55、Singlen=InputBox(" 输入 n")For i=1 To nx=InputBox("x="): s=s+xNext iText1.Text=sEnd Sub36 .编制通用函数过程fsum ,计算Single类型一维数组所有元素的和。Private Function fsum(a() As Single, n As Single) As SingleDim i As Integer -For i = 1 To nfsum = fsum + a(i)Next i I I ;End Function37 .在窗体上建立命令按钮“ Command

56、1 (显示)和“ Command2(退出)。Private Sub Command1_Click()If Command1.Caption ="显示"ThenPrint "欢迎使用 Visual Basic ! ": Command1.Caption =" 清除"ElseForm1.Cls : Command1.Caption ="显示"End IfEnd SubPrivate Sub Command2_Click()欢迎阅读EndEnd Sub显示"Private Sub Form_Load()Form

57、l.Cls : Commandl.Caption ="End SubVB练习题(二)一、判断题(每题i分，共io分)()1. VB是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。()2.用DIM定义数值变量时，该数值变量自动赋初值为0。()3.移动框架时框架内控件也跟随移动，因此框架内控件的Left和Top属性值也随之改变。()4.列表框和文本框一样均没有Caption属性，但都具有 Text属性。()5.图片框可以通过 Print方法来显示文本。()6.语句 "FontName =宋体""与"Form1.FontName =宋体"”的作用完全相同，无一例外。()7. SetFocus方法是把焦点移到指定对象