《VB程序设计知识点归纳》由会员分享，可在线阅读，更多相关《VB程序设计知识点归纳（59页珍藏版）》请在金锄头文库上搜索。
1、学习资料收集于网络，仅供参考 学习资料 第一章1 从功能上讲， Visual Basic 6.0 有 3 种版本，即：学习版、专业版、企业版 2 与传统的程序设计语言相比，Visual Basic 最突出的特点是事件驱动编程机制。 3 Visual Basic 6.0 集成环境的主窗口中含有标题栏、菜单栏、工具栏 4用标准工具栏中的工具按钮不能执行的操作是打印源程序。 5关于 Visual Basic 方法 的概念错误的是方法是对事件的响应 6在 Visual Basic 中，称对象的数据为属性 7Visual Basic 应用程序可以用解释方式执行也可以用编译方式执行 第二章 1 计时器控件
2、的Interval 属性用于设置Timer 事件发生的时间间隔，为了暂时关闭计时器，应把该计时器的Enabled 属性设置为False ，如果要求设置定时器时间间隔为1 秒钟，那么它的Interval 属性值应该等于1000 2 利用 Ctrl + G 操作可以打开立即窗口。 3 假定窗体上有一个标签，名为 Lable1。为了使该标签透明并且没有边框，则正确的属性设置为：Lable1.BackStyle = 0 Lable1.BorderStyle = 0 4在设计阶段，当双击窗体上的某个控件时，所打开的窗口是代码窗口 5 在 Visual Basic 中，窗体文件的扩展名为FRM 6 窗体的
3、 Name 属性指定窗体的名称，用来标识一个窗体 7 改变控件在窗体中的上下位置，应修改该控件的属性是Top 8 表示滚动条控件取值范围最大值的属性是Max 9 如果要改变窗体的标题，则需要设置的属性是Caption 10 在文本框（ Text）中，通过ForeColor 属性来设置字体颜色 11 若要求从文本框中输入密码时在文本框中只显示* 号，则应当在此文本框的属性窗口中设置Passwordchar属性值为 * 12 能够改变复选框中背景颜色的属性是Backcolor 13 图片框是不具有Picture 属性的对象 14 窗体的 Name 属性指定窗体的名称，用来标识一个窗体 15 要想返
4、回文本框中输入的内容则可利用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） 数字开头，关键字， * 3X 是小于 100 的非负数，用VB 表达式表达正确的是0=X and Xb)Or(b0) 值为真。 5/5.25 为 1 如果除数与被除数不是整数时，系统会自动对其进行取整运算，取整是有规律的：如果整数部分为偶数，大于0.5 的就进位，小于等于0.5 的就直接把小
5、数去掉，5舍 6 入；如果整数部分为奇数，4 舍 5 入。例如： 52.5 等价于 52 52.6 等价于 53 52.4 等价于 52 5.43 等价于 53 学习资料收集于网络，仅供参考 学习资料 51.5 等价于 52 6函数 String(n，str)的功能是返回由n 个字符组成的字符串 7设有如下声明： Dim X As Integer 如果 Sgn(X) 的值为 -1，则 X 的值是小于0 的数 Sgn(3-5)=-1 Sgn(5-3)=1 8Integer 类型的数据由2 字节组成， Long 类型的数据由4 字节组成。 9已知 XY，AB，正确表示它们之间关系的式子是Sgn(Y
6、-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 xb Eqv ca 的值为真 Eqv 相同为 true 相反为 false 设 S=中华人民共和国，表达式Left（S,1）+Right （S,1）+Mid （ S,3,2）的值为 中国人民 表达式 2*42-2*6/3+32的值是 29 表达式 52
7、Mod 252 2 的值是 1 13VB 算术运算符乘或除、整除、求余的优先级，从高到低依次为乘或除、整除、求余 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，则表达式
8、val(Left$(A$,4)+Mid$(A$,4,2)的值为（ 123445） 左取 4 位 1234 中取 4 位开始 2 位 18数学关系 3x10 表示成正确的VB 表达式为3=x And x=3 and x=0 and a+cb+3 OR NOT d 的值是 _ False _。 第四章 1VB 中可用 MsgBox 语句产生一消息框。 2VB 提供了结构化程序设计的三种基本结构，三种基本结构是：选择结构或 循环结构或 顺序结构 3InputBox 函数返回值的类型为字符串。 J 下列语句正确的是(C) A If A B Then Print A 不等于 B B If AB Then
9、 Printf A不等于 B C If AB Then Print A不等于 B D If A B Print A 不等于 B 学习资料收集于网络，仅供参考 学习资料 4在 Do Until Loop 循环中，判断循环表达式与结束循环的关系是先判断循环表达式， 当表达式值为真时结束循环 5在 While 循环中，判断循环表达式与结束循环的关系是先判断循环表达式，当表达式 值为真时执行循环体 6设 a=6，则执行x=IIf(a 5,-1,0)后 ,x 的值为 1 If a5 then A=-1 Else A=0 endif 7要使下列For 语句循环执行20 次，循环变量的初值应当是多少? Fo
10、r k= _1_To -5 Step -2 参考答案1：33 N=( 终值 -初值 )/2+1 8以下语句的输出结果是: Print Int(12345.6789*1000.5)/100 参考答案12345 9给出下列程序运行的结果 （1） x=5 y=-6 If Not x0 Then x=y-3 Else y=x+3 Print x-y; y-x 结果-3 3 （2）J 1=4 J2=9 If J1J2 Then Print J2 Else Print J1 结果为 9 （3）执行以下程序段后，变量c $ 的值为（Quick BASIC Programing ） a $ = Visual
11、Basic Programing b $ = Quick c $ = b $ y=5 x 是否 =3 （18）下面程序执行的结果是(579) Private Sub Command1_Click() A=123:b=456 C=Val(a)+Val(b) 2 边是数字则做加法 Print c End Sub （19）若 i 的初值为8，则下列循环语句的循环次数为（5）次同样可以用公式： （终值 -初值） /步长 +1 Do While i8 then y=x2+1 ： 学习资料收集于网络，仅供参考 学习资料 if x2=9 then y=x2-2 ： if x2=3) 是否为素数，请补充完整。
12、 Dim n As Integer n=InputBox(请输入一个整数(=3) ) k=Int(Sqr(n) ) i=2 swit=0 While i =k And swit=0 If n Mod i=0 Then _1_Else ：参考答案1.swit=0 2.swit=1 _2_ End If loop If swit=0 Then Print n; 是一个素数。 Else Print n; 不是一个素数。 End If 2.下面程序是用来打印九九乘法表的，请补充完整。 Dim i As Integer, j As Integer, Str1$ Str1= For i=1 To 9 Fo
13、r j=1 To 9 If_1_Then Else Str1=Str1 amax, min=; amin 参考答案1： x0 2：xamin 5.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 Do Until x=-1 a=InputBox(请输入第一个数字a 的值 ) a=Val(A) b=InputBox(请输入第二个数字b 的值 ) b=Val(b) x=InputBox(请输入第三个数字x 的值 ) x=Val(x) a=a + b + x Loop Print a End Sub 在程序运行后，单击命令按钮，在对话框
14、中分别输入5，4，8，5，8，-1 ，输出结果为 _1_. 参考答案 1 ：12 6.下列程序的功能是：当x100 时，没有意义。 请填空。 Private Sub Command1_Click() Dim x As Single x=InputBox( 请输入 x 的值！ ) _1_Case Is =Len(s) _1_If n Mod 8 0 Then st=st a, b=; b End Sub 程序 32、 请写出单击窗体后，窗体上的显示结果。 Private Sub Form_Click() For i% = 1 To 7 Print Spc (7- i) ; For j% = 1
15、To (2 * i%) - 1 : Print M ; : Next j% Print Next i% End Sub 程序 33、写出程序运行时，单击Option1(2)后，窗体上的显示结果。 Private Sub Form_Load() Option1(0).Value=False Option1(1).Value=False Option1(2).Value=False End Sub Private Sub Option1_Click(Index As Integer) 学习资料收集于网络，仅供参考 学习资料 If Option1(Index).Value=True Then Select Case Index Case 0 Check1(0).Value=1: Check1(1).Value=0 Case 1 Check1(0).Value=0: Check1(1).Value=1 Case 2 Check1(0).Value=1: Check1(1).Value=1 End Select If Check1(0).Value=1 Then Print 您好 If Check1(1).Value=1 Then Print 欢迎使用Visual Basic! End If End Sub 程序 34、设 Text1.Text为 abcd
