复习提纲--VB
期末复习提纲——VB 程序设计 一、VB 概述
1、了解VB 的集成开发环境、主要特点及应用程序开发步骤； （1）集成开发环境，如下图所示。
（2）特点：
①可视化编程；②面向对象的程序设计；③结构化的程序设计语言； ④事件驱动的编程机制；⑤访问数据库 （3）应用程序开发步骤：
①建立可视化的用户界面；②设置对象属性；③编写代码；④程序的运行和调试；⑤保存文件 2、理解对象、属性、事件、方法、事件过程的概念；
（1）对象：是程序中可区分、可识别的实体。对象包括了对象的数据（属性）、作用于对象的操作（方法）和对象的响应（事件）。对象可以是由用户自己设计的，也可以是系统已经设计好了供用户使用的。在Visual Basic 中，对象主要是指窗体和控件。
（2）属性：用于表示对象的特征，即属性是描述该对象特征的数据。
对象常见的属性：标题（Caption）、名称（Name）、颜色（Color）、字体大小（FontSize）、是否可见（Visible）。
一般格式为：对象名.属性名称=新设置的属性值
如：Text1.text=”Good morning!”（把字符串”Good morning!”赋给Text1文本框控件的Text属性。）Text1.V isible=False（Text1控件的属性V isible为False，也就是不显示，若为True，则显示。）（3）方法
在Visual Basic中，将一些通用的操作编写成子程序并封装起来，这些通用子程序就称为方法。
方法是属于对象的，所以在调用方法时应指明方法所属的对象，格式为：对象名称.方法名称
如：Form1.Print “Good morning!”（在名为“Form1”的成体上显示字符串“Good morning!”。）
（4）事件及事件过程
所谓事件（Event）：是由VB预先设置好的能够被对象识别的动作，如Click（单击）、DblClick（双击）、Load（装入）、MouseMove（移动鼠标）、Change（改变）等。
响应某个事件后所执行的操作通过一段程序代码来实现，这样的一段程序代码叫做事件过程（Event Prcudure）。一个对象可以识别一个或多个事件，因此可以使用一个或多个事件过程对用户或系统的事件作出响应。
事件过程的一般格式如下：
Private Sub 对象名称_事件名称（）
……
事件响应程序代码
……
End Sub
eg：在窗体Form1上有按钮控件Command1，我们为Command1的鼠标单击事件编写的事件过程如下：Private Sub Command1_Click（）
Print “你好！”
End Sub
（当程序运行后，当鼠标单击按钮Command1时，就在窗体上显示字符串“你好！”）
3、理解窗体的常用属性、事件和方法；
窗体是Visual Basic的对象，同时又是一种容器，在窗体上可以放置各种控件对象。（1）窗体的常用属性，如下表所示。
（2）窗体的常用事件，如下表所示。
3、多窗体，下表所示的是窗体常用语句和方法
4、了解控件的命名、控件值及基本操作；
窗体和控件都是Visual Basic中的对象，它们共同构成用户界面。
（1）标准控件（内部控件）
①Visual Basic中的控件分为标准控件（内部控件）、Active X控件、可插入对象三类。
②常用的内部控件有：标签框、文本框、图片框、命令按钮、复选框、单选按钮、列表框、组合框、滚动条、计时器和框架等。
（2）控件的命名
每个窗体和控件都有一个名字，这个名字就是窗体或控件的Name属性值。在一般情况下，窗体和控件都有默认值，如Form1、Command1、Text1等。
（3）控件值
在一般情况下，通过“控件.属性”格式设置一个控件的属性值。
如：Text1.Text=“Visual Basic程序设计”（这里的“Text1”是文本框控件名，而Text是文本框的属性，上面的程序行把文本框的Text属性设置为“V isual Basic程序设计”。）
（4）控件的添加
方法1：单击“工具箱”中的控件图标按钮，在窗体上拖动鼠标画出控件；
方法2：双击“工具箱”中的控件图标按钮，即可在窗体的中央画出控件。
（5）控件的缩放与移动、复制和删除
二、vb程序设计基础
1、理解VB的基本数据类型（如下表所示）
2、理解常量的表示方法和符号常量的定义；
（1）文字常量：字符串常量和数值常量。
①字符串常量：如“Hello”、“123456”等
②数值：整型数、长整型数、货币型数和浮点数。
（2）符号常量：[Public|Private]Const<符号常量名> [As<数据类型>]=<表达式>…
如：Const pi=3.14159（其中const为语句定义符，pi为常量3.14159的名字，代表3.14159。）声明符号常量时，可以在常量名后面加上类型说明符：Const pi#=3.14159（将pi声明为双精度常量）
3、理解变量的命名规则、变量的类型和定义，理解变量的作用域；
（1）变量的命名规则
①VB变量名只能用字母、数字和下划线组成，变量名中不能包含小数点。
②VB变量名的第一个字符必须是字母或汉字，最后一个字符可以是类型说明符，且组成变量名的字符数不得超过255个字符。
③不得使用VB的保留名或保留名后加上类型说明符来作为变量名。
④变量名在同一个范围内必须是唯一的。
⑤为了增加程序的可读性，一般在变量名前加上一个表示该变量数据类型的前缀。
（2）变量的类型和定义
①变量：程序运行过程中其值可以改变的量称为变量。变量的形式：属性变量和内存变量。
②用类型说明符表示变量
将类型说明符放在变量名的尾部，可以表示不同的变量，如%表示整型、&表示长整型、!表示单精度型、#表示双精度型、@表示货币型，$表示字符串型。例如：strName$ 、dblNum% 、curWage@ （3）理解变量的作用域
①用声明语句声明变量的语法为：
[Dim|Private|Static|Public|Redim}<变量名1>[As<类型>][,<变量名2>[As<类型2>]]…
◆Dim：用于在标准模块（Module）、窗体模块（Form）或过程（Procedure）中定义变量或数组。当定义的变量要勇于窗体时，程序代码窗口中的“对象”框应为“通用”，“过程”框应为“声明”。
◆Static：用于在过程中定义静态变量及数组变量。与Dim不同，如果用Static定义了一个变量，则每次引用该变量时，其值会继续保留。而当引用Dim定义的变量时，变量值会被重新设置。
通常把由Dim定义的变量成为自动变量；由Static定义的变量成为静态变量。
②变量范围
◆过程级变量（局部变量）：只有在声明它们的过程中才能被识别。可以用Dim和Static关键字。
在整个应用程序运行中，用Static声明的局部变量中的值一直存在；而用Dim声明的变量只在过程执行期间才存在。
◆模块级变量
4、了解常用内部函数，理解运算符和表达式；
（1）VB的内部函数大体上有5类：转换函数、数学函数、字符串函数、时间/日期函数和随机函数。
A、取整函数：Int(n) 返回不大于n的最大整数。
Fix(n) 去掉n的小数部分，返回其整数部分。
例如：Int (5.872) = 5 Int (-5.872) = - 6 Fix (5.872) =5 Fix (-5.872) = - 5
B、类型转换函数：Asc（s）返回字符串s的首字符的ASCII码值。
Chr（n）把n转换为相应的字符。其中表达式n是一个ASCII码值。
V al（s）V al 函数返回字符串表达式s中所含的数值。
Str（n）返回数值n的字符串形式。
（当数字转成字符串时，字符串的第一个位一定是空格或是负号。）
例如：Asc("A") = 65 Asc("a") = 97 Asc("Apple") = 65
Chr(65) = A Chr(97) = a Chr(48) = 0
V al("2457") = 2457 V al(" 2 45 7") = 2457（去掉空格）
V al("24 and 57") = 24（返回整值24）V al("3E–2") =3E–2（返回实数值）
Str(459) = " 459" Str(–459.65) = "–459.65"
C、三角函数：Sin(x) 返回自变量x的正弦值。
Cos(x) 返回自变量x的余弦值。
Tan(x) 返回自变量x的正切值。
Atn(x) 返回自变量x的反正切值。
角度转换为弧度的公式：1 度= π/ 180 = 3.14159 / 180（弧度）
D、绝对值函数：Abs(x) 返回x的绝对值。
例如：Abs(50.3) = 50.3 Abs(–50.3) = 50.3
E、符号函数：Sgn(x) 返回x的符号。
当x的值<0时，函数返回–1 ；如：Sgn(15) = 1
当x的值=0时，函数返回0 ；如：Sgn(0) = 0
当x的值>0时，函数返回1 ；如：Sgn(-15) = - 1
F、平方根函数：Sqr(x) 返回x的平方根。x的值须大于或等于0 。
G、指数和对数函数：Exp(x) 返回以e为底、以x为指数的值，即求ex值。
Log(x) 返回x的自然对数。
H、时间/日期函数：Day(now)——返回当前的日期；WeekDay(now)——返回当前的星期；
Month(now)——返回当前的月份；Y ear(now)——返回当前的年份
Hour(now)——返回小时（0-23）；Minute(now)——返回分钟（0-59）；
Second(now)——返回秒（0-59）
I、随机函数：Rnd[(x)] 产生一个大于或等于0小于1的单精度随机数。[0,1）
（2）运算符与表达式
Visual Basic提供了丰富的运算符，可以构成多种表达式。（以下均为有效的表达式）
例如：x + 3 t + Sin ( a ) pi * r ^ 2 100 b “I am a ” & “student.”
A、算术运算符
例题：3 + 2 * 7=17 ( 3 + 2 ) * 7=35 10 * – 5=-50 11 Mod 4 / 2=1 ( 11 Mod 4 ) / 2=1.5
1 + ((
2 +
3 )* 2 ) * 2=21 1
4 /
5 * 2=5.
6 15 \ 5 * 2=1 2
7 ^ 1 / 3=9 27 ^ ( 1 / 3 )=3
B、关系运算符（比较运算符）：用来比较两个操作数的大小。由操作数和关系运算符组成的表达式称为关系表达式。关系表达式的运算结果是一个逻辑值，即真（True）或假（False）。VB把任何非0值都认为是逻辑真，但一般以–1表示逻辑真。以0表示逻辑假。
运算符测试关系表达式具体实例
= 相等x = y x + 2 = 10（当x=8时，结果为True即-1，否则为False即0）< > 或> < 不相等x < > y “ ABCDE ” < > “ ABCDC ”（结果为True，即– 1 ）
< 小于x < y 100 < 50（结果为False，即0）
> 大于x > y
< = 小于或等于x < = y
> = 大于或等于x > = y
C、逻辑运算符：Not > And > Or
◆Not 非（“取反”运算）：5 > 8 其值为False ；而Not( 5 > 8 )的值为True。
◆And 与：T And T = T T And F = F
F And T = F F And F = F
例如：4 < 9 And 1 + 1 = 2 结果为True； 5 > 2 And 8 < 3 结果为False；
a < >
b And False 不管a，b为何值，结果恒为False
◆Or 或：T And T = T T And F = T
F And T = T F And F = F
例如：4 < 9 Or 1 = 2 结果为True 5 < 4 Or 3 < > 3 结果为False
True Or x = y 结果恒为True
D、表达式的执行顺序：
函数运算>
算术运算【幂(“) >取负(-) >乘、浮点除(*、/) >整除(＼) >取模(Mod) >加、减(+、-) >连接(&)】>
关系运算【=、>、<、<>、<=、>=】>逻辑运算【Not >And >Or】
说明：◆当乘法和除法同时出现在表达式中时，将按照它们从左到右出现的顺序进行计算。
◆字符串连接运算符(&)不是算术运算符，就其优先顺序而言，它在所有算术运算符之后，而在所有比较运算符之前。
◆当幂和负号相邻时，负号优先。如：4^-2的结果是0．0625(4的负2次方)，而不是-16(-4的平方)。
◆括号可以改变运算顺序。在表达式中只能使用圆括号，不能使用方括号或花括号。
5、理解InputBox、MsgBox、Print的使用；
（1）InputBox(Prompt[, Title] [, Default] [, Xpos] [, Y pos] [, Helpfile, context])
主要参数说明：①Prompt：一个字符串，指定对话框内显示的信息，用来提示用户输入。
②Title：字符串，指定对话框的标题。
③Default：对话框缺省的输入值。
（2）Print方法：[对象名称].Print [表达式表][，|；]
Print方法可以在窗体（Form）、图片框（PictureBox）上显示文本字符串和表达式的值；也可以在立即窗口（Debug）和打印机上（Printer）输出信息。
说明：
①对象名称是可选的，对象名称可以是窗体（Form）、图片框（PictureBox）、立即窗口（Debug）等对象或是打印机（Printer）。如果省略，则在当前窗体输出要打印的表达式或表达式的列表。例如：
◆在名为Form1 窗体中输出“Hello World!”字符串：Form1.Print "Hello World!"
◆在名为Picture1 的图片框中显示“V isual Basic 6.0”字符串：Picture1.Print "V isual Basic 6.0"
◆在当前窗体中显示Integer 型变量intFlag 的值：Print intFlag
◆在打印机上输出“Hello！”字符串：Printer.Print " Hello！"
②“表达式表”是一个或多个表达式，可以是数值表达式或字符串。对于数值表达式，打印出表达式的值；而字符串则照原样输出。如果省略Print后的“表达式表”，则打印一空白行；当输出多个表达式或字符串时，各表达式用分号（；）或逗号（，）来分隔。
例如：a=4：b=2 输出结果为：
Print a；b；a*(a-b) 4 2 8
Print a*(b-a) －8
Print “ABCDEF”, ABCDEF BeiJingCHINA
Print "BeiJing"；"CHINA"
注意：当输出数值数据时，数值的前面有一个符号位，后面有一个空格，而字符串前后都没有空格。
③Print方法具有计算和输出双重功能，对于表达式，它先计算后输出。
例如：x=5：y=10
Print （x+y）/ 3
——Print方法先计算表达式（x+y）/ 3的值，然后输出5。
注意：Print 没有赋值功能，所以Print z=（x+y）/ 3不能打印出z=5，而是打印出False。
④每执行一次Print方法要自动换行。为了仍在同一行上显示，可以在末尾加上一个分号或逗号。
◆使用分号时，下一个Print输出的内容将紧跟在当前Print所输出的信息后面；
◆使用逗号时，则在同一行上跳到下一个显示区段显示下一个Print所输出的信息。
例如：Print “30+50=”，输出结果为：30+50= 80 Print 30+50 30+50=80
Print “30+50=”；
Print 30+50
6、理解顺序、选择和循环三种基本控制结构；
7、理解赋值语句、注释语句、暂停语句和结束语句；
8、理解If语句和Select Case语句；
9、理解For循环、While循环和Do循环，理解单层循环，了解二重循环；
10、理解一维数组的定义和应用，了解二维数组和控件数组；
11、了解Sub过程和Function过程的建立和调用；
12、了解形式参数和实际参数、传值和传地址的含义；
三、可视化和面向对象程序设计
1、理解标签框、文本框、命令按钮、图片框、图像框、滚动条和计时器（常用属性、方法、事件和应用）；
2、了解复选框、单选按钮、列表框和框架；
3、了解菜单设计（下拉式菜单和弹出式菜单）；
四、VB程序设计要求
1、理解顺序、选择和循环三种基本控制结构；
2、理解变量的作用域，理解数据的输入和输出；
3、熟悉窗体及常用内部控件的基本应用（常用属性设置、编写事件过程）；
4、对程序的具体要求：能编写和阅读理解含有一维数组、选择结构、单层循环结构的事件过程；能初步阅读含有二重循环、二维数组和过程调用的程序；能阅读理解含有多个时间过程的窗体程序。
vb代码大全
用VB5实现窗口图象缩放、滚动技巧 成都理工学院计算机工程系 洪志全 ---- Visual Basic 是Windows 平台中最常用的应用软件开发语言, 窗口图像缩放、滚动是图像处理、多媒体数据库等应用软件开发中的基本功能。本文将介绍如何用VB 5.0 实现地窗口图像缩放和滚动技巧, 供读者在各种语言系统开发中参考。 ---- 一、获取图像 ---- 本文所介绍的图像缩放并没有对真正的图像进行缩放, 而是复制一幅窗口图像的真实画面, 对这个窗口图像附本进行局部缩放和滚动, 获取窗口图像可使用Windows 的API 函数来实现。具体来说, 实现窗口图像缩放、滚动需要用GetDeskTopWindow() 函数获取桌面窗口句柄, 再通过GetDC() 函数转换为描述表句柄, 则用BitBlt() 函数把桌面图像复制到任意图形容器控件中, 桌面图像复制完成后, 再用ReleaseDC 释放窗口描述表, 各API 函数的具体使用方法参见本文的例子程序。 ---- 本文所用的API 函数包含在WIN95/98 的GDI32.DLL 和USER32.DLL 动态链接库中, 在使用时可通过VB5.0 的TEXT VIEWER 复制到所开发的应用程序中。 ---- 二、图像缩放 ---- 图像缩放显示的基本原理就是把原图像的一部分缩放后再送入窗口的图形容器控件中, 在VB 中可用内部命令PaintPicture 来进行, 语法格式为: PaintPicture Pic,DestX,DestY,DestWidth, DestHeight,ScrX,ScrY,ScrWidth,ScrHeight ---- 其中,Pic 为图片对象, 如图形控件对象等; DestX,DestY为目标图像起始坐标; DestWidth,DestHeight为目标图像幅面尺寸; ScrX,ScrY为源图像起始坐标; ScrWidth,ScrHeight为源图像剪裁尺寸。 ---- 该命令就是把一个源图像资源任意复制到指定的区域, 其功能相当于API 函数的BitBlt, 但使用更简单, 若复制时改变源图像的ScrWidth,ScrHeight 或目标图像的DestWidth,DestHeight 可使复制后的图像尺寸发生变化, 实现窗口图像的缩放显示。若ScrWidth,ScrHeight 或
VB程序设计作业参考答案
《VB程序设计》作业参考答案 一．选择题 1－5 ABC CB 6—10 CCA DC 11－15 ABC DB 15－20CDA CB 21－25DBD CC 25－30DAC AA 31－35 DAC AA 36－40 BCC CD 41－45 CCC AC 46－50DDB AD 51－55 ACA CD 56－60 BCA DA 61－65 BAADB 66－70DBDAC 71－75BBBAD 76—80CDABC 81-85ABCD C 86-90BAADD 91-95CBBAD 96.B 二．填空题 (1) E (2) 程序代码(3) CmdDisplay.Visible =False(4) t=a(j)(5) And (6) 回车符(7) text2.setfocus (8) 3 (9) D=B:B=C:C=D (10) Random （11）事件过程(12) 打开对话框(13) 3 (14) a(i,j)=0 (15) L1.text (16) Put # (17) True (18) I MOD 4=0 (19) AaBbCc （20）INT(Rnd*100) ；arr （21）Output ；Write #1,StuNo,StuName,StuEng (22)10 (23)4 (24) 顺序，随机 (25)INPUT,OUTPUT,APPEND （26）程序代码窗口的字符过大或过小，可以通过（工具→选项→编辑器格式→大小）去改变。（27）窗体、控件、对象（28）界面设计（29）对象、代码（30）窗体、标准模块、类模块、工程（31）窗体(Form)、图片框(PictureBox)、打印机(Printer)、立即窗口(Debug) （32）E D（33）81 （34）程序，数据（35）窗体、控件、对象（36）对象、代码（37）用户界面的窗体、执行具体操作的代码。（38）Picture属性、剪切板把图形粘贴 三．编程题 1. Option Base 1 Private Sub Form_click() Dim a(3) As Integer, m As Integer Do While m <> -1 And i < 3 m = InputBox("请输入第" & i + 1 & "条边") i = i + 1 a(i) = m If a(i) < 0 Then MsgBox "输入错误，请重新输入！" i = i - 1 End If Loop If a(1) + a(2) > a(3) And Abs(a(1) - a(2)) < a(3) Then
VB期末考试试题及答案
二、选择题 1、菜单控件只包括一个事件，即 C ，当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。 A、GotFocus B、Load C、Click D、KeyDown 2、滚动条控件(如图所示)的Max属性所设置的是 A 。 A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值 B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量 C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量 D、滚动条控件无该属性 3、SQL 语句 Select * Form student 中的 *表示 B 。 A、所有记录 B、所有字段 C、所有表 D、都不对 4、以下选项中，不属于标签的属性是 C 。 A、Enabled B、Caption C、Default D、Font 5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是 A 。 A、Caption B、Name C、Text D、Label 6、设置一个单选按钮(OptionButton)所代表选项的选中状态，应当在属性窗口中改变的属性是 D 。 A、Caption B、Name C、Text D、Value
7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的 D 。 A、在标题项中输入&，然后打勾 B、在索引项中打勾 C、在有效项中打勾 D、在复选项中打勾 8、当执行以下过程时，在窗体上将显示 A 。 Private Sub Command1_Click( ) Print "VB"; Print "Hello! "; Print "VB" End Sub A、 VBHello!VB B、 VB Hello!VB C、 VB D、 VB Hello! VB Hello! VB 9、语句Print "The answer is:";20/4-2的结果为 B 。 A、The answer is 20/4-2 B、The answer is 3 C、The answer is "20/4-2" D、非法语句 10、下列哪个控件是容器控件 B 。 A、Image B、Picture C、ComboBox D、FileListBox 11、若要将窗体从内存中卸载出去，其实现的方法是 D 。 12、以下选项中，不是 Visual Basic控件的是 A 。 A.窗体 B.定时器 C.单选框 D.命令按钮 13、双击窗体中的对象后，Visual Basic将显示的窗口是 A 。 A.代码窗口 B．工具箱 C．项目（工程）窗口 D．属性窗口 14、可决定窗体的左上角是否有控制菜单的属性是 A 。 15、设有如下语句： Strl＝InputBox（"输人"，""，"练习"） 从键盘上输人字符“示例”后，Strl的值是 D 。 A．“输入” B．“” C．“练习” D．“示例” 16、窗体Form1的Name属性是Frm1,它的单击事件过程名是 C 。 A. Form1_Click C. Frm1_Click D. Me_Click 17、窗体的hide属性的含义是 A 。 A.隐藏 B.展现 C.装入 D.卸载 18、若要设置定时器控件的定时时间，需设置的属性是 C 。 A．Enabled B．Value C．Interval D．Text 19、能够改变复选框中背景颜色的属性是 C 。
VB6.0的小程序计算器
VB6.0的小程序计算器 对于刚入门学习VB6的朋友来说肯定会做些小程序吧，这里就是给大家演示个简单的计算器程序，仅供参考啦。 界面上加减乘除四个按钮分别是cmdAdd、cmdPlus、cmdMultiple、cmdDevide，小数点按钮是cmdDot，负号按钮是cmdMinuse，数字0～9为了偷懒，用了控件数组cmdNumber(0)~ cmdNumber(9)，上面txtShow是显示数字和结果用的，txtOperate是显示中间步骤的。 思路大致是这样，点加减乘除这类操作符的时候，把当前txtShow的值保存在模块变量mstrParam1里，同时把操作符保存到mstrOperate里，按等于号时把先把当前txtShow的值保存在模块变量mstrParam2里，然后对mstrParam1和mstrParam2进行运算，当然要记得设法把String转换成数值进行运算。 转换的过程要注意，这里是用的Variant数据类型，vParam1和vParam2都是Variant 类型，保存的是mstrParam1和mstrParam2的数值。之所以不用integer、long、double 这些标准类型，是因为这些类型都有大小限制，做出来用着不方便，VB最大的整型long才到 2147483647，这意味着计算器的计算结果只能限制在9位到10位。而Variant类型可以支持非常大的数，具体多大不清楚，但起码几十位是能够支持的。另外，最后算完的结果也要做格式化，因为如果数值非常大的话，VB会自动转成科学计数法，所以要用Format函数进行调整。 如果需要源代码的话在我百度空间里留言。https://www.wendangku.net/doc/7a614884.html,/zhaozhigang517
VB程序代码(简单小程序)
实验一（带有进度条的倒计时程序） Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick If (ProgressBar1.Value + ProgressBar1.Maximum / timers < ProgressBar1.Maximum) Then ProgressBar1.Value += ProgressBar1.Maximum / timers Else Timer1.Enabled = False ProgressBar1.Value = ProgressBar1.Maximum MessageBox.Show("进度完成！") End If temp += 1 Label1.Text = temp.ToString() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load timers = 30 End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Timer1.Enabled = True End Sub End Class 实验二（定时器控制蝴蝶飞舞） Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3.Image = PictureBox2.Image
VB程序设计网上作业2016
题1.若要使命令按钮不可操作，要对下列哪个属性进行设置 A、Enabled B、Visible C、BackColor D、Caption 标准答案:A 题2.打开文件的Open语句中，如果省略“For模式”，则打开的文件的存取方式是 A、顺序存取方式 B、顺序文件方式 C、随机存取方式 D、二进制方式 标准答案:C 题3.命令按钮、单选按钮、复选框上都有Picture属性，可以在控件上显示图片，但需要通过下列哪一个属性来控制 A、Appearance属性 B、Style属性 C、DisabledPicture属性 D、DownPicture属性 标准答案:B 题4.系统启动时自动执行下列哪一个事件过程
A、Load B、Click C、UnLoad D、GotFocus 标准答案:A 题5.VB工程中窗体文件的扩展名是 A、.bas B、.frm C、.vbg D、vbp 标准答案:B 题6.如下数组声明语句，正确的是 A、Dim x[1,4] As integer B、Dim x(1, 1 to 4) As integer C、Dim x([1,n] As integer D、Dim x(1 4) As integer 标准答案:B 题7.如下VB的特点中错误的是 A、简单易学 B、界面友好
C、不可编译 D、集成化环境 标准答案:C 题8.从随机文件读出数据使用的语句是 A、Input # 文件号，变量名 B、Get # 文件号，变量名 C、Put # 文件号，变量名 D、Write # 文件号，变量名 标准答案:B 题9.为了防止用户随意将光标置于控件之上，应 A、将控件的TabIndex属性设置为0 B、将控件的Tapstop属性设置为True C、将控件的TapStop属性设置为False D、将控件的Enabled属性设置为False 标准答案:D 题10.如果希望在InputBox的提示项中输出多行内容时，需要使用下列哪个参数实现 A、Chr(13)+Chr(10) B、Chr(13) C、Chr(10) D、Chr(10)+Chr(13) 标准答案:A
vb期末考试试题
第1题（1.0分）题号:227 表达式1 and 0的值【1】.答案：1). False 第2题（1.0分）题号:222 把整数0赋给一个逻辑型变量,则逻辑变量的值为【1】. 答案：1). False 第3题（1.0分）题号:60 a 和b 中有仅只有一个为1,相应的Visual Basic逻辑表达式为【1】. 答案：1). a=1 xor b=1 第5题（1.0分）题号:244 设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是【1】. 答案：1). (x mod 10) * 10 + int(x/10) 第7题（1.0分）题号:226 表达式32\7 MOD 3^2 的值是【1】. 答案：1). 4 第8题（1.0分）题号:288 文件按照存取方式及其组成结构可以分为顺序文件和【1】. 答案1). 随机文件或随机 第9题（1.0分）题号:319 Option Base 1的作用是确定数组的下界为【1】. 答案：1). 1 第1题（1.0分）题号:236 所有的VB 的变量,都有隐含说明字符和强调声明两种方法来定义. 答案：N 第2题（1.0分）题号:246 ActiveX控件是扩展名为*.ocx的独立文件,使用时需用 "工程"/"部件"载入或移去. 答案：Y 第3题（1.0分）题号:289 框架控件和形状控件都不能响应用户的鼠标的单击事件. 答案：Y 第4题（1.0分）题号:350 在窗体模块的声明部分中用Private声明的变量的有效范围是其 所在的工程. 答案：N 第5题（1.0分）题号:354 在框架控件上放置的控件可以移动到框架控件的外面. 答案：N 第6题（1.0分）题号:231 可以用"&","+"合并字符串,但是用在变异变量时,"+"可能会将两个数值加起来.答案：Y 第8题（1.0分）题号:247 Circle方法绘制扇形或圆弧图形时,图形的形状不仅与起始角、终止角的大小相关,而且与起始角、终止角的正或负相关.答案：Y 第9题（1.0分）题号:330 有一个程序在属性窗口中设置了它的窗体字体大小为10号,而程序代码若设置了它的窗体字体大小为20号,那么当程序运行后实际的窗体字体大小为20号.答案：Y 第10题（1.0分）题号:225 Visual Basic程序的运行可以从Main()过程启动,也可以从某 个窗体启动. 答案：Y 第1题（1.0分）题号:319 能够改变窗体边框线类型的属性是(). A:FontStyleB:BorderStyleC:BackStyleD:Bord er 答案：B 第2题（1.0分）题号:822 以下()对象不具有Clear方法. A:列表框B:组合框C:剪贴板D:图片框 答案：D 第3题（1.0分）题号:258 常量-0.00013579的科学计数法是(). A:-1,3579E+0.4B:.00013579C:-13.579E-5D:-1.3579E-0.4 答案：C 第4题（1.0分）题号:230 vb 应用程序是分层管理的,其最高的层次为(). A:工程B:模块C:窗体D:过程 答案：A 第5题（1.0分）题号:837 用户可以通过设置菜单项的()属性值为FALSE来使该菜单项不可见. A:HideB:CheckedC:VisibleD:Enabled答案：C 第6题（1.0分）题号:334 若要使标签控件显示时,不覆盖其背景内容,
计算器vb源代码
计算器v b源代码 IMB standardization office【IMB 5AB- IMBK 08- IMB 2C】
计算器vb源代码.txt性格本身没有好坏，乐观和悲观对这个世界都有贡献，前者发明了飞机，后者发明了降落伞。完全版的前后台代码... '请把下面的保存为 VERSION Begin Calculator BorderStyle = 1 'Fixed Single Caption = "计算器" ClientHeight = 2970 ClientLeft = 2580 ClientTop = 1485 ClientWidth = 3270 ClipControls = 0 'False BeginProperty Font Name = "System" Size = Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Icon = "":0000 LinkMode = 1 'Source LinkTopic = "Form1" MaxButton = 0 'False PaletteMode = 1 'UseZOrder ScaleHeight = 2970 ScaleWidth = 3270 WhatsThisHelp = -1 'True Begin Number Caption = "7" Height = 480 Index = 7 Left = 120 TabIndex = 7 Top = 600 Width = 480 End
VB程序代码(简单小程序)
实验一:(带有进度条的倒计时程序) Public Class Form1 Dim timers As Integer Dim temp As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick If(ProgressBar1、Value + ProgressBar1、Maximum / timers < ProgressBar1、Maximum) Then ProgressBar1、Value += ProgressBar1、Maximum / timers Else Timer1、Enabled = False ProgressBar1、Value = ProgressBar1、Maximum MessageBox、Show("进度完成！") End If temp += 1 Label1、Text = temp、ToString() End Sub Private Sub Form1_Load(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles MyBase、Load timers = 30 End Sub Private Sub Button2_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button2、Click timers = Val(InputBox("输入", "请输入总时间。", 30, 0, 0)) End Sub Private Sub Button1_Click(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Button1、Click Timer1、Enabled = True End Sub End Class 实验二(定时器控制蝴蝶飞舞) Public Class Form1 Dim t As Integer Private Sub Timer1_Tick(ByVal sender As System、Object, ByVal e As System、EventArgs) Handles Timer1、Tick ’Dim t As Boolean ' If t = True Then ' PictureBox3、Image = PictureBox2、Image ' t = False 'Else ' PictureBox3、Image = PictureBox1、Image ' t = True 'End If Select Case t Case 0 PictureBox3、Image = PictureBox1、Image
九江学院VB期末考试题目及详细答案
九江学院期末考试复习题（政法A1111）第一套 一、判断题 1、Visual Basic程序开发的特点是面向对象的事件驱动。（√） 2、Print_Text 是一个不合法的变量名。（×） 3、窗体的AutoRedraw属性实现了屏幕图像的重建。（√） 4、设置字体大小应使用Font属性（×） 5、Sub过程可以实现嵌套调用（√） 6、IIF函数中的三个参数都不能省略。（√） 7、块结构条件语句以End If结束，而单行结构条件语句没有End IF。（√） 8、当终值小于初值时，步长为负数。（√） 9、执行While-Wend循环时，如果一开始条件就不成立，则语句块一次也不会执行。（√） 10、关于数组的引用,在程序中,凡是简单变量可以出现的地方都可以出现数组元素的引用(√) 二、单项选择题 1．Print Format（123，”####”）执行之后的结果为 A）＃123B）123C）123＃D）＃＃＃＃ 【答案】B 2．下面可以表示注释语句开头的为 A）Re B）R C）Rem D）dim 【答案】C 3．下列选项中窗体载入事件为
A）Load事件B）Click事件C）DblClick事件D）Unload事件 【答案】A 4．Timer控件可以使用下列哪种事件 A）Click事件B）Timer事件C）Dblclick事件D）Change事件 【答案】B 5．在InputBox函数中哪一个参数是必须的 A）Prompt B）Buttons C）Title D）Context 【答案】A 6．以下叙述中错误的是： A）如果过程被定义为Static类型，则该过程中的局部变量都是Static类型B）Sub过程中不能嵌套定义Sub过程 C）Sub过程可以嵌套调用Sub过程 D）事件过程可以像通用过程一样由用户定义过程名 【答案】C 7．要填加一个标准模块，可使用“_____”菜单中的“添加模块”命令。 A）文件B）视图C）工程D）工具 【答案】C 8．在块结构条件语句If-Then / Endif中 (A)必须至少有一个Elseif语句 (B )可以有任意多个ElseIf-Then语句 (C)如果没有Else语句，运行时将出现错误
VB代码大全
隐藏form1： form1.hide 显示form1： form1.show --------------------------------------------------------------------------------------------- 退出程序时，弹出窗口提示是否要退出： Private Sub Form_Unload(Cancel As Integer) Dim iAnswer As Integer iAnswer = MsgBox("真要退出吗?", vbYesNo) If iAnswer = vbNo Then Cancel = True Else End End If End Sub ---------------------------------------------------------------------------------------------- 只能用任务管理器关闭程序的代码： Private Sub From_Unload(Cancel As Integer) Cancel = true End Sub ------------------------------------------------------------------------------------------------ 点击command1打开33IQ网： Dim strURL Private Sub Command1_Click() strURL = "错误！超链接引用无效。 Shell "explorer.exe " & strURL, 1 End Sub ------------------------------------------------------------------------------------------------ 运行c:\1.exe shell "c:\1.exe" 执行c:\1.bat shell "c:\1.bat" 注：只适用于大部分exe和全部bat。
VB程序设计大作业报告
VB程序设计大作业报告 班级：机械11102班学号：201103112 姓名：孙文斌日期：2013.05.13 一、设计题目：《抓交通肇事犯》 一辆卡车违反了交通规则，撞人后逃逸。现场有三人目击事件，但都没有记住车号，记住车号的一些特征。甲说：车号的前两位数字是相同的；乙说：车号的后两位数字 是相同的，但与前两位不同；丙是位数学家，他说：四位的车号正好是一个整数的平 方。现在请你根据以上线索帮助警方找出车号以便尽快破案 二、问题分析与算法设计： 按照题目的要求造出一个前两位数相同、后两位数相同且相互间又不同的整数，然后判断该整数是否是另一个整数的平方。 假设这个四位数的前两位数字都是i，后两位数字都是j，则这个可能的四位数k为：k = 1000 * i + 100 * i + 10 * j + j 其中，i和j都在0~9之间变化。现在还需使k满足是一个整数c的平方，由于k是一个四位数，所以，m值不可能小于31和大于100，因此，可从31开始试验到100，看是否满足k == c*c，若不满足，则c加1再试，直到找到满足这些限制条件的k为止结束测试。 三、界面与结果截图： 界面截图：
结果截图： 四、结果分析与总结： 通过结果截图我们知道最后得到的车牌号为7744，首先检验甲叙述的前两位数字相同都为7，再检验乙叙述的车牌号后两位相同都为4且不与前两位相同，最后检验丙叙述的该车牌号为88的平方，所以综合上述检验分析结果满足题意。 通过此次VB程序设计从理论到实践，我学到很多很多的的东西，让我对vb程序编写有了一个初步认识。从最初的拿到题目无从下手，接着网上查阅些材料以及反复看书本上的例题使我对这个程序的编写有了一个大致轮廓，接着在草稿纸上写下程序代码，然后到计算机上反复调试，最终才算完成。在这反复调试的过程中我明白了时间是检验真理的唯一标准。这对我今后的学习中都会起到非常重要的作用。最后衷心感谢李宁老师对我vb课程的指导，祝您身体健康，工作愉快。 附录程序源代码： Private Sub command1_click() Dim i%, j%, k%, c% For i = 0 To 9 For j = 0 To 9 If i <> j Then k = i * 1000 + i * 100 + j * 10 + j For c = 31 To 100 If (c * c) = k Then Picture1.Print k End If Next c End If Next j Next i End Sub
vb期末考试试题
2011-2012学年第一学期算法与程序设计期末考试题 班级：姓名：分数： 一、单项选择题（每题4分） 1.算法是解决问题的( ) A.程序代码 B.方法与步骤 C.计算公式 D.最终结果 2.以下不能作为vb常量的的是( ) A.“Good Luck” B. PI C. 1.5E-3 D. 16.34 3.以下各表达式中, 计算结果为0的是( ) A. INT(12.4)+INT(-12.6) B. CINT(12.4)+CINT(-12.6) C. FIX(13.6)+FIX(-12.6) D. FIX(12.4)+FIX(-12.6) 4.设a=″Visual Basic″，下面使b=″Basic″的语句是( ) A.b=Left(a，8，12) B.b=Mid(a，8，5) C.b=Right(a，5，5) D.b=Left(a，8,5) 5.inputbox() 函数返回值类型为( ) A.数值 B.字符串 C.数值和字符串 D.变体 6.下列关于For…Next语句的说法正确的是( ) A. 循环变量、初值、终值和步长都必须为数值型 B.Step后的步长只能为正数 C. 初值必须小于终值 D.初值必须大于终值 7.下列符号中，只有( )是合法的VB变量名。 A．xy23 B．23xy C．Sub D．xy8[1] 8.数学表达式Sin30°写成VB表达式是( ) A．Sin30 B．Sin(30) C．Sin(30°) D．Sin(30*3.14/180) 9.在VB的运算中，级别最高的是( ) A．= B．And C．Or D．Not 10.判断任意3条线段a、b、c能否构成三角形的表达式为( ) A．a+b>=c Or a+c>=b Or b+c>=a B．Not(a+b
用VB编写一个简单计算器
用VB编写一个简单计算器 一、功能：实现简单的加减乘除功能，C归零，CE取消输入，%计算并显示第一个操作数的百分比。 二、控件：1个label，20个commandbutton。 三、计算器运行界面： 四、详细代码： Option Explicit Dim Op1, Op2 '前面输入的操作数 Dim DecimalFlag As Integer '小数点仍然存在吗？ Dim NumOps As Integer '操作数个数 Dim LastInput '指示上一次按键事件的类型 Dim OpFlag '指示未完成的操作 Dim TempReadout ' C (取消) 按钮的Click 事件过程 ' 重新设置显示并初始化变量 Private Sub Cancel_Click() Readout = Format(0, "0.") Op1 = 0 Op2 = 0 Form_Load End Sub ' CE (取消输入) 按钮的Click 事件过程
Private Sub CancelEntry_Click() Readout = Format(0, "0.") DecimalFlag = False LastInput = "CE" End Sub ' 小数点(.) 按钮的Click 事件过程 ' 如果上一次按键为运算符，初始化readout 为"0."； ' 否则显示时追加一个小数点 Private Sub Decimal_Click() If LastInput = "NEG" Then Readout = Format(0, "-0.") ElseIf LastInput <> "NUMS" Then Readout = Format(0, "0.") End If DecimalFlag = True LastInput = "NUMS" End Sub ' 窗体的初始化过程 ' 设置所有变量为其初始值 Private Sub Form_Load() DecimalFlag = False NumOps = 0 LastInput = "NONE" OpFlag = " " Readout = Format(0, "0.") 'Decimal.Caption = Format(0, ".") End Sub ' 数字键(0-9) 的Click 事件过程 ' 向显示中的数追加新数 Private Sub Number_Click(Index As Integer) If LastInput <> "NUMS" Then Readout = Format(0, ".") DecimalFlag = False End If If DecimalFlag Then Readout = Readout + Number(Index).Caption Else Readout = Left(Readout, InStr(Readout, Format(0, ".")) - 1) + Number(Index).Caption + Format(0, ".") End If If LastInput = "NEG" Then Readout = "-" & Readout
VB 做简易计算机程序代码
VB 做简易计算机程序代码 Private Sub Command1_Click() '每点击一下该按钮,就在文本框的尾部加字符"0" '如果txtLabel为空,则说明现在正在输入的第一个数字 '负责表示输入的是第二个数字 If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "0" Else txtSecond.Text = txtSecond.Text + "0" End If End Sub Private Sub Command10_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "8" Else txtSecond.Text = txtSecond.Text + "8" End If End Sub Private Sub Command11_Click() If txtLabel.Text = "" Then txtFirst.Text = txtFirst.Text + "9" Else txtSecond.Text = txtSecond.Text + "9" End If End Sub Private Sub Command12_Click() txtLabel.Text = "加" End Sub Private Sub Command13_Click() txtLabel.Text = "减" End Sub Private Sub Command14_Click() txtLabel.Text = "乘" End Sub Private Sub Command15_Click() txtLabel.Text = "除"
电子科技大学15秋《VB程序设计》在线作业2满分答案
15秋《VB程序设计》在线作业2 一,单选题 1. DataCombo控件的RowSource属性是表示（）。 A. 给DataComebo控件提供列表项的字段 B. 目的表的数据源 C. 给DataCombo控件提供列表项的数据源 D. 更新目的表的字段 正确答案：C 2. 执行语句：Open "Tel.dat" For Random As #1 Len=50后，对文件Tel.dat中的数据能够执行的操作是（）。 A. 只能写，不能读 B. 只能读，不能写 C. 既可以读，也可以写 D. 不能读，不能写 正确答案：C 3. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Dim array1(10,10) As Integer Dim I, j As Integer For I=1 To 3 For j=2 To 4 array1(I, j)=I+j Next j Next I Text1.Text=array1(2,3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是（） 正确答案：A 4. 下列哪个属性设置文本框中文字的对齐方式（）。 A. SelLength B. Alignment C. Multiline D. ScrollBars 正确答案：B 5. 以下能判断是否到达文件尾的函数是（）。 A. BOF B. LOC C. LOF D. EOF 正确答案：D 6. 下面叙述错误的是（）。 A. 驱动器列表框DriveListBox显示当前系统中有效磁盘驱动器 B. 目录列表框DirListBox显示当前驱动器分层目录树 C. 文件列表框FileListBox显示选定目录中的所有文件 D. 文件列表框FileName属性是设定允许显示文件名的文件类型 正确答案：D
VB期末考试试题及答案 (1)
第一部分：客观题 一、单项选择题 1、在窗体模块的通用段中声明变量时，不能使用的关键字是（） A、 Dim B、 Public C、Private D、 Static 2、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（） A、工程资源管理器窗口 B、工具箱窗口 C、属性窗口 D、代码窗口 3、若要使某可见控件获得焦点，可使用（）方法来实现。 Ａ、RefreshＢ、SetfocusＣ、GotfocusＤ、Value 4、下列不可作为VB变量名的是（） A、ABT1 B、Alpha C、ABC D、4*Delta 5、表达式 5 Mod 3+3\5*2的值是（） A、 0 B、 6 C、4 D、 2 6、下列语句中，正确的赋值语句是（） A、 i + j = 10 B、 2i = j C、 j = i + j D、 i * j = 0 7、执行下列程序段后，x的值是（）。
n = 4: x = 1: i = 1 Do x = x * i i = i + 1 Loop While i < n A、 2 B、 6 C、 10 D、 14 8、当用户在窗体上单击鼠标时，不会触发的事件是（） Ａ、ClickＢ、MouseDownＣ、MouseUpＤ、DblClick 9、下列为整型变量的是（） A、 x! B、 x# C、x$ D、 x% 10、要从For循环中直接退出循环，可使用的语句( )。 A、Exit Do B、Exit Loop C、Exit For D、Stop 11、下列逻辑表达式中，能正确表示条件“x，y都是奇数”的是（） A、x Mod 2 =1 Or y Mod 2 =1 B、x Mod 2 =0 Or y Mod 2=0 C、x Mod 2 =0 And y Mod 2=0 D、x Mod 2 =1 And y Mod 2 =1 12、在通用声明中给出Option Base 1语句，则数组a包含（）个数组元素。 Dim a(3, -2 To 1, 5) As Integer A、60 B、75 C、120 D、13
vb编写的计算器代码
Option Explicit Const CC1 = 1E+28, CC2 = 0.000000000000001, CC3 = 100000000000000# Dim Op1, Op2 ' 预先输入操作数。 Dim DecFlag% ' 小数点存在吗？ Dim Klast ' 指示上一次按键事件的类型。 Dim OpFlag ' 指示未完成的操作。 Dim Kedt% ' 指示键入状态，0-未操作，1-算过，2-改过Dim MemNum ' 存储器 Dim Temp2 ' Function sqr28(a As V ariant) As V ariant Dim c As Double c = Sqr(a) If c > CC3 Or c < CC2 Then sqr28 = c Else sqr28 = CDec(Sqr(a)) sqr28 = sqr28 - (sqr28 * sqr28 - a) / sqr28 * 0.5 End If End Function Function cur28(a As V ariant) As V ariant Dim t As V ariant, c As Double c = Abs(a) ^ (1 / 3) If c > 1000000000# Or c < 0.000000001 Then cur28 = c * Sgn(a) Else cur28 = CDec(c) * Sgn(a) t = cur28 * cur28 cur28 = cur28 - (cur28 * t - a) / t / 3 End If End Function ' 存入存储器 Private Sub BtMS_Click() If Kedt = 2 Then GetOp1 MemNum = Op1 LabMem.Visible = MemNum <> 0 Kedt = 1 End Sub ' 取出存储器数据 Private Sub BtMr_Click() CancelEntry_Click Op1 = MemNum