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

主站蜘蛛池模板: 欧美阿v高清资源在线 | 久久久99精品免费观看 | 国产亚洲欧洲另类精品 | 久久99国产精品久久99软件 | 亚洲av无码国产精品久久 | 色狠狠一区二区 | 中文字幕国产精品欧美激情 | 成人中文字幕在线高清 | 久久精品国产99国产精品 | 国产日韩精品一区二区在线播 | 久久久无码精品成人A片 | 久久久久久久久久久高潮一区二区 | 3d动漫精品一区视频在线观看 | 精品人妻无码一区二区三区葡京 | 疯狂做受XXXX高潮吃奶 | 日本国产美国日韩欧美mv中文字 | 成人无遮挡18禁免费视频 | 无码成a∧人片在线播放 | 国产999精品成人网站 | 日韩av无码精品专区 | 无码专区一ⅴa亚洲v专区在线 | 五月天国产成人无码精品 | 无码成人精品区 | 久久国产精品无码视欧美 | 国产亚洲精品aaa在线观看 | 91精品国产品香蕉在线 | 国产乱码精品一区二区三区四川人 | 精品伊人久久大线蕉色首页 | 国产精品久久久久久久久夜色 | 国产精品一区理论片 | www欧美无国产精选尤物 | 另类91videos日本无在线观看视频 | 亚洲欧美自拍制服日韩一区 | 色欲AV亚洲精品一区二区 | 久久综合亚洲色综合 | 无人区在线完整免费版高清 | 亚洲日本欧美综合在线一电视剧在线观看 | 成人免费一区二区三区 | 日韩a级毛片无码免费看 | 日韩精品久久久免费观看夜色 | 国产91福利无码一区在线 |