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

主站蜘蛛池模板: 欧美日本在线 | a级免费在线毛片 | 激情五月开心综合亚洲 | 国产精品成人免费精品自在线观看 | 精品国产一区二区三区不卡蜜臂 | 国内最真实的xx | 欧美成人免费一区二区三区 | 丁香色五月激情综合色丁香色五月激 | 人体射精一区二区 | 国产v综合v亚洲精品无码 | 亚洲欧美日韩中文字幕久久 | 韩国无码一区二区三区免费视频 | 天天人人综合 | 久久久一线二线三线 | 国产精品va无码二区 | 国产999视频在线播放 | 91久久久久国产精品嫩草影院 | 亚洲精品久久一区二区三区2024 | 成品大香煮伊在2024一区 | 亚洲av永久无码精品国产精品 | 无码高潮少妇多水 | 国产精品自在线 | 无码精油按摩潮喷在播放 | 无码免费一区二区三区免费播放 | 国产内射在线激情一区 | 成人中文在线 | 色情www日本欧美 | 国产欧美日韩综合视频专 | 欧洲mv亚洲mv永久入口免费 | 亚洲国产精品毛片AV不卡在线 | 国产精品一区久久久久久 | 久久人人做人人妻人人玩精品AV | 中文无遮挡国产日韩综合一区二区 | 亚洲欧美v国产一区二区三区 | aⅴ精品无码无卡在线观看 aⅴ精品一区二区三区 | 99久久婷婷国产综合亚洲 | 欧美日韩福利视频一区二区 | 成人影院YY111111在线 | 狼友视频国产精品首页 | 成年女人毛片免费视频 | WWW.红杏视频|