VB程序设计知识点归纳

第一章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事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled属性设置为False ，如果要求设置定时器时间间隔为1秒钟，那么它的Interval属性值应该等于10002 利用Ctrl + G操作可以打开立即窗口 。3 假定窗体上有一个标签，名为Lable1。为了使该标签透明并且没有边框，则正确的属性设置为 ：Lable1.BackStyle = 0 Lable1.BorderStyle = 04 在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口5 在Visual Basic中，窗体文件的扩展名为FRM6 窗体的Name属性指定窗体的名称，用来标识一个窗体7 改变控件在窗体中的上下位置，应修改该控件的属性是Top8 表示滚动条控件取值范围最大值的属性是Max9 如果要改变窗体的标题，则需要设置的属性是Caption10 在文本框（Text）中，通过ForeColor属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示*号，则应当在此文本框的属性窗口中设置Passwordchar属性值为*12 能够改变复选框中背景颜色的属性是Backcolor13 图片框是不具有Picture属性的对象14 窗体的Name属性指定窗体的名称 ，用来标识一个窗体15 要想返回文本框中输入的内容则可利用text属性进行编程 第三章1 用于从字符串左边截取字符的函数是Left( )，设a="Visual Basic"，使b="Basic"的语句是b=Left(a,8,5)。2 下列符号中哪个是VB程序中合法的变量名：A ab7 B 7ab C If D a*bc （A） 数字开头， 关键字 ，*3 X是小于100的非负数，用VB表达式表达正确的是0<=X and X<1004 设有如下变量声明Dim TestDate As Date 为变量TestDate正确赋值的表达方式是 TextDate=#1/1/200 2#5 表达式4 + 5 6 * 7 / 8 Mod 9的值是5，设a=3,b=5，则 表达式(a>b)Or(b>0)值为真。5/5.25 为1如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于0.5的就进位，小于等于0.5的就直接把小数去掉，5舍6入；如果整数部分为奇数，4舍5入。 例如： 52.5等价于52 52.6等价于53 52.4等价于52 5.43等价于53 51.5等价于526 函数String(n，"str")的功能是返回由n个字符组成的字符串7 设有如下声明： Dim X As Integer 如果Sgn(X) 的值为-1，则X的值是小于0的数Sgn(3-5)=-1 Sgn(5-3)=18 Integer类型的数据由2字节组成，Long类型的数据由4字节组成。9 已知XY，AB，正确表示它们之间关系的式子是Sgn(Y-X)-Sgn(A-B)=-2 10 在一个有逻辑运算算术运算及关系运算混合在一起的表达式(无括号)中，其运算顺序为以下合法的Visual Basic标识符是那些：A ForLoop B  Const C 9abc D  a#x A通常所说的变量名11 能正确表示条件"整型变量x值是大于等于-5并且小于等于5"的逻辑表达式-5<=x and x<=512 求下列表达式的值：表达式4+5 6 * 7 / 8 Mod 9 的值是5，表达式5 Mod 3+35*2的值是2设a=2,b=4,c=6，下列表达式a>b Eqv c<a的值为真Eqv 相同为true 相反为false 设S="中华人民共和国"，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为"中国人民"表达式2*42-2*6/3+32的值是29表达式52 Mod 2522的值是1 13 VB算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余14 获得系统日期的函数是date（）15 数学式子sin30°写成VB表达式是： Sin(30*3.14/180) 16 在Visual Basic的立即窗口内输入以下语句X65?Chr$(X) 在窗口中显示的结果是 _A_17 计算下列表达式的值表达式93 Mod 22的值是_1_。 表达式Len(123程序设计ABC)的值是_10_。 Int（198.555*100+0.5）/100的值是_198.56_。 已知A$=12345678，则表达式val(Left$(A$,4)+Mid$(A$,4,2)的值为（123445）左取4位1234 中取4位开始2位18 数学关系3x10表示成正确的VB表达式为 3<=x And x<10  或  x>=3 and x<1019 表示x是5的倍数或是9的倍数的逻辑表达式是x mod 5=0 or x mod 9=020 s$=“china”： s$=“Beijing”： Print s$ 以上语句的输出结果是_ _。 参考答案 Beijing21 表达式Ucase(Mid(abcdefgh,3,4)的值是_ CDEF _。 22 已知a=3.5，b=5.0, c=2.5,d=true,则表达式：a>=0 and a+c>b+3 OR NOT d的值是_ False _。第四章1 VB中可用MsgBox语句产生一消息框。 2 VB提供了结构化程序设计的三种基本结构，三种基本结构是：选择结构  或  循环结构  或  顺序结构3 InputBox函数返回值的类型为字符串。J下列语句正确的是 (C)A  If AB Then Print "A不等于B" B  If A<>B Then Printf "A不等于B"C  If A<>B Then Print "A不等于B" D  If AB Print "A不等于B"4 在Do UntilLoop循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时结束循环5 在While循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式值为真时执行循环体6 设a=6，则执行x=IIf(a5,-1,0)后,x的值为1If a>5 then A=-1Else A=0endif7 要使下列For语句循环执行20次，循环变量的初值应当是多少? For k=     _1_To -5 Step -2 参考答案 1：33 N=(终值-初值)/2+18 以下语句的输出结果是: Print Int(12345.6789*1000.5)/100 参考答案 123459 给出下列程序运行的结果（1） x=5 y=-6 If Not x>0 Then x=y-3 Else y=x+3 Print x-y; y-x 结果 -3 3（2）J 1=4 J2=9 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) & Right $ (a $,11) （4）以下语句的输出结果是032,548.50。Print Format $ (32548.5, "000,000.00")(5) 在窗体（Name属性为Formal）上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（Name属性为Command1），然后编写如下两个事件过程： Private Sub Command1_Click() A = Text.Text + Text2.Text Print a End Sub Private Sub Formm_Load() Text1.Text ="" Text2.Text ="" End Sub 程序运行后，在第一个文本框（Text1）和第二个文本框（Text2）中分别输入123和321，然后单击命令按钮，则输出结果为 123321。(6 )阅读下面的程序段： For I = 1 To 3 i=1 i=2 i=3 For j = 1 To I j=1to1 j=1to2 j=1 to 3 For k = j To 3 k=1to 3 k=1to3k=2to3 k=1to3 3 A=A+1 a=3 a=3+3+2 k=2to3 2 Next k k=3to3 1 Next j a=8+3+2+1 Next I执行上面的三重循环后，a的值为_14 _。(7) 在窗体上画两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下的事件过程：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后，窗体上显示的是False(9) 在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：Private Sub Command1_Click() Static X As IntegerStatic Y As Integer Cls Y=1Y=Y+5X=5+X Print X,Y End Sub程序运行时，三次单击命令按钮Commandl后，窗体上显示的结果为15 6 Static无法释放x=5+5+5 y=1+5(10) 设有语句x=InputBox("输入数值"，"0"，"示例") 程序运行后，如果从键盘上输入数值10并按回车键，变量X的值是字符串"10"(11) 在窗体上有一个文本框控件，要求每一秒钟在文本框中显示一次当前名称为TxtTime：一个计时器控件，名称为Timerl 的时间。程序为： Private Sub Timer1_ ( ) TxtTime.text=Time End Sub 在下划线上应填入的内容是Timer （12）假定有以下程序段： For i=1 To 3 3-1/1+1=3 For j=5 To 1 Step -1 1-5/-1+1 Print i*j 3*5 Next Next 则语句Print i*j的执行次数是15（13）以下程序段的输出结果为(4)x=1y=4Do Until y>4x=x*yy=y+1LoopPrint x（14）在窗体上面画一个文本框 ，然后编写如下事件过程：Private Sub Form_Activate()Text1.Text=" "Text1.SetFocusFor i=1 to 10Sum=Sum+iNextText1. Text=SumEnd Sub 上述程序的运行结果是55 首相加末项*项数/2（15）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n = 1 To 20If n Mod 3 <> 0 Then m = m + n 3Next nPrint nEnd Sub程序运行后，如果单击命令按钮，则窗体上显示的内容是(21)（16）设有如下程序：Private Sub Command1_Click()Dim sum As Double, x As Doublesum = 0n = 0For i = 1 To 5x = n / in = n + 1sum = sum + xNextEnd Sub 该程序通过For循环计算一个表达式的值，这个表达式是(1/2+2/3+3/4+4/5)（17）下面程序运行后，窗体(Form1)中输出的结果是(TrueTrue)Private 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）次 同样可以用公式：（终值-初值）/步长+1 Do While i<=17 i=i+2 Loop（20）执行下面的程序段后，x 的值为(21) x=5For i=1 To 20 Step 2x=x+i5Next I（21）下面程序运行后，输出的值是(54) Private Sub Command1_Click() J=1 do While J5 J=J+1 A=A+J*J loopPrint A End Sub （22）有如下程序： Private Sub FormKeyPress(KeyAscii As Integer) For m=1 To 3 For j=1 To m For k=j To 3 n=n+m+j-k Next k Next j Next m Print n End Sub 程序运行后，按任意键，n的值是(20 )（23）在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() A=12 B=34 C=56 Print ABC End Sub 程序运行后，单击命令按钮，输出结果是(123456) （24）下面程序运行后输出的结果是(110 20 ) Private Sub Command1_Click() A=0 For M=1 To 10 A=A+1B=0 For J=1 To 10 A=A+1B=B+2 Next JNext M Print A;B End Sub （25）x=int(Rnd)+3： if x2>8  then y=x2+1： if x2=9 then y=x2-2： if x2<8 then y=x3： 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 * (num Mod 10) 取个位10位百位相乘num=num 10LoopTrans=kPrint TransEnd FunctionPrivate Sub Command1_Click() Dim m As LongDim s As Longm=InputBox("请输入一个数") s=Trans(m) End Sub程序运行时，单击命令按钮，在输入对话框中输入"789"，输出结果为 _1_,在输入对话框中输入"987"输出 _2_在输入对话框中输入"879"，输出结果为 _3_. 参考答案 1：504 2：504 3：50410 表达式Int(4*Rnd+1)*(Int(4*Rnd-1)值的范围是-4，8 11 语句x+y=x， 是错误的赋值语句。 12 逻辑表达式Not(12) ，其逻辑值为“真” 13 表达式1.5+322 Or 7 Mod 34 And Not 1的运算结果是(-1)14 可以将变量A、B值互换的语句是A=C : C=B : B=A15 执行如下语句： ainutBox("Today"，"TomorroW，"Yesterday","Day before yesterday"，5) 将显示一个输入对话框，在对话框的输入区中显示的信息是 (Yesterday)16 能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是(Form1.Caption="VisualBasic窗体" )第五章1 如果在程序中要将c定义为静态变量，且为整型数，则应使用的语句是（Static a As Integer）2 声明一个变量为局部变量应该用（Static）3 Sub过程与Function过程最根本的区别是(Sub过程不能返回值，而Function过程能返回值)4 若要向列表框添加列表项，可使用的方法是（AddItem）5 在某个Sub过程中定义的局部变量作用域只限于该过程可以与其它事件过程中定义的局部变量同名6 Sub过程中不可以嵌套调用Sub过程7 定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1UCase(Mid(S，i，1)十s1 Next i Funs1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Prlvate Sub Commmldl_Click() Dim Str1 As String，Str2 As String Strlinputbox("请输入一个字符串") Str2=Fun(Strl) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确 定"按钮后在窗体上的输出结果为 (GFEDCBA)8 复选框的Value属性为_1_时，表示复选框被选中。第六章1 用下面语句所定义的数组的元素个数是(9) Dim a(-3 to 5) as integer2 要声明一个长度为256个字符的定长字符串变量str，正确的语句是(Dim str as String*256)3 设有数组声明语句： Option Base 0 Dim B(-1 To 10,2 To 9,20) As Integer 则数组B中共有(2016)个元素4 在窗体上画一个命令按钮，名称为Commandl。单击命令按钮时，执行如下事件过 程： PrlVate Sub Commandl-C1icko a$="software and hardware" b$Right(a$,8) c$=Mid(a$,1，8) Msgbox a$,b$,c$,1 End Sub 则在弹出的信息框的标题栏中显示的信息是 (hardwafe) 5 为了清除列表框中的所有内容，应使用的方法是(Clear)程序填空1. 下列程序是判断一个整数(>=3) 是否为素数，请补充完整。Dim n As Integern=InputBox("请输入一个整数(>=3) ") k=Int(Sqr(n) ) i=2swit=0While i <=k And swit=0If n Mod i=0 Then_1_Else ：参考答案1.swit=0 2.swit=1_2_ End IfloopIf swit=0 ThenPrint n; "是一个素数。"ElsePrint n; "不是一个素数。"End If 2. 下面程序是用来打印九九乘法表的，请补充完整。Dim i As Integer, j As Integer, Str1$Str1=""For i=1 To 9For j=1 To 9If_1_ThenStr1=Str1 + Str$(j) + "×" + Str$(i) + "=" + Str$(Val(i j) ) ElseStr1=Str1 & Chr(13) _2_End IfNext jNext iPrint Str1 参考答案 1：j<=I 2：j>i3. 下面程序的功能是产生10个小于100(不含100) 的随机正整数，并统计其中5的倍数所占比例，但程序不完整，请补充完整。 Sub PR() Randomize Dim a(10) For j=1 To 10 a(i) =Int( _1_) If _2_ Then k=k + 1 Print a(j) Next j Print Print k / 10 End Sub 参考答案 1：(99 * Rnd)+ 1 2：a(j) Mod 5 = 04. 以下程序的功能是从键盘输入若干个学生的考试成绩，统计并输出最高分和最低分，当输入负数时结束输入，输出结果。请补充完整下列程序段。 Dim x, amax, amin As Single x=InputBox("Enter a score") amax=x amin=x Do While_1_If x > amax Then amax=x End If If_2_Then amin=x End If x=InputBox("enter a score") Loop Print "max=" amax, "min=" amin 参考答案 1：x>0 2：x<amin5. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() x=0Do Until x=-1a=InputBox("请输入第一个数字a的值") a=Val(A) b=InputBox("请输入第二个数字b的值") b=Val(b) x=InputBox("请输入第三个数字x的值") x=Val(x) a=a + b + xLoopPrint aEnd Sub在程序运行后，单击命令按钮，在对话框中分别输入5，4，8，5，8，-1，输出结果为 _1_. 参考答案 1：126. 下列程序的功能是：当x<50时，y=0.8×x；当50x100时，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 100 y=0.7 * x_2_ Print "输入的数据出界！"End SelectPrint x, yEnd Sub 参考答案 1：Select Case x 2：Case Else7. 设有如下程序段：a$="BeijingShanghai"b$=Mid(a$,InStr(a$,"g")+1)执行上面的程序段后，变量b$的值为_1_. 参考答案 1：Shanghai8 执行下面程序，当单击窗体时，显示在窗体上第一行的内容是_1_第二行的内容是_2_Private Sub Form_Click()Dim I As Integer,Sum As IntgerFor I=0.5 To 8.5 Step2.5Sum=Sum+I*10Next IPrint Sumprint IEnd Sub 参考答案 1：200 2：109 下面程序的功能是对密文解密。密文的加密方法是以字符为单位，取其ASCII码，按逆序保存（例如字母"e"的ASCII码是01100101,密文中则为10100110）。解密是加密的逆过程。完善程序，实现以上功能。(难) Private Sub Command1_Click() Dim s As String, st As String, i As Integer,n As Integer s=Text1 Do Until n >=Len(s) _1_If n Mod 8 <> 0 Then st=st &Mid(s,n,1) Else st=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 To Len(st)s=Mid(st,j,1) & sNext jFor j=Len(s) To 1 Step-1n=_4_ Next jText2=Text2 & Chr(n)s=" "_5_ Next iEnd Sub 参考答案 1： n=n+1 2： st="" 3： List1.Listcount 4：n+2(j-1) 5： n=010 下面程序的功能是，找出100以内所有可以表示成3个连续自然数之和的数。完善程序，实现以上功能。 (难) Option ExplicitPrivate Sub Command1_Click()Dim I As Integer, N As IntegerDim Js As Integer, S As StringFor I =1 To 100If Fun(I,N,Js)ThenS=Str(I) & "=" & NDo _1_N=N+1S=S & "+" & NLoopList1.AddItem SEnd IfNext IEnd SubPrivate Function Fun(L As Integer, M As Integer, Js As Integer) As BooleanDim I As Integer, _2_ K=0 _3_ Do While Sum < L And K < 3K=K+1Js=Js+1Sum=Sum+JsLoopIf_4_henM=IFun=True E xit For Exit ifNext IEnd Function 参考答案 1：while n<=js-1 2： Sum=0 3：Js=i-1 4：k=3 And Sum=L