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

主站蜘蛛池模板: 毛一卡二卡三卡免费看 | 精品久久久久久久高清 | 国产成人女人视频在线观看 | 毛片精品亚洲熟女乱色一区二区三区麻豆 | 亚洲欧美日韩乱码综合久久 | 狠狠色噜噜狠狠狠狠色综合网 | 精品国产乱码久久久久久1区2区 | 久久久久国产精品免费网站 | 亚洲欧美丝袜制服 | 国内偷窥一区二区三区视频 | 啪啪激情婷婷久久婷婷色五月 | 99视频免费播播 | 国产篇一级黄色.a一级黄色片免费一级毛片.中国国产一级 | 日韩免费高清大片在线 | 欧美成人国产一区二区 | 国产毛片子1区2区3区菊花影视 | 国产黄片av在线播放 | 国产中文无码日韩 | 伊人久久大香线蕉亚洲 | 亚洲丁香婷婷久久一区二区 | 狠狠做五月深深爱婷婷 | 欧洲免费在线视频 | 麻豆久久久久久久 | 亚洲成av人影片在线观看 | 国产精品亚洲第一区在线 | 精品久久香蕉国产线看观看gif | 麻豆精免费老夫子 | 人妻少妇精品无码专区吞精 | 一夜色鲁干就色 | 波多野结衣三级视频 | 久久久高清国产999尤物 | 日本高清视频在线无吗 | 国产欧美精品一区二区色综合 | 精品一线二线三线区别在哪欧美 | 久久久久久精品成人自慰无码 | 人妻少妇久久中文字 | 国产中文字幕精品视频 | 精品一区二区三区四区在线观看 | a级在线视频 | 国产欧美日韩精品一区二区被窝 | 国产精品一国产精品 |