1、VB课件第3讲 VB语言基础第3讲 VB语言基础 本章要掌握和了解的内容 熟悉程序代码和语句书写规则；掌握数据类型；掌握变量、常量的声明；掌握运算符和表达式的使用；掌握常用内部函数的使用。 重点：变量、常量的声明及使用，运算符、表达式及常用函数的使用。 难点：数据类型3.1 数据类型 1. 字符串数据类型（String）（1）变长字符串数据类型（2）定长字符串数据类型 表示空字符串，而 表示有一个空格的字符串。 若双引号是字符串中的字符，则用连续两个双引号表示。as2w、as2w、asdbc、 asdbc2. 数值型数据类型(Numeric) 数值型包括：整型Integer、长整型Long、单
2、精度型Single、双精度型Double、货币型Currency、字节型Byte。 整 型：123,123%，123& 单精度型：12.5,12.5!，1.23E2，1.23E-3 双精度型：12.5#,12.5D-3，1.23D3，1.23E3# 货 币 型：123，1.233. 逻辑数据类型（Boolean） 逻辑型又称布尔型，它只有两种取值(True| False)，通常作为判断条件，也称关系变量。 当逻辑型数据转换成整型数据时，True转换为-1，False转换为0。 当数值数据转换成逻辑型数据时，非0数转换成为True，0转换成为False。4.日期（Date）数据类型日期型数据有两
3、种表示方法：一种是任何字面上可被认作日期的和时间的字符，只要用号码符（#）括起来表示。另一种是用数字序列表示。日期：公元100年1月1日到9999年12月31日时间：00：00：0023：59：596.对象（Object）数据类型 对象型数据用来表示引用应用程序中的对象，它可以是控件对象、OLE对象等。 Set MyTxt = Text1 MyTxt.BackColor = RGB(0,0,255)3.2 变量和常量3.2.1 变量变量：在程序运行中其存储的值可以改变1. 变量的命名规则2.声明变量(1)用Dim语句显式声明变量 Dim 变量名 As 类型 省略可选项，创建的变量为变体变量（变
4、体型）。 一条Dim语句可同时定义多个变量,但每个变量应有类型说明，否则为变体型。例如：Dim x,y As Single则创建了变体型变量x，单精度型变量y。 （2）隐式声明不声明而直接使用的变量为隐式声明，所有隐式声明的变量都是变体型变量。（3）变量的作用范围（域） Public | Private | Dim | Static 变量名 As 类型3.2.2 常量 常量是在程序运行中不变的量,VB有三种常量： 直接常量：其常数值直接反映了其类型123,123&,123.45,1.234E2,123D3,&O123,&H12D,123,St12,#2008-11-12# 符号常量： Cons
5、t 符号常量名 As 类型 = 表达式例如： Const Pi = 3.14159 符号常量一旦声明，只能在程序代码中引用，不能改变其值。 系统常量：系统提供许多内部常量 例如：vbCrLf、vbRed、vbBlue符号常量的作用范围（域）Public | Private Const 符号常量名 As 类型 = 表达式(1)用Public在添加的“模块”中声明(2)用Private在代码窗口的“通用/声明”处声明(3)在过程中直接用Const声明3.3 运算符和表达式 3.3.1 运算符 运算符是表示实现某种运算的符号。VB中的运算符4类。1.算术运算符 ()、-、*、/、Mod、+、-2.
6、字符串运算符 &、+ 1)数值型:则进行算术加运算 2)一个为数字字符，另一个为数值，自动将数字字符转换为数值后进行算术加 3)一个为非数字字符，另一个为数值型，出错。3. 关系运算符 =、=、=、Like、Is关系运算符是双目运算符，作用是对两个操作数进行大小比较，若关系成立，则返回True，否则返回False。关系运算规则: 操作数是数值型，则按其大小进行比较。 操作数是字符型，则按字符的ASCII码值从左到右逐一进行比较。 汉字以拼音为序进行比较。 日期比较，越靠近当前日期越大 Like运算符 Like运算符与通配符？、*、#、字符列表、！字符列表结合使用？表示任何一个单一字符；* 表示
7、零个或多个字符；# 表示（09）任何一个数字；字符列表表示字符列表中的任何单一字符；！字符列表不在字符列表中的任何单一字符。 字符串 Like 模式 g Like ?、ax Like * 结果为True 8 Like #、28 Like # 结果为True 28 Like # 结果为False f Like a-m 结果为True f Like !a-m 结果为False Is运算符 用来比较两个对象的引用变量。语法格式：result = Object1 Is Object2 Object1、Object2任何对象名称。 如果 Object1 和 Object2 两者引用相同的对象，则 res
8、ult 为 True；否则，result 为 False。4. 逻辑运算符 Not、And、Or、Xor3.3.2 表达式 1. 组成: 常量、变量、函数、运算符和圆括号2. 书写规则 运算符不能相邻；乘号不能省略；圆括号必须成对出现；表达式从左到右在同一基准上书写,无高低、大小。3. 不同数据类型的转换 运算结果的数据类型向精度高的数据类型靠近 IntegerLongSingleDouble字符运算符关系运算符逻辑运算3.3.3 常用函数 VB函数: 内部函数和用户自定义函数函数只能出现在表达式中，不能单独作为语句使用。X = Sqr( y )Text1 = Exp( 3 )Print Le
9、ft(C ,7)Asc(A) 78调用函数的形式：函数名（参数列表）1. 数学函数 在三角函数中，参数的单位为弧度；Sqr函数的参数不能是负数。 每次运行时，Rnd函数返回0和1之间的双精度随机数。 为了保证每次产生不同序列的随机数，先执行Randomize 语句。 要产生a，b的之间的随机整数： Int(Rnd * (b-a+1)+a)2. 转换函数 3. 字符串函数 4. 日期函数 DateAdd日期增减函数：对要增减的日期变量按日期形式做增减。 格式：DateAdd(要增减日期形式，增减量，要增减日期变量)日期形式形式yyyyqmydwww意义年季月一年的天数日一周的日数星期例：Date
10、Add(yyyy,-20,date) 20年前的日期 DateAdd(m,-2,date) 2个月以前的日期 DateAdd(“ww,-2,date) 2个周以前的日期日期或时间相差的DateDiff函数：对两个指定的日期按日期形式求其相差的日期，DateDiff(要间隔日期形式，日期1，日期2）时间形式形式hns意义时分秒例：求出1980年11月23日出生至今已有多少天。DateDiff(d,#1980-11-23#,date)例：求两个时间相差的秒数DateDiff(s, 9:12:33, Time)5. 格式输出函数格式输出函数Format可以使数值、字符串或日期按指定的格式输出。 形式
11、：Format（表达式，格式字符串） 格式字符串：格式字符串必须用双引号括起来。6. Shell函数 Shell函数可调用各种应用程序。格式如下：Shell(命令字符串，窗口类型)命令字符串为要执行的应用程序名(包括路径)，必须是可执行文件(.com、.exe、.bat)。Shell的应用：调用Windows的应用程序记事本。3.4 VB程序结构和编码规则 1. 程序结构 Private Sub 对象名_事件(参数列表) End Sub2. 编码规则 (1) VB代码不区分字母的大小写 关键字首字母自动转换成大写，其余字母转换成小写。 用户自定义的变量、过程名，以第一次定义的为准，以后输入的自
12、动向首次定义的形式转换。(2) 语句书写自由 一行上可书写多句语句(用冒号分隔)，一行最多255个字符。 单行语句可分若干行书写，在本行后加入续行符(空格和下划线)。编程基础选择题1下列变量中，正确的是（ ）。A?Clear BClass#rooml CClassA D8Class2能产生50，500之间随机整数的函数表达式是（ ）。AInt(450*rnd)+50 BInt(450*rnd) CInt(451*rnd)+50 DInt(451*rnd)3表示学习成绩（score）在75分和90分之间的布尔表达式是（ ）。Ascore=75 and score=75 or score=90Cs
13、core=90 Dscore=904以下声明语句中错误的是（ ）。AConst var1=123 BDim Var2=abcCPublic Const Var3=”qwer” DStatic Var4 as Integer5在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程。运行程序后，单击命令按钮，窗体上显示的是（ ）。Private Sub Command1_Click() A$=”12345共五个数字” Print Len(A$)Sub EndA10 B14 C15 D126Public Conyers(2 To 14) AS Integer声明正确的是（ ）。A定义一
14、个公用变量COnters,其值可以是2到14之间的一个整型数B定义一个公用数组Conters，数组内可以存放14个整数C定义一个公用数组Conters，数组内可以存放13个整数D定义一个公用数组Conters，数组内可以存放12个整数7abc%，abc!，abc$，abc#分别声明abc是（ ）。A整型、单精度、字符串、双精度变量B整型、整型、字符串、双精度变量C单精度、整型、字符串、双精度变量D整型、双精度、字符串、双精度变量8能够产生10，100之间随机整数的VB表达式是（ ）。AInt(Rnd*90+11) BInt(Rnd*91+11) CInt(Rnd*90+10) DInt(Rnd
15、*91+10)9设变量boolVar是一个布尔型变量，则正确的赋值语句是（ ）。AboolVar=3b Print c A-1 B0 CTrue DFalse17下列运算结果中，值最小的是（ ）。 A6/3 B63 C6 mod 3 D3 mod 618下列表达式能产生2，50之间的随机整数的是（ ）。 AInt(Rnd(50)-2) B. 2+Rnd(48)C. Rnd(50-2) D. Int(49*Rnd+2)19在VB中，设A=6，执行：X=iif(A5,-1,0)后，X的值为（ ）。 A5 B. 6 C. -1 D. 020下列语句能声明全局变量的是（ ）。 APrivate BDi
16、m CPublic DStatic21Inputbox()函数返回值的类型为（ ）。 A数值 B字符串 C变体 D数字或字符串22可以同时删除字符串前导空格和尾部空格的函数是（ ）。 ALtrim() BRtrim() CTrim() DMid()23在立即窗口键入：Print 53后按回车键，输出的结果是（ ）。 A53 BTrue CFalse D没有输出24用语句Dim A(-3 To 5)所定义的数组的元素有（ ）个。 A6 B7 C8 D925在VB中，设a=6，则执行x=iif(a5,-1,0)后，x的值为（ ）。 A5 B6 C0 D-126窗体上放置了三个文本框，若Text1中
17、输入456，Text2中输入78，程序执行了语句Text3=Text1+text2后，则Text3显示（ ）。A434 B45678 C溢出 D语法错误27表达式 6.5*5 mod 288 的值是（ ）。A0 B1 C2 D328函数Cint、Int、Fix都返回整数值，下面能正确地描述它们返回整数值大小关系的是（ ）。ACInt(-4.51) = Int(-4.51) Fix(-4.51)BInt(-4.51) CInt(-4.51) Fix(-4.51)CCInt(-4.51) Fix(-4.51) Int(-4.51)DInt(-4.51) b And Cc”的值是（ ）。ATrue
18、BFalse C-1 D030语句“Print 5 * 5 5 / 5”的输出结果是（ ）。A5 B25 C0 D131下列关系表达式中，其值为False的是（ ）。A”AbC”ABC” B”reade”reade”CLen(Visual”)=6 D”integer”int”32. gdaa”4 + 5 - 6 * 7 / 8 mod 9”的值是（ ）。A4 B5 C6 D733InputBox函数返回值的类型为（ ）。A数值 B字符串 C变体 D视输入的数据而定34Var1%, Var1!,Var1$, Var1#分别声明Var1是（ ）。A整型、单精度、字符串、双精度变量B整型、整型、字符
19、串、双精度变量C单精度、双精度、字符串、双精度变量D整型、单精度、单精度、双精度变量35执行语句S=Len(Mid(“123456789”,2,4)后，S的值是（ ）。 A. 2345 B. 6789 C. 4 D. 936下面VB逻辑表达式的值为真的是（ ）。 A. “A”a” B. “9”a”C. “That”Thank” D. 1212.137执行VB命令“Print 18/2*3，-32后，屏幕显示情况为（ ）。 A. 3 9 B. 3 -9 C. 27 -9 D. 27，-938运行下面的VB程序后，Z的结果是（ ）。 X = -36.7 : Y = 4 : Z = Int(X) M
20、od Y Print Z End A. 0 B. 1 C. -1 D. -939可以删除字符串前导空格的函数是（ ）。 A. LTrim() B. RTrim() C. Trim() D. Mid()40执行下面VB程序后，输出结果是（ ）。 A = -32 : B = 23Print A BA. True B. -1 C. 0 D. False41下面的VB程序，当分别是输入111和222时，程序输出为（ ）。 N1 = InputBox(“请输入第一个整数”) N2 = InputBox(“请输入第二个整数”) Print N1 + N2 A. 111222 B. 222 C. 333 D
21、. 程序出错42设A=1、B=2、C=3、D=4，则表达式IIf(AB,A,IIF(CD,A,D)的结果为（ ）。 A. 4 B. 3 C. 2 D. 143在窗体上画一个文本框，然后编写如下事件过程，程序运行后，如果用键盘输入字母“e”，则文本框中显示的内容为（ ）。Private Sub Text1_KeyPress(KeyAscii As Integer)Dim Char As StringChar = Chr(KeyAscii)KeyAscii=Asc(Ucase(Char)Text1.Text = String(5,KeyAscii)End Sub A. eeeee B. EEEEE
22、 C. eeeeee D. EEEEEE44下列是日期型数据的是（ ）。 A. &2010-5-1& B. 2010-5-1C. #2010-5-1# D. 2010-5-145字节型数实际上是指（ ）。 A. 日期型数据 B. 数值型数据C. 字符型数据 D. 不是VB中的标准类型数据46下列不能作为VB变量名的是（ ）。 A. sqr* B. sqr12 C. sqrabc D. sqr12abc47VB表达式16/4-25*8/4 Mod 52的值为（ ）。 A. 14 B. 4 C. 20 D. 248表达式INT(15.8)+INT(-12.2)的计算结果是（ ）。 A. 3 B.
23、28 C. 2 D. 2749表达式“年龄20”是指（ ）。 A. 年龄在20与30之间（不包括20和30）B. 年龄是30或者20C. 年龄在20与30 之间（包括20和30）D. 除20至30以外的年龄50执行下列语句后，输出的结果是（ ）。 M=8 : N=9 : Print m-n=-1A. -1 B. False C. True D. 051删除字符串左边空白字符的函数是（ ）。 A. Ltrim B. Rtrim C. Trim D. Mid52表达式Len(“123程序设计ABC”)的值是（ ）。 A. 10 B. 14 C. 20 D. 1753为了给X、Y、Z三个变量赋值1，
24、正确的赋值语句是（ ）。 A. X=1,Y=1,Z=1 B. X=1:Y=1:Z=1C. X=Y=Z=1 D. XYZ=154在VB中，变量未赋值时，数值变量的值为（ ）。 A. 0 B. 空串 C. Null D. 没有任何值55产生5，46之间随机整数的表达式是（ ）。 A. Int(Rnd(1)*42+6 B. Int(Rnd(1)*42+5C. Int(Rnd(1)+41 D. Int(Rnd(1)*41+556下面程序运行后，显示的结果是（ ）。Dim x%If x Then Print x+1 Else Print xA. 1 B. 0 C. 2 D. 显示错误信息57下面VB语句
25、中求两个数中较大数，不正确的是（ ）。A. Max = Iif(x y ,x,y)B. If x y Then Max = x Else Max = yC. Max = x : If y = x Max = yD. If y = x Max = y : Max = x58设A=5、B=6、C=7、D=8，执行下列语句后，X的值是（ ）。X = IIf(A B) And (C D), 10, 20)A. 10 B. 20 C. True D. False59窗体上有一命令按钮（Command1）和一文本框（Text1），程序运行后单击命令按钮，在输入对话框中分别输入8和10，则文本框中显示的内容
26、是（ ）。Private Sub Command1_Click() a = InputBox(Enter an Integer) b = InputBox(Enter an Integer) Text1.Text = a + bEnd SubA. 108 B. 18 C. 810 D. 出错60执行S = Mid(Visual Basic, 5, 8)语句后，S的值是（ ）。A. Visual B. Basic C. al Basic D. 361命令按钮的单击事件代码如下，程序运行后，单击命令按钮，输出的结果是（ ）。Private Sub Command1_Click() A$ = 初学英语先学26个英语字母 Print Len(A$)End SubA. 24 B. 13 C. 12 D. 2662命令按钮的单击事件代码如下，程序运行后，单击命令按钮，输出的结果是（ ）。Private Sub Command1_Click() Dim A As Integer, B As Integer A = 10 B = 4 Print A B; A Mod BEnd SubA. 2.5
