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

主站蜘蛛池模板: 国产午夜精品久久久久免费视 | 精品无码国产自产在线观看欧美1区2区3区 | 中文精品一区二区三区四区 | 国产免费内射又粗又爽密桃视频 | 激情网成人 | 欧美日韩亚洲综合另类ac | 久久激情午夜视频 | 打开腿闺蜜用黄瓜让我爽 | 久久久国产精华特点:传承与创新 | 无人一码二码三码4码免费 无套进入无码A片 | 久久国产亚洲精品观看 | 久久精品国产在热久久2024 | a级小黄片在 | 全肉高H短篇合集 | 1769国内精品视频在线 | 四虎国产精品免 | 日韩精品久久久无码专区 | 91制片厂果冻传媒剧情剧电影在线观看 | 精品国产aⅴ无码一区二区蜜桃 | 精品夜夜澡人妻无码AV蜜桃 | 欧美亚洲日韩一区二区黄色 | 国产精品视频久久久久久 | 欧美黑人肉体狂欢交换大派对在线播放 | 欧美日韩国产一区国产二区 | 亚洲 欧美 综合 另类 中字 | 91插插插插插 | 欧美色综合精品视频在 | 久久国产热精品波多野结衣av | 午夜婷婷一夜七次郎 | 黑人狂躁日本妞无码视WWW | 亚洲国产麻豆 | 亚洲一区二区三区 | 国产白浆在线 | 无码福利一区 | 91精品国产情侣高潮露脸清 | w52zcm亚洲永久精品 | 精品人妻无码一区二区三区4 | 亚洲精品无码成人A片在线软件 | 亚洲欧美日韩综合久久久久 | 成人亚洲精品久久久久软件 | 精品久久aⅴ人妻中文字幕 精品久久av无码 |