无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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永久一区二区国产AV开 | 丁香久久婷婷综合中文字幕第1页 | 精品国产乱码久久久久久夜深人妻 | 精品人妻无码一区二区三区手机版 | 午夜婷婷精品午夜无码A片影院 | 国产成人无码精品久久久按摩 | 波多野结衣乱码无字幕 | 毛片女人18片毛片免费二区 | 国产成人aⅴ男人的天堂 | 成年看片免费高清观看 | 欧美成人精品视频一区二区三区四区 | 久久精品综合国产一区二区 | 国产一卡2卡3卡4卡无卡免费网站 | 69日本人xxxxxhd高清资源在线播放 | 亚洲国产成人久久综合一 | 精品综合久久久久久97超人该 | 99久久久久久97 | 国产成人高清免费 | 欧洲精品免费一区 | 在线观看免费国产福利片 | 国产乱子伦在线视频 | 欧美 自拍 在线 综合图区 | 7777精品伊久久久大香线蕉 | 国产精品三级美女网站全黄真人一级毛片 | 丁香在线 | 99无套内射中出生娃视频 | 国产成人亚洲精 | 在线播放免费人成毛片软件 | 美日韩一级 | 看你懂的巨臀中文字幕一区二区 | 欧美色综合精品视频在 | 亚洲区小说区图片区qvod伊 | 黄AV国产永久免费网站 | 国产亚洲精品久久久ai换 | 国产真实乱了伦对白视频 | 久久99精品国产麻豆宅宅 | 免费又黄又硬又爽大片 | 国产高清在线观看av片麻豆 |