freepeople性欧美熟妇, 色戒完整版无删减158分钟hd, 无码精品国产vα在线观看DVD, 丰满少妇伦精品无码专区在线观看,艾栗栗与纹身男宾馆3p50分钟,国产AV片在线观看,黑人与美女高潮,18岁女RAPPERDISSSUBS,国产手机在机看影片

正文內(nèi)容

vb-4-循環(huán)結(jié)構(gòu)程序設(shè)計(jì)-實(shí)例-資料下載頁

2025-01-12 20:57本頁面
  

【正文】 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) If = Or = Then MsgBox 必須輸入姓名和密碼 , 0 + 64, 提示 Else If = name And = password Then Else MsgBox 姓名或密碼錯(cuò)誤 , 0 + 48, 警告 End If End If Else End End If End Sub 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 譯碼器 ——譯碼器窗體設(shè)計(jì) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 譯碼器 ——譯碼器窗體設(shè)計(jì) ?函數(shù) ? Asc( C)的功能是將字符轉(zhuǎn)換成 ASCII碼值,如Asc(“ A”)的值 65 ? Chr(65)其功能是將 ASCII碼值轉(zhuǎn)換成字符,如 Chr( 65)的值“ A” ? LTrim(C)是去掉字符串左邊的空格, 如 LTrim(“└┘└┘ABVC”)的值為 ABVC ? Mid(C, N1, N2)是取字符子串,在 C中從 N1位開始向右取 N2個(gè)字符 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 譯碼器 ——譯碼器窗體設(shè)計(jì) ?約定 “原文”文本框中的數(shù)字字符串每三位代表一個(gè)完整的信息,如一個(gè)字母( 065表示字符“ A”)或一個(gè)空格( 000表示空格),一個(gè)數(shù)字( 033非字母或空格,表示數(shù)字 33),字符串結(jié)束(“ ”) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) 譯碼器 ——“譯碼 ” 代碼 n = 1 ori = LTrim$() 39。去掉“原文”文本框字符串右邊的空格,賦值給變量 ori orip = Mid$(ori, n, 3) 39。從字符串 ori的第一個(gè)位置開始取 3個(gè)字符 ,賦值給字符串變量 orip While orip n = n + 3 39。確定下一次取字符的位置 If Val(orip) = 0 And Val(orip) = 255 Then 39。ASAII碼的范圍是 0~255 orip = Chr$(Val(orip)) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) If orip = a And orip = z Then trapn = Asc(orip) 97 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 97 1) letterlow = letterlow + 1 39。計(jì)小寫字母的個(gè)數(shù) Else If orip = A And orip = Z Then trapn = Asc(orip) 65 + 1 trap = Chr$((trapn + Day(Now)) Mod 26 + 65 1) lettercap = lettercap + 1 39。計(jì)大寫字母的個(gè)數(shù) 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) Else 39。非字母 trap = Asc(orip) 39。字符 orip轉(zhuǎn)換成 ASCII碼值,作為譯碼即保持原值 If trap = 0 Then 39。字符 oripASCII碼值為 0即原值為“ 000” trap = 39。譯碼為空格 word = word + 1 39。單詞計(jì)數(shù),因?yàn)榭崭穹指魡卧~ other = other + 1 39。其它字符計(jì)數(shù),空格也是一個(gè)非字母字符 Else If trap 99 Then 39。其它字符計(jì)數(shù) other = other + 3 Else If trap 9 Then other = other + 2 Else other = other + 122 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) End If End If End If End If End If Else trap = orip 39。超出 ASCLL碼范圍的值不變 other = other + 3 End If tra = tra + trap 39。譯碼連接到字符串 tra orip = Mid$(ori, n, 3) 39。取出下一個(gè)字符串 Wend 第一章 第二章 第三章 第四章 第五章 第六章 第七章 第八章 第九章 第十章 第十一章 第四章 VB程序設(shè)計(jì) = tra 39。譯碼在“譯文”文本框中顯示 inf = 大寫字母個(gè)數(shù): + Str$(lettercap) + Chr$(13) +chr$(10) + 小寫字母個(gè)數(shù): + Str$(letterlow) + Chr$(13) +chr$(10) + 單詞個(gè)數(shù): + Str$(word + 1) + Chr$(13) +chr$(10)+ 其它字符個(gè)數(shù): + Str$(other) MsgBox inf, 0 + 64, 譯文統(tǒng)計(jì)信息 End Sub
點(diǎn)擊復(fù)制文檔內(nèi)容
教學(xué)課件相關(guān)推薦
文庫吧 www.dybbs8.com
備案圖鄂ICP備17016276號(hào)-1