无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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 | 乱人伦视频69 | 国产av一区二区三区四区五 | 精品亚洲aⅴ无码一区二区三区 | 亚洲制服丝袜无码 | 精品视频精品国产免费视频 | 全身无赤裸裸美女 | 成年禁止18网站永久入口 | 成人自拍视 | 国产精品久久精品第一页不卡 | 伊人久久精品久久亚洲一区 | 成色A片202477在线小说 | 久久国产自偷自免费一区 | 国产精品久久国产精品99 gif | 久久久国产精品亚洲一区 | 99久久精品免费看国产免费软件 | 成年女人免费播放影院 | 久久久久毛片免费观看 | 国产高清精品线久久 | 欧美人成视频在线视频 | 欧美成人精品视频一区二区三区四区 | 日本激情网址 | 亚洲精品乱码久久久久久麻豆 | 狠狠的撸2016最新版 | 国产熟人av一二三区 | 国产在线看不卡一区二区 | 一级免费视频片高清无码 | 中文字幕无码精品一区二区三 | 麻豆一区区三区四区产品精品蜜桃 | 国产成人无码a区在线观看导航 | 四虎影视2024在线播放a | 丰满熟妇乱又伦在线无码视频 | 2024久久国产精品免费热麻豆 | WWW九九九毛片无码一区二区 | 成A人无码成牛牛 | 中文字幕人妻无码一区二区三区 | 国产爆乳成av人在 | 岛国二区三区 | 国产精品视频一区视频二区 |