无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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片视频 | 69国产精品视频免费 | 国产片高清无码在线观看丝袜 | 熟女视频人妻欧美国产精品麻豆成人a | 91精品国产91久久综合 | 国产精品ⅴideossex国产高清 | 久久久久无码精品国产无码一区精品中文字幕久久久久久a | 国产精品成av人在线观看片 | 国产三级在线免费 | 国产人妻人伦精品熟女 | 久久夜色精品国产飘飘 | 欧美亚洲每日更新在线日韩 | 国精产品一二二区视早餐有限 | 4虎影院最新地址2024 | 国产精品人妻无码免费 | 麻豆人妻无码 | 成人a毛片免费观看网站 | 2024久久精品影院 | 少妇无码精品一区二 | 国产无人区码卡二卡3卡4卡高清在线观看 | 久久久久久尤物 | 九九线精品视频 | a级午夜毛片免费一区二区 a级销魂美 | 97人妻熟女成人免费视频 | 日本欧美一区二区 | 国产经典在线观看一区 | 91人妻无码精品一区二区夜色 | 国产亚洲欧美日韩综合 | 国产精品麻豆成人av电影艾秋 | 无码中文字幕aⅴ精品影院 无码中文字幕AV久久专区 | 麻豆国产巨作AV剧情 | 久久99精品久久久久久不卡 | 国产网红主播精品福利大秀专区 | 日本免费精品一区二区三区 | 高潮毛片无遮免费高清 | 91麻豆国产视频一级片 | 国产精品一区二区三区四区五区 | 一本道久久综合亚洲精品 | 麻豆蜜桃国产精品无码 | 亚洲AV片天堂波多野结衣 |