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

主站蜘蛛池模板: 97smm| 麻豆app2.24.15.15安卓版下载 | a级毛片免费观看视频 | av无码理论片在线观看免费网站 | 国产欧美日韩三级 | 99久久久无码国产AAA精品 | 国产毛片精品AV一区二区 | 国产精品亚洲片在线花蝴蝶 | 制服丝袜中文字幕国 | 国产在线观看自拍 | 日韩国产综合视频一区二区二 | 国产亚洲欧美日韩综合另类 | 免费欧美日韩精品一区二区三区 | 粗大猛烈进出高潮喷浆h | 免费国产一区二区8x | 日韩精品一区二区三区中文不卡 | 国产爆乳无码福利电影 | 狠狠色婷婷久久一区二区三区 | www日本高清视频 | 中文成人无字幕乱码精品区 | 九九久久久久久久久久 | 日韩精品不卡一区二区三区 | av天堂午夜精品一区二区三区 | 国内精品久久久久影院薰衣草 | 丁香激情六月天 | 久久伊人加勒比一区二区 | 一本久久a久久精品亚洲 | 国产午夜一区二区在线观看 | 亚洲欧美日韩一区二区在线 | 狠狠色噜狠狠狠狠 | 成人精品一区二区三区久久 | 国产精品成人av久毛片 | 日本大片免费视频在线 | 欧美天天综合 | 成a人片在线 | 成年无码aⅴ| 国产一区在线观看免费 | 天美传媒公司宣传片视频大全 | 无码成人片一区二 | 国产精品99在线观看 | 精品AV国产一区二区三区 |