无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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片55动漫 | 久久亚洲精品2017 | 精品久久中文字幕有码 | 免费无码又色又爽的视频软件 | 人体射精一区二区 | 99久久国产综合精品五月天喷水 | 久久国产精品久久久 | 国产午夜模特福利电影在线播放 | www天堂二区网站成人中文wyc | 日韩旡码中文字幕国产 | 亚洲一区二区三区中文字幕5566 | 久久久免费精品 | 99亚洲男女激情在线观看 | 国产精东剧天美传媒影视 | 视频精品一区二区三区 | 91超级碰 | 日韩av无码精品色午夜 | 色婷婷亚洲一区二区三区 | 国产SUV精品一区二区883 | 日韩喷潮 | 精品国产免费第一区二区三区 | 日韩人妻精品一区二区三 | 日本人妻人人人澡人人爽欧美a级在线观看 | 亚洲高清视频一区 | 亚洲欧美日韩国产精品专区 | 国产女人裸体在线视频 | 色妺妺在线视频喷水 | 久久久久精品无码专区喝奶 | 伊人激情综合网 | 久久精品国1国二国三在 | 国产成人av网站手机不卡 | 日本久久久成人免费毛片 | 国产在线视频在线 | 国产色精品久久人妻无码看片软件 | 熟妇人妻无码中文字幕 | 久久国产一区二区精品 | 国产欧美综合一区二区三 | 成人成码精品久久亚洲 | 亚洲一区二区三区高清 | 久久在线 | 高清国产精品热舞在线一区二区三区 |