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

主站蜘蛛池模板: 变态另类在线 | 国产乱子影视频上 | 九九热免费在线观看 | 地址一地址二地址三 | 国产亚洲日韩欧美另类第八页 | 91久久国产成人免费观看资源 | 国产精品久久毛片 | 国产精品午夜无码av体验区 | 亚洲av综合av一区二区三区 | 精品日韩欧美一区 | 久久精品国产视频在热 | 91精品综合国产在线观看 | 午夜精品一区二区毛片 | 一级做a爱过程免费视频超级 | 国产精品高清在线一区 | 91精品无码国产在线观看 | 亚洲精品久久久久一区二区 | 国产成人无码a区在线观看免 | 国产成人拍精品视频午夜网站 | 麻豆A片爽爽歪歪爽爽视频看看 | 国产盗摄视频手机在线 | 久久ra热在线精品视频 | 亚洲一区综合图区 | a级毛片免费观看网站 | 亚洲精品一区二区三区四区手机版 | madoutv在线观看 | 国产99久9在线视频 国产99久9在线视频传媒 | 国产精品yjizz视频网 | 年轻的馊子8HD中文字幕 | 东京热中文字幕a专区 | 国产无码av一区二区 | 不卡区一区二区三区国产 | 日韩中文无码一区二区三区 | 国产分类精选在线观看 | 东京热久久无码dvd一二三区 | 成年无码a片在线观看 | 成年女人毛片免费播放人 | 国产亚洲一区二区手机在线观看 | 欧美激情一区二区三区中文字幕 | 亚洲成A人无码亚洲成WWW牛牛 | 亚洲自偷精品视频自拍 |