vb代码大全（vb代码大全免费）

本文目录

• vb代码大全免费
• 谁有VB命令大全
• vb 命令大全
• VB语句函数大全
• vb小游戏源代码

vb代码大全免费

Dim income As Single ’定义一个变量，用来统计租片费Adodc1.RecordSource = “lendrecord“ ’指定一张表Adodc1.Refresh ’刷新Adodc1.Recordset.MoveFirst ’将指针移到Recordset首条记录If Option10.Value = True Then ’如果Option10被选定统计某一天租片总费用Do While Not Adodc1.Recordset.EOF ’循环,一直到Recordset记录最后一行 If Adodc1.Recordset.Fields(“租片日期“) = MonthView2.Value Then ’如果日期=MonthView2指定日期则相加 income = income + Adodc1.Recordset.Fields(“租片收费“) End IfAdodc1.Recordset.MoveNext ’移到下一行LoopLabel16.Caption = MonthView2.Value & “总收入为“ & income & “元“ ’将指定日期费用汇总显示在Label16标签上ElseIf Option11.Value = True Then ’按月份统计 下同Do While Not Adodc1.Recordset.EOF If Year(Adodc1.Recordset.Fields(“租片日期“)) = Year(MonthView2.Value) And Month(Adodc1.Recordset.Fields(“租片日期“)) = Month(MonthView2.Value) Then income = income + Adodc1.Recordset.Fields(“租片收费“) End If Adodc1.Recordset.MoveNextLoopLabel16.Caption = Year(MonthView2.Value) & “年“ & Month(MonthView2.Value) & “月总收为“ & income & “元“ElseIf Option12.Value = True Then ’按年份统计Do While Not Adodc1.Recordset.EOF If Year(Adodc1.Recordset.Fields(“租片日期“)) = Year(MonthView2.Value) Then income = income + Adodc1.Recordset.Fields(“租片收费“) End If Adodc1.Recordset.MoveNextLoopLabel16.Caption = Year(MonthView2.Value) & “年总收为“ & income & “元“End If

谁有VB命令大全

命令 Call：调用事件处理器 Close关闭用Open命令所打开文件的输入输出。格式：Close #文件号1, #文件号2……。若无文件号，则关闭打开的所有活动文件。 Const：声明常量,格式:Const常量名[As类型] =常量值 DoEvents：让应用程序提供少量时间处理等待的任务，然后控制权立即返回应用程序。 Dim声明变量，格式：Dim变量名As变量类型 Exit sub：中途退出子程序 End：结束程序 Global：声明全局变量 Load：装入窗体 MsgBox消息内容：将结果显示在消息框中 Open打开或保存文件。格式：Open文件全名For模式As #文件号[Len =文件长度]其中，模式有：Append、Binary、Input、Output、Random(缺省)；文件号在1到511之间，可用FreeFile函数取得；文件长度在1到32767之间。例：Open CommonDialog1.FileName For Output As #1 Option Base 1：放在声明部分,强制数组从1开始索引,(如果不习惯从0开始的话) Option Explicit：强制声明变量(放在窗体或模块的声明部分) PopupMenu调出弹出式菜单。格式：PopupMenu弹出式菜单名, flags, x, y, Boldcommand（只有前面两项为必选）。Flags变元定义弹出菜单的位置和功能（可用逻辑“或”运算符组合）；BoldCommand变元指定黑体显示的菜单命令名（只能有一个，常用于表示缺省值）。Flags变元的值： 常量 位置或功能 VbPopupMenuLeftAlign 指定X位置，确定菜单左边沿（缺省） VbPopupMenuCenterAlign 指定X位置，确定弹出菜单左中点。 VbPopupMenuRightAlign 指定X位置，确定弹出菜单右边沿。 VbPopupMenuLeftButton 用户用鼠标左键单击菜单项目时，弹出菜单触发Click事件（缺省）。 VbPopupMenuRightButton 用户用左鼠标键或右鼠标键单击菜单项目时，弹出菜单触发Click事件 print：显示 Public：用以代替Dim,声明变量为公用变量 Public Const：用以代替Const,声明为公用常量 Set：设置对象变量的值。格式：Set a =控件名 Static：用以代替Dim,强制局部变量在不同过程调用之间保持其数值 TypeOf求出（或判断）对象变量的类型值。格式：TypeOf对象名Is对象类型。例：If TypeOf Soource Is Textbox Then … UnLoad：卸出窗体 Write将已打开的文件内容显示到文本框中，例：Write #FNum, Text1.Text（FNum为打开文件的文件号，前面要加“#”号） 语句 For循环规定循环多少次，例： For I = 1 To 5 …… Next I While循环如果符合某条件则……，否则……。例： While A 》 0 …… Wend …… 方法 Add向集合中增加项目，格式如下：（befor为插到前面，after为插到谁的前面或后面）。格式：集合名.Add主题词,变元名, befor, after例：工资.Add 680, “12月“, ,“11月“(或after:=“11月“) AddItem向列表框中增加项目。格式：列表框名.AddItem “项目名“ Clear清除所有内容(列表框、组合框等) Drag使源控件既可以拖动，又可以响应鼠标事件（就象拖动时将DragMode属性暂时设为“1”一样）。用MouseDown事件调用，常与[CTRL]等功能键结合使用。例：If Shift = 2 Then源控件名.Drag GetFormat()Clipboard对象（剪切板）方法，检查剪切板中的内容。检查剪贴板中是否包含文本：If Clipboard.GetFormat(vbCFText) Then GetTextClipboard对象（剪切板）方法，从剪切板中取得数据。格式：变量= Clipboard.GetText Hide隐藏窗口 Item返回集合中的项目值，格式：集合名.Item(项目名或索引号) Move调整窗体或控件的大小和位置。格式：窗体或控件名.Move Left,Top,width,Height Parent访问控件所在的窗体。例：a = Source.Parent.Name（在拖放操作中访问源控件所在窗体的名称）（拖动操作的目标控件并不关心源控件来自何方） Refresh更新显示。例：form.refresh Remove删除集合项目，格式：集合名.Remove项目名（项目名可以是索引号） RemoveItem从列表框或组合框中删除项目。格式：组合框名.RemoveItem, index或组合框名.RemoveItem “项目名” SetFocus移动焦点到某一控件上 SetTextClipboard对象（剪切板）方法，将内容放到剪切板中。格式：Clipboard.SetText变量或常量 Show打开某个窗体。格式：Form.Show ShowColorCommonDialog调用Windows的颜色窗口。例：CommonDialog1.ShowColor ShowFontCommonDialog调用Windows的字体窗口 ShowOpenCommonDialog调用Windows的打开窗口 ShowSaveCommonDialog调用Windows的保存窗口。 事件 Activate活动事件（激活状态） Click左键单击 Change控件内容改变时触发，提示上次save以来改变数据时保存数据。DblClick双击左键 Deactivate非活动事件（未激活状态） DragDrop响应被拖动的控件的放置事件。格式：Sub控件名_DragDrop(Source As Control, X As Single, Y As Single)。其中Source变元表示被放置的控件对象。Control项目可以是窗体上的任何控件。（参见TypeOf关键字） DragOver响应拖过的控件的事件请求。格式：Sub Label1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)。其中State变元对应于被拖动的控件的瞬时状态，其值如下：0：源控件进入目标区域；1：源控件离开目标区域；2：源控经过目标区域。 GotFocus某控件接受焦点 KeyDown键按下时触发 KeyUp键弹起时触发 KeyPress敲键盘时触发（常用）。在change事件中设置变量状态，即可加入该特性 LostFocus某焦点控件退出焦点 MouseDown按住鼠标键 MouseUp释放鼠标键 MouseMove鼠标经过控件时连续发生 Resize改变窗体大小 属性 ActiveControl窗体属性，用于访问当前活动控件。例：访问当前活动控件名：Form1.ActiveControl.Name Action公用对话框控件的属性，赋值后将显示打开、打印等相应的公用对话框，用showOpen等方法则更直观，其数值如下： 方法 数值 说明 ShowOpen 1 显示Open对话框 ShowSave 2 显示Save As对话框 ShowColor 3 显示Color对话框 ShowFont 4 显示Font对话框 ShowPrinter 5 显示Printer对话框或Print Options对话框。 ShowHelp 6 显示Windows Help工具 Alignment标签名左对齐（0）、右对齐（1）、居中对齐（3） Appearance若为0，是平面外观；若为1，是三维外观 BackColor背景颜色 BorderStyle三维外观（1-Fixed single） BorderStyle确定窗体样式、外观。若为0-None则无可见边框和标题条，无法调整大小；若为1则有可见边框，但无法调大小；为2时，有边框和标题条，可调大小和位置；为3时，固定对话框；为4时，窗体外观象工具条，有Close钮，但无法调大小；为5时，同上，但可调大小。 Caption不接受输入的控件的标签文本 CancelErrorCommonDialog控件公用属性，指定单击Cancel钮时是否产生错误。若取False钮则单击Cancel钮时其FileName或Color属性值为空。取True（缺省）时，返回的错误号为32755（可用If Err.Number语句判断）。 Checked菜单前是否有对钩，即菜单编辑器中的“复选”属性（有些菜单命令是触发式的，通常用选定表示打开，用取消表示关闭）。 Count返回集合中的项目数，格式：集合名.Count ColorCommonDialog控件属性，指定选取的颜色。在Font对话框中要使用它，先要将Flags属性设为cdllFEffects。 DefaultExtCommonDialog属性，缺省的文件类型。例：CommonDialog1.DefaultExt = “YZH“ DialogTitleCommonDialog控件公用属性，返回或设置对话框标题条中显示的字符串。 DragMode确定该控件能否用鼠标拖动。0-Manual：拖动操作必须在程序中进行（手动）；1-Automatic：可以用鼠标拖动控件（自动）。注意：设为True时，不再响应通常的鼠标事件。 Enabled缺省为True，可变为焦点，False则变为灰键。 FileNameCommonDialog属性，打开文件的全名 FilterCommonDialog属性，文件类型列表中的项目。例：CommonDialog1.Filter = “YZH文件|*.YZH|纯文本文件|*.TXT|所有文件|*.*“ FlagsCommonDialog属性，调整每个公用对话框的功能，取值因对话框不同而不同。组合时将数值相加或用or运算符。 Color公用对话框 常量 数值 说明 CdlCCFullOpen &H2 显示完整对话框，包括Define Custom Colors部分 CdlCChelpButton &H8 在对话框中显示Help钮 CdlCCPreventFullOpen &H4 隐藏Define Custom Colors部分（提供用户自定义颜色） CdlCCRGBInit &H1 设置打开这个对话框时显示的初始选择颜色 Font公用对话框 ForeColor前景颜色 Font字体、字符串特性、字号 FontBold加粗显示文字 FontItalic倾斜显示文字 FontName返回字体名。 FontSize返回字号 FontStrikethru文字中间是否带删除线 FontUnderline文字下方是否带下划线 Height控件的高 HideSelection 文本框属性，当文本框失去焦点时是否取消反白显示所选文本。 Interval时间间隔属性，1为1/1000秒 ItemDate 类似于List数组的数组。常用于索引。 Left控件的左上角横坐标 List(Index)是保存列表框或组合框中项目的数组。应用：If List1.List(Index) = “” Then…. ListIndex列表框中的当前项目。如选择多个项目，则该属性为最近所选项目的索引号。若未选择项目，则返回负值。删除负值的项目会产生运行时错误，所以删除前应先检查ListIndex属性值。 Locked True为锁定（对齐方式） Max只在Print和Font对话框中出现。以确定打印范围或字号的最大值。 MaxButton标题条上是否有最大化按钮 MaxLength文本框属性，设定最多可接收的字符数，缺省为0（64KB）。要限制用户输入的字符数，可修改此值。 Min只在Print和Font对话框中出现。以确定打印范围或字号的最小值。 MinButton标题条上是否有最小化按钮 MultiLine文本框属性，缺省为False，只接受一行文字。 MultiSelect 列表框控件只读属性，确定能否选择多个项目和用哪个方法进行多项选择。其取值如下：0、不允许多项选择(缺省)；1、简单多选，用鼠标单击或按空格键来选择和取消表中的项目，用箭头键可控制焦点项目的移动；2、扩展多项选择，按Shift并单击鼠标或按箭头键即可扩展选项，可以高亮显示上一选项和当前选项之间的所有项目，按Ctrl并单击鼠标选择或取消表中的项目。 NewIndex 列表框属性，返回最近加入列表框控件的项目索引号。常与ItemData属性一起使用。 PasswordChar文本框只读属性，将输入的字符变成指定的字符。缺省为空，若为“*”或其它字符则显示为该字符，且不能复制或剪切框中文本。粘贴的文本也显示为设定的字符。 Picture图形框属性，选定图形框的图片，或在代码中指定图形文件全名。 ScrollBars文本框属性，是否有水平滚动条（1）、垂直滚动条（2）或都有（3）、都无（0）。 SelCount 列表框属性，若允许多选则该属性报告所选项目个数。通常与Selected数组一起使用。 Selected(Index) 列表框属性，是个数组，其值为True和False，判断项目是否被选中。 SelText文本框属性，返回或设置文本框中已选中的文字内容。 SelLength文本框属性，返回或设置所选文本长度。 SelStart文本框属性，返回或设置所选文本的第一个字符位置，即光标位置。 Sorted(组合框、列表框等)控件中是否排序True/False Style 控件外观 Style 列表框控件的外观，取值如下：0、标准形式；1、复选框。 Style 组合框控件的外观，取值如下：0、缺省形式；1、简单组合框（清单无法下拉）；2、下拉清单（不能输入内容） TabIndex焦点移动顺序，各控件按0、1……顺序赋值 TabStop设为False将控件从移动顺序中删除 Tag存储程序所需的附加数据 Text接受输入的控件的文本 Top控件的左上角纵坐标 Visible使控件可见（True/False） Value复选框控件属性True/false Width控件的宽

vb 命令大全

VB 可用指令、函数A Abs 求绝对值 ActiveControl 得到焦点的对象 ActiveForm 得到焦点的表单 Array 指定数组 App 得知程序信息 AppActivate 激活执行中的应用程序 Asc 求字符的内码 AscB 求字符的ASCII AscW 求字符的UniCode Atn 求Tan-1 B Beep 发出预设的警示声 C Call 调用子程序 Calendar 选择月历 Choose 取出一列值的某个值 CBool 数值转成布尔数 CByte 数值转成位元格式 CCur 数值转成货币格式 CDate 数据转成时间 CDbl 数值转成双精度浮点数 CDec 数据转成十进数 ChDir 改变目前路径缓充的路径 ChDrive 改变目前磁盘缓充的磁盘 Chr 由内码求得一字符 ChrB 由ASCII求得一字符 ChrW 由UniCode求得一字符 CInt 数据转成Integer CLng 数据转成Long Command 读出程序的参数 Const 定义常数 Cos COS CSng 数值转成单精度浮点数 CurDir 得知目前路径缓充的路径 CVar 数值转成可变变量 D Date 得到目前电脑的时间 Date$ 得到目前电脑时间字符串 DateAdd 日期加法得日期 DateDiff 日期相减得数值 DatePart 日期部份资讯 DateSerial 字符串转日期 DateValue 数字转日期 Day 得知日期变量内是几号 DDB 折旧的计算 DeleteSetting 删除系统登录内的数据 Dir 得知目前路径内的文件名 DoEvents 闲置函数 E End 结束程序 Environ 取得环境变量的数据 EOF 某个文件缓冲的指标是否到档尾 Erase 重新初始化数组 Err 错误资讯 Error 错误代码信息 Exp 得到自然对数 FFix 去除小数 FileCopy To 复制文件 FileAttr 文件开启模式 FileDateTime 文件存档日期 FileLen 文件长度 Filter 筛选数组 Format 数据格式化输出 FreeFile 空的文件编号 FV 求得定期、定额支付且固定利率下之年金的值 GGetAllSetting 得到所有系统登录的资讯 GetAttr 得知文件属性 GetSetting 得到系统登录的资讯 H Hex 将数值转成16进数表示的字符串 Hour 得知日期变量内是几时 IIf . Then . Else 判断结构 IMEStatus 得知IME输入法状态 InStr 寻找字符串里的字符串 InStrB 寻找字符串里的ASCII IntStrRev 由字符串右边开始寻找字符串里的字符串 Int 取整数 JJoin 将数组数据加入分隔字符后组合成一新字符串 KKill 删除文件 LLBound 得知数组最小起始范围 LCase 字符串转小写 Left 截取字符串左边几个字 Len 得知字符串的字数 LenB 得知变量占用记忆体几个Byte LoadPicture 载入图形 Log 求对数值 LSet 字符串向左对齐 LTrim 移除字符串最左边的空白字符 M Mid 截取字符串里某些字符串 Minute 得知日期变量内是几分 MkDir 建立新的数据颊 Month 得知日期变量内是第几月 N Name As 更改文件名 Now 得知目前点脑的日期与时间 O Oct 字符转成八进制的字符串 Option VB内部一些选项设定 P PopupMenu 跳出菜单 Print 列印数据 Q QBColor 设定颜色(16色) R Randomize 随机数初始化声明 Replace 取代字符串中某些字符串 VB6提供 RGB 设定颜色(255*255*255色) RmDir 移除数据颊 Rnd 得到一个随机数 RSet 字符串向右对齐 RTrim 去除字符串最右边的空白字符 S SavePicture 储存图形 Screen 得知屏幕简易资讯 Second 得知日期变量内是几秒 SetAttr 设定文件属性 Sgn 得知是整数还是负数v Shell 执行外部程序 Sin 得知Sin Space 填入数个空白字符 Split 以某字符串将字符串拆解成数组 VB6提供 Sqr 求平方根 Str 数值转字符串 StrComp 比较字符串 StrConv 改变字符串型态 String 设定一个重覆的字符串 StrReverse 字符串反转 VB6提供 T Tab 列印n个制表符 Tan 得知Tan Time 得知、设定电脑时间 Time$ 得知、设定时间字符串 Timer 得知今天电脑总秒数 TimeSerial 字符串转时间 TimeValue 数字转时间 Trim 去除字符串首尾的空白字符 TypeName 得知变量类别的名称 U UBound 得知数组的最值 UCase 字符串转大写 V Val 将字符串转成数字 VarType 得知变量的类型 W WeekDay 得知日期变量内是星期几 WeekdayName 将WeekDay传回值改成文字显示 Y Year 得知日期变量内是几年

VB语句函数大全

(一)类型转换类函数1. CType(X)[格式]：P=CBool(X) ’ 将X转换为“布尔“(Boolean)类型P=CByte(X) ’ 将X转换为“字节“(Byte)类型P=CCur(X)’ 将X转换为“金额“(Currency)类型P=CDate(X)’ 将X转换为“日期“(Date)类型P=CDbl(X)’ 将X转换为“双精度“(Double)类型P=CInt(X)’ 将X转换为“整型“(Integer)类型P=CLng(X)’ 将X转换为“长整型“(Long)类型P=CSng(X)’ 将X转换为“单精度“(Single)类型P=CStr(X)’ 将X转换为“字符串“(String)类型P=Cvar(X)’ 将X转换为“变体型“(Variant)类型P=CVErr(X)’ 将X转换为Error值[ 范例 ]：(1). CStr(13)+CStr(23)’ 数值转换成字符串后，用“+“号连接， 结果：1323(2). CInt(“12“)+12’ 字符串转换成整型后与12相加， 结果：24(3). P=CInt(True)’ 输出结果为-1’ 布尔值与数值的转换时要注意，布尔值只有True和False，其中True在内存中为-1,False存为0 (4). CBool(-0.001)’ 输出结果为True’ 将数值转换为布尔型时，等于0的数值将得到False，不等于0的数值得到True.2. Int(X),Fix(X)：取X的整数值[格式]：P=Int(X) ’ 取《=X的最大整数值P=Fix(X) ’ 取X的整数部分，直接去掉小数[范例]：(1) Int(-54.6)’ 结果为-55，取《=-54.6的最大整数(2) Fix(54.6)’ 结果为54，取整数并直接去掉小数(二)常用数学函数[格式]：1. Abs(N) 取绝对值例：Abs(-3.5) 结果：3.52. Cos(N) 余弦函数例：Cos(0) 结果：13. Exp(N) e为底的指数函数例：Exp(3) 结果：20.0684. Log(N) 以e为底的自然对数例：Log(10) 结果：2.35. Rnd[(N) 产生随机数例：Rnd 结果：0--1之间的数6. Sin(N) 正弦函数例：Sin(0) 结果：07. Sgn(N) 符号函数’ 说明：取正负号。Y=Sgn(X) 既 X》0 则Y=1；X=0 则Y=0；X《0 则Y= -18. Sqr(N) 平方根例：Sqr(9) 结果：39. Tan(N) 正切函数例：Tan(0) 结果：010.Atn(N) 反切函数例：Atn(0) 结果：0[注意]：在三角函数中，以弧度表示。(一)字符串类函数：1. ASC(X)，Chr(X)：转换字符字符码[格式]：P=Asc(X) 返回字符串X的第一个字符的字符码P=Chr(X) 返回字符码等于X的字符[范例]：(1)P=Chr(65)’输出字符A,因为A的ASCII码等于65(2)P=Asc(“A“)’输出652. Len(X)：计算字符串X的长度[格式]：P=Len(X)[说明]：空字符串长度为0，空格符也算一个字符，一个中文字虽然占用2 Bytes，但也算一个字符。[范例]：(1) 令X=““ (空字符串)Len(X) 输出结果为0(2) 令X=“abcd“ Len(X) 输出结果为4(3) 令X=“VB教程“Len(X) 输出结果为43. Mid(X)函数：读取字符串X中间的字符[格式]：P=Mid(X,n)由X的第n个字符读起，读取后面的所有字符。P=Mid(X,n,m)由X的第n个字符读起，读取后面的m个字符。[范例]：(1) X=“abcdefg“P=Mid(X,5)结果为：P=“efg“(2) X=“abcdefg“P=Mid(X,2,4)结果为P=“bcde“4. Replace： 将字符串中的某些特定字符串替换为其他字符串[格式]：P=Replace(X,S,R)[说明]：将字符串X中的字符串S替换为字符串R，然后返回。[范例]：X=“VB is very good“P=Replace(X,good,nice)输出结果为：P=“VB is very nice“5. StrReverse：反转字符串[格式]：P=StrReverse(X)[说明]：返回X参数反转后的字符串[范例]：(1)X=“abc“P=StrReverse(X)输出结果：P=“cba“6. Ucase(X)，Lcase(X)：转换英文字母的大小写[格式]：P=Lcase(X)’将X字符串中的大写字母转换成小写P=Ucase(X)’将X字符串中的小写字母转换成大写[说明]：除了英文字母外，其他字符或中文字都不会受到影响。[范例]：(1) 令 X=“VB and VC“则Lcase(X)的结果为“vb and vc“，Ucase(X)的结果为“VB AND VC“7. InStr函数：寻找字符串[格式]：P=InStr(X,Y)从X第一个字符起找出Y出现的位置P=InStr(n,X,Y)从X第n个字符起找出Y出现的位置[说明]：(1) 若在X中找到Y，则返回值是Y第一个字符出现在X中的位置。(2) InStr(X,Y)相当于InStr(1,X,Y)。(3) 若字符串长度，或X为空字符串，或在X中找不到Y，则都返回0。(4) 若Y为空字符串，则返回0。(二)日期时间类函数：1. Year(X)，Month(X)，Day(X)：取出年，月，日[格式]：P=Year(X)取出X“年“部分的数值P=Month(X)取出X“月“部分的数值P=Day(X)取出X“日“部分的数值[说明]：Year返回的是公元年，若X里只有时间，没有日期，则日期视为#1899/12/30#2. Hour，Minute，Second函数：取出时，分，或秒[格式]：P=Hour(X)取出X“时“部分的数值P=Minute(X)取出X“分“部分的数值P=Second(X)取出X“秒“部分的数值[说明]：Hour的返回值是0---23之间[范例]：X=10:34:23P=Hour(X)Q=Minute(X)R=Second(X)则输出结果：P=10，Q=34，R=233. DateSerial函数：合并年，月，日成为日期[格式]：DateSerial(Y,M,D)其中Y是年份，M为月份，D为日期[说明]：(1) M值若大于12，则月份从12月起向后推算M-12个月；若小于1，则月份从1月起向后推算1-M个月。(2) 若日期D大于当月的日数，则日期从当月的日数起，向后推算D-当月日数；若小于1，则日期从1日起向前推算1-D日。[范例]：P=DateSerial(2000,02,02)则结果为P=2000/02/024．TimeSerial函数：合并时，分，秒成为时间[格式]：P=TimeSerial(H,M,S)其中H为小时数，M为分钟数，S为秒数[说明]：推算原理同上面的DateSerial[范例]：P=TimeSerial(6,32,45)结果为：P=6:32:455．Date,Time,Now函数：读取系统的日期时间[格式]：P=Date()P=Time()P=Now()[说明]：这三个函数都无参数[范例]：若当前时间为2003年8月29日晚上19点26分45秒，则P=Now()结果为：P=2003-08-29 19:26:456．MonthName：返回月份名称[格式]：P=MonthName(X)[说明]：X参数可传入1---12，则返回值为“一月“、“二月“……，但是在英文Windows环境下，返回的是“January“,“February“……[范例]：P=MonthName(1)则P=“一月“7．WeekdayName：返回星期名称[格式]：P=WeekdayName(X)[说明]：X参数可传入1—7，则返回值为“星期日“，“星期一“……，但是在英文windows环境下，返回的是“Sunday“,“Monday“……[范例]：P=WeekdayName(1)结果为：P=“星期日“函数名称 函数功能 Cbool(string) 转换为布尔值 Cbyte(string) 转换为字节类型的值 Ccur(string) 转换为货币类值 Cdate(string) 转换为日前类型的值 Cdbl(string) 转换为双精度值 Cint(string) 转换为整数值 Clng(string) 转换为长整型的值 Csng(string) 转换为单精度的值 Cstr(var) 转换为字符串值 Str(var) 数值转换为字符串 Val(string) 字符串转换为数值 ***************************************Abs(nmb) 返回数子的绝对值 Atn(nmb) 返回一个数的反正切 Cos(nmb) 返回一个角度的余炫值 Exp(nmb) 返回自然指数的次方值 Int(nmb) 返回数字的整形（进位）部份 8.4--》9 Fix(nmb) 返回数字的整形（舍去）部份 8.4--》8Formatpercent(表达式) 返回百分比 Hex(nmb) 返回数据的16进制数 Log(nmb) 返回自然对数 Oct(nmb) 返回数字的8进制数 Rnd 返回大于“0”而小于“1”的随机数 Sgn(nmb) 判断一个数字的正负号 Sin(nmb) 返回角度的正铉值 Sqr(nmb) 返回数字的二次方根 Tan(nmb) 返回一个数的正切值 Asc(string) 返回ASCII字符串 Chr(charcode) 根据字符代码返回字符 Instr(string,searchstr) 返回被搜索字符串的第一个字符位置，string是字符串，searchstr是被搜索的字符串 InstrRev(string,searchstr) 同上，只是从右面开始搜索 Lcase(var) 把字符串变为小写 Left(string,nmb) 从string中返回从左面开始的nmb个字符串 Len(string) 返回字符串的长度 Ltrim(string) 截去字符串左边的空格 Filter(inputstrings,value) 返回字符串数组的字集，Inputstrings是字符串组，value是在数组中寻找的字符 Rtrim(string) 截去字符串右边的空格 Trim(string) 截去字符串前后空格 Mid(string,start,len) 在string中返回从start位置开始的len个字符 Replace(string,find,withstr) 在字符串string中，用withstr来替换find字符串 Right(string,nmb) 从string中返回从右面开始的nmb个字符串 Space(nmb) 返回指定空格的字符串 StrComp(string1,string2) 比较两个字符串 Ucase(string) 把字符串变为大写 ****************************************Date() 返回当前系统日期 DateAdd(interval,nmb,date) 用一个基础时间返回指定增加了时间间隔的日期，interval是间隔类型，yyyy－年，m－月，d－日，h－小时，n－分。 DateDiff(interval,nmb1,nmb2) 返回两个时间间隔，interval的意思同上 Datevalue(date) 发挥Date中的日期部份 Day(date) 返回天数 FormatDatetime(date) 返回格式化为日期的表达式 Hour(time) 返回时间的小时数 Minute(time) 返回时间的分钟数 Month(date) 返回日期中的月份 Now() 返回系统的日期和时间 Second(time) 返回时间中的秒数 Time() 返回系统的当前时间 Weekday(date) 返回星期几 WeekdayName(date) 返回星期几的中文名 Year(date) 返回年份 IsArray(var) 判断一个变量是否是数组 IsDate(var) 判断一个变量是否是日期 IsNull(var) 判断一个变量是否为空 IsNumeric 判断表达式是否包含数值 IsObject(var) 判断一个变量是否是对象 TypeName(var) 返回变量的数据类型 ************************************Array(list) 返回数组 CreateObject(class) 创建一个对象 GetObject(pathfilename) 得到文件对象 Inputbox(prompt) 提供一个可供输入数据的对话框 LBound(arrayP) 返回数组的最小索引 Msgbox(string) 输出一个消息框 Split(liststr) 从一个列表字符串中返回一个一维数组 Ubound(array) 返回数组的最大索引

vb小游戏源代码

Rem 窗体创建三个单选框按钮，Option1、Option2、Option3。

小游戏是一个较模糊的概念，它是相对于体积庞大的单机游戏及网络游戏而言的，泛指所有体积较小、玩法简单的游戏，通常这类游戏以休闲益智类为主，有单机版有网页版，在网页上嵌入的多为FLASH格式。

当下小游戏主要是指在线玩的flash版本游戏，统称小游戏，其实小游戏还包含单机游戏，小型游戏机等。一般游戏大小小于10m的游戏都统称为小游戏，一些街机类小游戏。因其游戏安装简便，耐玩性强，无依赖性而广受白领及小朋友的喜爱。

小游戏”这个词的型含义其实很简单，它不是一些大的游戏，不必花费更多的时间和精力。

小游戏是原始的游戏娱乐方式，小游戏本身是为了叫人们在工作，学习后的一种娱乐、休闲的一种方式，不是为了叫玩家为之花费金钱、花费精力，更不是叫玩家为他痴迷。

小游戏也可以理解为“Flash游戏”，是以SWF为后缀的游戏的总称.这些游戏是通过Flash软件和 Flash 编程语言 Flash ActionScript 制作而成。

由于Flash是矢量软件，所以小游戏放大后几乎不影响画面效果。Flash小游戏是一种新兴起的游戏形式，以游戏简单，操作方便，绿色，无需安装，文件体积小等优点渐渐被广大网友喜爱。