VB 程序 数字金字塔

2.2 VB 的基本数据类型
“数据”是信息在计算机内的表现形式，也是程序的处理对象。不同类型的数据有不同的操作方 式和不同的取值范围。 VB 具有系统定义的基本数据类型，而且允许用户根据需要定义自己的数据类 型。 VB 提供的基本数据类型主要有字符串型、数值型、逻辑型和日期型。
2.3 常量与变量
在程序中，常量的值在程序执行期间不发生变化。变量代表内存中指定的存储单元，存储单元在 程序中可以根据需要赋予不同的数值，所以变量值是可以变化的。
文件指针的相关函数 FreeFile 函数 格式： FreeFile[()] 功能： 返回头一个可用文件号。 例9.1.1 LOC 函数 格式： LOC（ <文件号> ) 功能： 返回当前文件的读/写位置。 注意：“位置”，在 VB 中对不同类型文件有不同含义。 LOF 函数 格式： LOF（ <文件号> ） 功能： 返回当前的文件所含字节数。 EOF 函数 格式： EOF（<文件号>） 功能：读文件时测试文件是否结束。返回逻辑值。 判断“文件结束”的方法： 用 Input 语句读顺序文件，遇文件结束符（“Ctrl-Z”）时，返回 True，否则为 False。随机文件和二进制文件以记录的完整性作判断，当 Get 语句读不到一个完整 的记录时返回 True（表示企图读取文件结尾以后的部分） ，否则返回 False。 FreeFile 函数例子 例9.1 Private Sub Form_Click() Dim FileName As String Dim FileNum As Integer
把要加工的初始数据从某种外部设备，例如键盘、磁盘文件等输入到计算机的存储器中，并把处 理结果输出到指定设备（通常是显示在屏幕、从打印机打印或保存在磁盘上） ，这是程序设计语言所 应具备的基本部分。 VB 为从键盘输入数据提供了两个函数， InputBox 和 MsgBox 。

10 a 执行过程体 ByVal 传值 x a 20 a 的地址 10 20
a
10
执行过程体
x a
20 10
返回
返回
20 Integer a = = : y b10 的地址 b 10 = 20 : b 10 aCall = Swap 10 : y b 的地址 2(a, b 10 = b) 20 : 10 b Call a = Text Swap b
汉字的机内码最高位为1，Asc函数码值为小于0（补码）
西文字符的最高位为0，Asc函数求其码值为大于0
Function CountC%(ByVal s$) Dim i%, k% Dim c As Char For i = 1 To Len(s) c = Mid(s, i, 1) If Asc(c) < 0 Then k = k + 1 Next CountC = k End Function Sub Command1_Click() Dim c1% c1 = CountC(Text1.Text) 显示 Text1.Text 和 C 1 End Sub
Functioc Count%(st$) Dim i% Count = 0 i = InStr(st, “ the ") Do While (i > 0) Count = Count + 1 st = Mid(st, i + 1) i = InStr(st, “ the ") Loop VB 程序设计教程 End Function
Z←gcd
例6.2 设断点演示过程
调用形式：函数过程名([参数列表])
参数列表(称为实参或实元)：必须与形参个数相同，位置与 类型一一对应。可以是同类型的常量、变量、表达式。

VB方法使用大全在VB（Visual Basic）中，方法是一种用于执行特定任务的代码块。

它们可以用来执行各种不同的操作，例如数据处理，计算，字符串操作等。

以下是VB中常用的方法的一些示例：1. Sub 方法：Sub 是一种不返回任何结果的方法。

它通常用于执行一系列的语句或操作。

以下是一个简单的示例：```Sub HelloWorldConsole.WriteLine("Hello, World!")End Sub```2. Function 方法：Function 是一种返回结果的方法。

以下是一个带有整数参数的简单示例：```Function AddNumbers(a As Integer, b As Integer) As IntegerDim result As Integer = a + bReturn resultEnd Function```3.方法重载：方法重载是在同一个类中定义多个具有相同名称但参数列表不同的方法。

VB根据参数的类型和顺序来确定要调用的方法。

以下是一个方法重载的示例：```Function AddNumbers(a As Integer, b As Integer) As Integer Dim result As Integer = a + bReturn resultEnd FunctionFunction AddNumbers(a As Double, b As Double) As DoubleDim result As Double = a + bReturn resultEnd Function```4.方法参数：方法参数是方法的输入值，它们可以帮助方法接收和处理外部提供的数据。

参数可以是值类型，引用类型或可选类型。

以下是一个接受多个参数的示例：```Sub PrintFullName(firstName As String, lastName As String)Console.WriteLine("Full Name: " & firstName & " " & lastName) End Sub```5.方法返回值：方法返回值是方法的输出结果。

VB编程常用代码大全1.数值型函数：absnum: 返回绝对值sgnnum: num>0 1; num=0 0; num<0 -1;判断数值正负hexnum: 返回十六进制值直接表示：&Hxx 最大8位octnum: 返回八进制值直接表示：&Oxx 最大8位sqrnum: 返回平方根num>0intnum: 取整int=99; int=100fixnum: 取整fix=99; fix=99roundnum,n: 四舍五入取小数位round,3= 中点数值四舍五入为近偶取整round,1=lognum: 取以e为底的对数num>0expn: 取e的n次幂通常用num^nsinnum: 三角函数,以弧度为值计算角度Pai/180=弧度connum; tannum; atnnum2.字符串函数：lenstr：计算字符串长度中文字符长度也计为一midstr,起始字符,读取长度：截取字符串中间子字符串leftstr,nlen：从左边起截取nlen长度子字符串rightstr,nlen：从右边起截取nlen长度子字符串Lcasestr：字符串转成小写Ucasestr：字符串转成大写trimstr：去除字符串两端空格Ltrimstr：去除字符串左侧空格Rtrimstr：去除字符串右侧空格replacestr,查找字符串,替代字符串,起始字符,替代次数,比较方法：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写0InStr起始字符,str,查找字符串,比较方法：检测是否包含子字符串可选参数需同时选返回起始位置InStrRevstr,查找字符串,起始字符,比较方法：反向检测是否包含子字符串返回起始位置spacen：构造n个空格的字符串stringn,str：构造由n个str第一个字符组成的字符串StrReversestr：反转字符串splitstr,分割字符串,次数,比较方法：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cintstr：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstrstr：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ss Clngstr：与Cin类似Cboolnum：num不为零True；反之FalseCdatestr：转换日期格式0：Am 12:00:00；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbytenum：num<255 转换为字节Csngstr：转换为单精度数值Cdblstr：转换为双精度数值Ccurstr：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型timer：取当前时间距离零点秒值,计时器,可计算时间差DateAdd间隔单位,间隔值,日期：推算相邻日期DateDiff间隔单位,日期一,日期二：计算时间差日期二-日期一Datepart间隔单位,日期：计算日期的间隔单位值Dateserialdate：输出日期值按序列计算Timeserialtime：输出时间值按序列计算Datevaluedatetime：取出字符串中日期值Timevaluedatetime：取出字符串中时间值weekdaydate：计算星期几MonthNamedate：输出月分名yeardatetime：截取年份monthdatetime：截取月份daydatetime：截取日hourdatetime：截取小时minutedatetime：截取分钟seconddatetime：截取秒5.其它函数：Arrayunit,..：动态生成数组Ascstr：输出字符串第一个字符的ASCII码Chrasc：转换ASCII为字符Enter：Chr13&Chr10Filter数组名称,关键字符串,,包含,比较方法：将字符串数组中含有关键字符串的元素存成新的数组默认包含为false则取不包含的元素oinArrayName：将数组中元素连成字符串UboundArrayName,维数：取得数组相应维数的上界LboundArrayName,维数：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rndn：取得随机数,n>0或为空,取序列下一随机值,n<0,随机值相同,n=0,生产与上一随机值相同的数取介于A和B之间的随机正数C,公式：C=IntB-A+1Rnd+A 条件B>A子程序和自定义函数Sub StrSubName Function StrFunNamearg1,..子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝value 返回值End Functioncall StrSubName 引用子程序Var=StrFunNamearg1,.. 引用函数。