无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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综合一区二区三区 | 久久888 | 在线观着免费观看国产黄 | 妺妺窝人体色WWW网站 | 国产亚洲欧美日本一二三本道 | 国产午夜精品一区二区三区小 | 麻豆国产主播精 | 国产精品一区二区高潮 | 亚洲性色永久免费网址 | 亚洲AV无码一区二区色情蜜芽 | 日本在线视频一区二区三区 | 高清流畅免费无码毛片av | 成人无码秒播在线观看 | 欧美日韩国产中 | 丁香久久婷婷综合国产午夜不卡 | 苍井空v免费视频 | 国产av午夜精品一区二区入口 | 国产成人无精品久久久久国语 | 亚洲自偷自拍sm另类在线观看 | 97在线视频人妻无码男人三区免费在线播放天堂97久久 | h无码精品动漫在线 | 字幕制服中文在线 | 久久精品国产亚洲av高清热 | 精品久久亚洲中国一级a | 国产亚洲欧美日韩精品一区二区三区 | 欧美成人亚洲午夜 | 一本久道久久综合无码中文 | 3d肉蒲团快播种子 | 黄色免费网站在线看 | 亚洲AV永久无码麻豆A片 | 91人妻成人精品一区二区 | 粗大挺进尤物人妻中文字幕 | 国产精品久久国产精品99 | 国产精品99久久久久久动漫 | 久久首页这里只有精品视频 | 欧美日韩国产精品26u | 国产婷婷午夜无码A片 | 成人性生交大片免费看中国A片 | 日本岛国色情大片在线观看电影在线看 |