无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡av-无码一区二区三区不卡-无码一区二区三区va在线播放

萬能百科  > 計(jì)算機(jī)?  > 

[填空題] 這是一個(gè)解密程序。密碼由若干數(shù)字組成,每三位為一個(gè)數(shù)字組,若數(shù)字組中所有數(shù)字均小于5,則該數(shù)字組有效,將有效的數(shù)字組按5進(jìn)制轉(zhuǎn)換成10進(jìn)制數(shù),再按A

2021-07-20   

[填空題] 這是一個(gè)解密程序。密碼由若干數(shù)字組成,每三位為一個(gè)數(shù)字組,若數(shù)字組中所有數(shù)字均小于5,則該數(shù)字組有效,將有效的數(shù)字組按5進(jìn)制轉(zhuǎn)換成10進(jìn)制數(shù),再按ASCII代碼轉(zhuǎn)換為字符就可得到明文。 Option Explicit Private Sub Command1_Click()Dim st As String,p As Stringst=Text1Do P=___(22)___ If judge(p) Then Text2=Text2 & Chr(conv(p)) End If st=Right(st,Len(st)-3)Loop Until ___(23)___ End Sub Private Function judge(p As String) As Boolean ’判斷有效數(shù)字組Dim q As String*1,i As IntegerFor i=1 To Len(p) q=Mid(p,i,1) If ___(24)___ Then Exit FunctionNext ijudge=True End Function Private Function conv(p As String)As Integer ’進(jìn)制轉(zhuǎn)換Dim k As Integer,q As String*1,i As IntegerFor i=Len(p) To 1 Step-1 q=Mid(p,i,1) conv=conv+Val(q)*5^k ___(25)___Next i End FUnction

正確答案:

Mid(st,A,C)Len(st)=0q>=”E”K=k+A

詞條內(nèi)容僅供參考,如果您需要解決具體問題
(尤其在法律、醫(yī)學(xué)等領(lǐng)域),建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。

標(biāo)簽

主站蜘蛛池模板: 无码成人精品区在线观看 | 亚洲精品国偷拍自产在线观看蜜臀 | 国产人妻精品无码AV在线浪潮 | 99国产精品人妻无码网站 | 日韩三级在线播放 | 欧美一道本 | 国产成人精品第一区二区三区官网版手机版 | 果冻传媒一二三产品 | 2024中文字幕在线观看 | 中文字幕国产精品 | 久久精品人妻系列青青 | 精品国产乱码一区二区三区麻豆 | 欧美日韩国产亚洲一区二区 | 无码成人片一区二 | 日本黄线在线播放免费观看 | 国产成人免费不卡在线观看 | 日本熟妇免费牲交视频 | 欧美黄色免 | 国产精品亚洲专区无码导航 | 国内精品久久久久久网站 | 精品国产仑片一区二区三区 | 免费三级现频在线观看免费 | 人妻少妇精品无码专区喷水 | 欧美激情精品久久 | 成人h动漫网站hd在线播放 | 一区二区无码在线 | 国产欧美精品一区二区三区四区 | 麻豆精品无人区码一二三区别:三大区域解析 | 亚洲av永久纯肉无码精品动漫 | 色久久久久高潮综合影院 | 日韩精品影视 | 亚洲A片成人无码久久精品色欲 | 国产真实乱了在线播放 | 亚洲丰满爆乳熟女在线观看 | chinese国产人妖网站视频 | 国内精品久久久久影院vr | 欧美亚洲精品中文字幕乱码免费 | 无码不卡免费中文字 | 91制片厂果冻传媒公司苏语棠 | 亚洲精品高清国产一线久久97 | 欧美日韩在线一区亚洲二区 |