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

主站蜘蛛池模板: 丰满人妻精品一区二区 | 东京热无码精品一区二区 | 欧美日韩一区二区三区久久精品 | 亚洲男人的天堂精品一区二区 | 国产人妻无码精品 | 蜜桃 美利坚保护 日本WWW高清 | 成熟女人毛片www免费版在线 | a级黄韩国在线观 | 国产午夜福利伦理300 | 69无人区码一码二码三码七码 | 99成人在线观看 | 亚洲三级在线中文字幕 | 亚洲丰满熟女一区二区三区 | 国产69成人免费视频观看 | 青草青草伊人精品视频一区二区三区国产美女在线播放 | 欧美日韩不卡合集视频 | 亚洲自偷自拍另类图区 | 顶级少妇白浆视频 | 国产女主播一区 | 伊人狠狠色丁香综合尤物 | 在线看免费观看AV深夜影院 | 成人欧美电影一区二区三区 | 日本妇乱子伦视频 | 二区av视频精产国产伦理一二三 | 亚洲欧美精品综合在线观看 | 国内精品91久久久久 | 精品日产1区2卡三卡麻豆全集精选 | 久久国产日韩欧美精品视频 | 国产视频一区二区三区免费观看 | 麻豆日韩国产精品欧美在线 | 国产午夜成人久久无码一区二区 | 秋霞最新高清无码鲁丝片 | 国产午夜精品一区二区三区嫩草 | 香港三级精品三级在线专区 | 日韩aⅴ人妻无码 | 久久久精品一级二级三级 | 国产午夜精品一本在线观看 | 国产在线永久视频 | 亚洲欧美色一区二区三区 | 国内精品视频一区二区 | 日本丰满大乳人妻无码水卜樱 |