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

主站蜘蛛池模板: 97se亚洲综合一区二区 | 久久国产主播福利在线 | 国产网曝手机视频在线观看 | 国产白丝无码免费视频 | 欧美成人精品午夜免费影视 | 国内综合精品午夜久久资源 | 视频精品全国在线观看 | 国产尤物精品自在拍视频首页 | 亚洲欧美日韩高清av | 久热爱免费精品视频在线播放 | 黄色精品视频 | 特级毛片在线大全免费播放 | 2024国产午夜福利久久 | 国产免费A片好硬好爽好深小说 | 亚洲成a∧人片在线播放 | 男女国产猛烈无遮挡色情 | 三级片网站人口在线播放 | 性一乱一交A片 | 成人aaa片一区国产精品 | 国产在线观看一区二区三区 | 成年女人一级毛片视频播放 | 亚洲日韩国产精品无码av按摩 | 亚洲精品中文字幕无码蜜桃 | 在线精品视频免费 | 久久久久久自慰 | 亚洲中文字幕无码久久2024 | 国产精品人妻久久无码不卡 | 丁香五月亚洲综合色婷婷色婷婷 | 日韩高清在线中文字带字幕 | 精品美女国产互换人妻 | 三上悠亚一区二区蜜 | 亚洲成AV人片一区二区三区 | 国产亚洲精品久久久久婷婷图片 | 黑人狂躁日本少妇在线观 | 欧美日韩亚洲成人 | 日日草夜夜操 | 成人日韩在线 | 丁香五月亚洲综合色婷婷 | 日本怡春院欧美一区二 | 日本一本二本免费视频在线观看 | 无套内谢少妇毛片免费看 |