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

主站蜘蛛池模板: 国内精品久久久久久久久久久久 | 亚洲国产av片一区二区 | 久久综合久色欧美综合狠狠 | 风韵丰满熟妇啪啪区老老熟女百度 | 97一期涩涩97片久久久久久久 | 无码av一级毛片在 | 黑巨茎大战美女在线播放 | 小小拗女一区二区三区 | 日本18~20岁牲交视频 | 无码人妻视频 | 久久久久久人妻一区精品 | 欧洲亚洲精品A片久久果冻 欧洲亚洲永久入口免费 | 亚洲—本道中文字幕 | 性做久久久久久免费观看 | 人妻被粗大猛进猛出国产 | 日韩精品欧美亚洲高清有无 | 久久久这里有精品 | 岛国av一区二区在 | 99热在线观看 | 少妇人妻偷人精品无码视频 | 成人三级精品视频在线观看 | 不卡无码人妻一区三区音频 | 国产成人亚洲日韩欧美全集 | 国产精品亚洲专区一区 | 五月天久久综合国产一区二区 | 日日夜夜免费精品天天www | 在线观看无码精品动漫 | 无码不卡中文字幕一区二区三区 | 久久五月天桃花 | 亚洲av一区二区三区麻豆 | 超高清真人大片视频 伊人网黄色视频 | 一区二区三区日韩精品 | 成人h片动漫在线观看 | 18禁成人黄网站免费观看自慰 | 久久精品亚洲欧美日韩久久 | 天堂av无码av一区二区三区 | 国产精品人妻一区二区99 | 99国产精品久久久久久久成人热 | 91福利一区二区在线观看 | 精品人妻无码一区二区三区婷婷 | 女同久久精品国产99国产精品 |