正文
包含chrbvb.net的词条
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
vb加密算法
Private Sub Command1_Click()
Dim t As String
t = Text1.Text
Text2.Text = Encrypt(t, 177, 86)
End Sub
Private Sub Command2_Click()
Dim t As String
t = Text2.Text
Text4.Text = Encrypt(t, 177, 86)
End Sub
亲,你这两个按钮里面的代码都是加密的啊!
最基本的知识你都没有理解!哪有加密和解密都用一样的代码!
VB中的chr(13) 和chr(10)是什么意思
Chr(10):ASCII码中的换行键,相当于vbLF。
Chr(13):ASCII码中的回车键,相当于vbCR。
1、在窗体输出中:
Chr(13) 、 Chr(10) 、 Chr(13)+Chr(10) 是换一行;
Chr(10)+Chr(13)、两个Chr(13)、两个Chr(10) 是换两行。
2.、在Text输出中:
只有Chr(13)+Chr(10)可换一行,其余无换行。(换行的前提是Text控件的Multiline属性设置为True)
方差的计算
b的:
function fangcha(n,a(X))
sum=0
sum2=0
for i=1 to n
sum=sum+a(i)
next
sum=sum/n '平均数
for i=1 to n
sum2=sum2+(a(i)-sum)+(a(i)-sum) '样本里的数-平均数 的平方 的和,
next
fangcha=sum2/n ‘平均数
end function
c的:
float fc()
{
int d,count=0;
float Sum=0,Avg,S;
scanf(\"%d\",d);
Avg=d;
while(d!=-65536)
{
count++;
Sum=Sum+d*d;
Avg=Avg+(Avg-d)/count;
S=(Sum-count*Avg*Avg)/count;
scanf(\"%d\",d);
}
return S;
}
asp文件上传:文件上传 源代码
! #include FILE="upload inc" % dim upload file formName formPath iCount filename fileExt set upload=new upload_ xSoft 建立上传对象 formPath="uploadimages/" 在目录后加(/) if right(formPath )"/" then formPath=formPath"/" iCount= for each formName in upload file 列出所有上传了的文件 set file=upload file(formName) 生成一个文件对象 if file filesize then response write "font size= br请先选择你要上传的图片 [ a href=# onclick=history go( )重新上传/a ]/font" response end end if if file filesize then response write "font size= br图片大小超过了限制 [ a href=# onclick=history go( )重新上传/a ]/font" response end end if
fileExt=lcase(right(file filename ))
if fileEXT" jpg" and fileEXT" gif" then response write "font size= br文件格式只能为jpg和gif格式 [ a href=# onclick=history go( )重新上传/a ]/font" response end end if randomize ranNum=int( *rnd)+ filename=formPathyear(now)month(now)day(now)hour(now)minute(now)second(now)fileExt filename =year(now)month(now)day(now)hour(now)minute(now)second(now)fileExt if file FileSize then 如果 FileSize 说明有文件数据 file SaveAs Server mappath(filename) 保存文件 response write "scriptparent form img value= "FileName " /script"
iCount=iCount+ end if set file=nothing next set upload=nothing 删除此对象
Response Write "img src= "" /UpLoad/UpLoadImages/"FileName " onload = DrawImage(this) " response end %
下面是upload inc的代码
SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT dim upfile_ xSoft_Stream Class upload_ xSoft dim Form File Version Private Sub Class_Initialize dim iStart iFileNameStart iFileNameEnd iEnd vbEnter iFormStart iFormEnd theFile dim strDiv mFormName mFormValue mFileName mFileSize mFilePath iDivLen mStr if Request TotalBytes then Exit Sub set Form=CreateObject("Scripting Dictionary") set File=CreateObject("Scripting Dictionary") set upfile_ xSoft_Stream=CreateObject("Adodb Stream") upfile_ xSoft_Stream mode= upfile_ xSoft_Stream type= upfile_ xSoft_Stream open upfile_ xSoft_Stream write Request BinaryRead(Request TotalBytes) vbEnter=Chr( )Chr( ) iDivLen=inString( vbEnter)+ strDiv=subString( iDivLen) iFormStart=iDivLen iFormEnd=inString(iformStart strDiv) while iFormStart iFormEnd iStart=inString(iFormStart "name=""") iEnd=inString(iStart+ """") mFormName=subString(iStart+ iEnd iStart ) iFileNameStart=inString(iEnd+ "filename=""") if iFileNameStart and iFileNameStartiFormEnd then iFileNameEnd=inString(iFileNameStart+ """") mFileName=subString(iFileNameStart+ iFileNameEnd iFileNameStart ) iStart=inString(iFileNameEnd+ vbEntervbEnter) iEnd=inString(iStart+ vbEnterstrDiv) if iEndiStart then mFileSize=iEnd iStart else mFileSize= end if set theFile=new FileInfo theFile FileName=getFileName(mFileName) theFile FilePath=getFilePath(mFileName) theFile FileSize=mFileSize theFile FileStart=iStart+ theFile FormName=FormName file add mFormName theFile else iStart=inString(iEnd+ vbEntervbEnter) iEnd=inString(iStart+ vbEnterstrDiv)
if iEndiStart then mFormValue=subString(iStart+ iEnd iStart ) else mFormValue="" end if form Add mFormName mFormValue end if
iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart strDiv) wend End Sub
Private Function subString(theStart theLen) dim i c stemp upfile_ xSoft_Stream Position=theStart stemp="" for i= to theLen if upfile_ xSoft_Stream EOS then Exit for c=ascB(upfile_ xSoft_Stream Read( )) If c Then if upfile_ xSoft_Stream EOS then Exit for stemp=stempChr(AscW(ChrB(AscB(upfile_ xSoft_Stream Read( )))ChrB(c))) i=i+ else stemp=stempChr(c) End If Next subString=stemp End function
Private Function inString(theStart varStr) dim i j bt theLen str InString= Str=toByte(varStr) theLen=LenB(Str) for i=theStart to upfile_ xSoft_Stream Size theLen if iupfile_ xSoft_Stream size then exit Function upfile_ xSoft_Stream Position=i if AscB(upfile_ xSoft_Stream Read( ))=AscB(midB(Str )) then InString=i for j= to theLen if upfile_ xSoft_Stream EOS then inString= Exit for end if if AscB(upfile_ xSoft_Stream Read( ))AscB(MidB(Str j )) then InString= Exit For end if next if InString then Exit Function end if next End Function
Private Sub Class_Terminate form RemoveAll file RemoveAll set form=nothing set file=nothing upfile_ xSoft_Stream close set upfile_ xSoft_Stream=nothing End Sub Private function GetFilePath(FullPath) If FullPath "" Then GetFilePath = left(FullPath InStrRev(FullPath "")) Else GetFilePath = "" End If End function Private function GetFileName(FullPath) If FullPath "" Then GetFileName = mid(FullPath InStrRev(FullPath "")+ ) Else GetFileName = "" End If End function
Private function toByte(Str) dim i iCode c iLow iHigh toByte="" For i= To Len(Str) c=mid(Str i ) iCode =Asc(c) If iCode Then iCode = iCode + If iCode Then iLow = Left(Hex(Asc(c)) ) iHigh =Right(Hex(Asc(c)) ) toByte = toByte chrB("H"iLow) chrB("H"iHigh) Else toByte = toByte chrB(AscB(c)) End If Next End function End Class
lishixinzhi/Article/program/net/201311/14198
VB.NET中chr(8)是什么意思
表示ASCII码为8的字符
ASCII值为 8、9、10 和 13 分别转换为退格、制表、换行和回车字符。
chrbvb.net的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、chrbvb.net的信息别忘了在本站进行查找喔。