无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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)簽

主站蜘蛛池模板: 99热门精品一区二区 | 99久久精品无码一区二区三区 | 国产av国片精品有毛 | 伦理片琪琪影院免费观 | 欧美日韩一级黄色片 | 国产精品丝袜一区二区三区 | 韩国三级片网址窝窝影院 | 国产91精品福利在线观看 | 欧美国产日产韩国免费 | 久久精品亚洲精品国产色婷婷影院老师hd免费视频 | 国产精品麻豆身体互换 | 99久久精品费精品国产一区二区 | 在线观看国产亚洲视频免费 | 久久人人做人人妻人人玩精品AV | 久久久二级av专区专区 | 国产精品久久国产精品99 | 国产麻豆剧果冻传媒 | 久久久久久九九99精品主播美女 | 亚洲无碼网站观看 | 亚洲国产精品一区 | 日韩人妻一区二区三区久久 | 亚洲欧美v国产一区二区三区 | 少妇高潮喷水久久久影院 | 51无码人妻精品1国产 | 黑人巨大精品欧美一区二区三区 | 久久久久综合网久久 | 性奴抽插乳中出精没射视频搜索 | 日本无码WWW在线视频观看 | 99久久免费只有精品国产高潮欧美综合直播三区 | jizz日本在线观看 | 天天婷婷五月天 | 国产水多视频在线观看免费 | 国模无码免费视 | 国产大屁股视频免费区无卡 | 国产在线码观看清码视频 | a级a做爰片在线观看视频动漫电视剧在线观看 | 狠狠热免费视频 | 一区二区三区四区在线播放 | 国产美女被爽到高潮激情免费A片 | 一区二区三区视频 | 亚洲欧美精品午睡沙发 |