无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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在线 | 亚洲一区AV在线观看红楼梦 | 国产成人免费一区二区三区 | 亚洲 图 在线 | 亚洲日本欧美综合在线一电视剧在线观看 | 欧美片内射欧美美美妇 | 伊人五月在线 | 亚洲国产成人资源在线软件 | 久久久久久久精品综合 | 丁香婷婷激情五月 | 麻豆精品一区 | 国产亚洲精品久久久久久白晶晶 | 久久无码中文字幕免 | 岛国大片在线播放高清 | 2024国产乱人伦在线 | 精品国产欧美一区二区三区 | 老司机深夜福利在线观看 | 色五月情| a级毛片影院不卡午夜一区成人 | 大沢佑香种子 | 久久男人av资源网站无码免费 | 黑人精品欧美一区二区小视频 | 日韩欧美国产片免费观看 | 日本网站在线免费一区 | 国产精品内射在线 | 久久97精品久久久久久久看片 | 国产天天在线 | 婷婷开心深爱五月天播播 | 精品国产香蕉伊思人在线在线亚洲一区二区 | 国产一区二区精品久久麻豆 | 国语对白清晰好大好白在线 | 波多野结衣三区 | 亚洲日产欧美911 | 国产精品亚洲色婷婷 | 免费观看的成年网站推荐 | 欧美日韩中字视频三区 | 国产欧美久久一区二区 | 日韩精品一区在线 | 国产精品国产三级国产在线观看 | 国产白丝jk被疯狂输出在线观 |