无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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自产拍在线观看一区 | 国产乱子伦在线播放即将上线 | 欧美乱人伦视频 | 97se亚洲综合一区二区 | 成网站在线观看人免费 | 一区二区三区四区免费视频 | 亚洲爆乳无码一区二区三区 | 中文字幕永久人人人网视频 | 丁香婷婷六月综合缴清 | 国产精品V无码A片在线看小说 | 国产三级精品av在线 | 亚洲AV成人片色在线观看高潮 | 久久久久中国男同gay片 | 欧美黑人添添高潮A片 | WWW亚洲精品少妇裸乳一区二区 | 久久久久久一区二区三区 | 成人无码免费一区二区三区 | 国产麻豆精品一区二区三区免费在线观看 | 国产欧美综合在线区专区 | 国产精品久久久久久精品三 | a级毛片毛片看的的久 | 日韩在线一区国产国 | 在线观看潮喷失禁大喷水无码 | 伊人大杳蕉在线影院75 | 少妇浴室精油按摩2 | 国产做A爱片久久毛片A片秋霞 | 国产福利一区二区精品秒 | 国产久爱青草视频在线观看 | av天堂东京热无码专区 | 成人免费av一区二区三区 | 欧美午夜福利1000集2024年 | 久久88台湾三级香港三级 | 日韩国产成人无码AV毛片蜜柚 | 久久精品国产99久久无毒不卡 | 欧美日韩日本在线观看a | 国产毛片久久久久久国产毛片 | 日韩精品网 | 高清在线一区二区高清在线观看 | 精品乱码一区内射人妻无码 | 国产成人无码精品久久久 |