VB-第4章-VB语言基础.ppt

勤奋,第四章数据、表达式、简单程序设计,内容,勤奋,第一节程序组织、语言规范,4.1VB程序代码的组织方式,一个VB程序由两部分组成：窗体界面设计程序代码设计,这两部分的关系：程序代码的设计为了将窗体界面上的控件联系在一起。,过程：具有特定书写格式，包含若干可被作为一个整体执行的代码行的一个代码组.,过程：,事件过程：用来相应由用户或系统引发的各种事件的代码行。通用过程：可被共享的代码构成的过程,简单的说就是：共有的和特有的,模块：不同类型的过程代码组织到一起的结构,窗体模块窗体的事件过程窗体和控件的属性及说明存储在窗体文件frm中,模块,标准模块可被多个窗体共享的代码存储在扩展名为bas的文件中创建方法：菜单,类模块（略）,VB工程文件.vbp,窗体模块.frm,标准模块.bas,事件过程,通用过程,通用过程,1、语句,语句是构成VB程序的最基本成分一句一行一行多句，行间加“：”，一句多行在行尾加续行标志“_”。Form1.Print学好VB_mid(a,7,2);right(a,2)Printucase(b);lcase(ucase(a)PrintcPrintltrim(c)Printrtrim(c);1Printinstr(1,a,”学”)Printinstr(1,b,”x”)PrintString(20,”中”)Printspace(20);1,用上面的a和b设法生成下面的输出,(space)3(space)3中国矿业学院矿业大学cumt徐海学院XHC徐海学院（space）,牛刀小试-等级考试真题再现,下列表达式中,运算结果与函数Mid(s,i,i)的返回值相同的是（）,A）left(s,i)&right(s,len(s)-i)B）left(right(s,len(s)-i+1),i)C）left(right(s,i),len(s)-i+1)D）left(s,len(s)-i)&right(s,i),2007年春季题目,牛刀小试-等级考试真题再现,可以把变长字符串S中的第一个“ABC”子串，替换成“1234”的语句是（）,A）S=Left(s,InStr(S,ABC)&1234&Right(S,Len(S)-InStr(S,ABC)-2)B）Mid(S,InStr(S,ABC),3)=1234“C）Mid(S,InStr(S,ABC),4)=1234“D）S=Left(s,InStr(S,ABC)-1)&1234&Right(S,Len(S)-InStr(S,ABC)-2),2007年春季题目,字符转换成ASCII码：Asc(C)ASCII码转换成字符：Chr(N)转换成小写字母:Lcase(C)转换成大写字母:Ucase(C),3.转换函数,Asc(“B”)-66Chr(97)-“a”LCase(Abc)-”abc”UCase(Abc)-ABC”Str(234)-”234”Val(”234”)-234Val(“123ab”)-123,Fix(3.5)Cint(3.5)Int(3.5),-,343,-3-4-4,Str(x)：将数值数据x转换成字符串(含符号位)Str(5)CStr(x)：将x转换成字符串（对于正数，不含符号位）CStr(5),有何区别呢？,牛刀小试-等级考试真题再现,函数CInt(-3.5),Int(-3,5),Fix(-3,5)的值分别是（）,A)-3,-4,-3B)-4,-4,-3C)-3,-4,-4D)-4,-3,-3,2005年秋季题目,牛刀小试-等级考试真题再现,对正实数X的第四位小数四舍五入的VB表达式是（）。,A）0.001*Int(x+0.005)B）0.001*(1000*x+0.5)C）0.001*Int(1000*x+5)D）0.001*Int(1000*(x+0.0005),2004年春季题目,4.日期函数,获取系统当前日期：Date获取系统当前时间:Time获取系统当前日期和时间:Now,获取指定日期年、月、日的值:Year(D)、Month(D)、Day(D)获取指定日期是一个星期的第几天：Weekday(D,n),如：Printdate,PrintTime$,PrintNow,PrintYear(Now),Month(Now),Day(Now),PrintWeekday(Now,2),日期时间格式符：,数值格式符：0:显示一数字，若此位置没有数字则补0#:显示一数字，若此位置没有数字则不显示,-+$():原样打出,Format(表达式，格式字符串),如：PrintFormat(12.345,+000.00)PrintFormat(12000.345,“#,#.#),如：Format(Now,”yyyy-mm-dd”),注意：Format函数仅用于控制数据的外部输出格式，不会改变数据在计算机内部的存储形式,5.格式输出函数,勤奋,第六节InputBox与MsgBox,1、InputBox函数,语法：x=InputBox(prompt,title,default,xpos,ypos,helpfile,context)其中，prompt是提示的字符串，这个参数是必须的。title是对话框的标题，是可选的。default是文本框里的缺省值，也是可选的。xpos，ypos决定输入框的位置。helpfile，context用于显示与该框相关的帮助屏幕。返回值x将是用户在文本框里输入的数据，x是一个字符串类型的值。如果用户按了Cancel钮，则x将为空字符串。,InputBox(请输入你的学号：,程序示例,230001),2、MsgBox函数,Action=MsgBox(prompt,button,title,helpfile,context),button=c1+c2+c3+c4c1：0,1,2,3,4,5(用来定义按钮)c2：16,32,48,64(用来定义信息图标)c3：0,256,512(用来定义按钮的缺省值)C4:0,4096(应用程序模式、系统模式),课后习题,第61页16题：Z=InputBox(,),课后习题,第61页17题：Z=MsgBox(,),勤奋,第四章总结,数据、表达式与简单程序设计,1.下面所列四组数据中，全部是正确的VB常数是A.32768,1.34D2,ABCDE,&O1767B.3276,123.56,1.2E-2,#True#C.&HABCE,02-03-2002,False,D-3D.ABCDE,#02-02-2002#,E-2,练习,2.运行下面程序，单击命令按钮Command1,则窗口上显示的结果是。PrivateSubCommand1_Click()DimAAsInteger,BAsBoolean,CAsInteger,DAsIntegerA=20/3:B=True:C=B:D=A+CPrintA,D,A=A+CEndSubA.76FalseB.6.65.6FalseC.76A=6D.78A=8,练习,A,3.表示命题“A是一个带小数的正数，且B是一个带小数的负数”的逻辑表达式是。4.在窗体模块的通用声明处有如下语句，会产生错误的语句是_(1)ConstAAsInteger=25(2)PublicStAsString*8(3)RedimB(3)AsInteger(4)DimConstXAsInteger=10A.(1)(2)B.(1)(3)C.(1)(2)(3)D.(2)(3)(4),D.(2)(3)(4),AOAndAInt(A)AndBInt(B),练习,5.下列表达式中，值为True的是_。A、Ucase(ABCD=abcd)B、14/23Left(ABCD,2)D、Not(Sqr(4)-3=-2),练习,C,6.下面表达式的值为真的是_。Mid(VisualBasic,1,12)=Right(ProgrammingLanguageVisualBasic,12)B.ABCRGabcde”C.Int(134.69)=Cint(134.69)D.78.9/32.77-4.98,练习,A,7、“ABC123”&”666xy”的运算结果是A）666xyB）ABC666123xyC）“ABC123666xy”D）”666xyABC123”,C,练习,8、表达式”12”+”34”的值是表达式”12”&”34”的值是表达式12+34的值是表达式“12”+34的值是,练习,9、设A=2，B=3，C=4，D=5，布尔表达式ABAndC=DOr3*AD的值是True,练习,10、表达式2*32+2*8/4+32的值是31,11、逻辑表达式Not“a”b”And93的值是True,练习,12、15.52的结果是813、19.5Mod2*2的运算结果是0,14、设A=7,B=4,C=6,，则表达式AMod3+B3/C5的值