无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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精品欧美一区二区三区 | 99久久无码一区人妻 | 亚洲中文无码人成网 | 18禁无码无遮挡在线播放 | 亚洲gay片在线gv网站 | 欧美日韩另类综合 | 影音先锋三级伦理 | 欧美一区二区VA毛片视频 | 国产网红主播精品福利大秀专区 | 波多野结衣aa在线观看 | 成人日韩高清 | 国产91精品无码a片在线看 | 国产高清无码在线免费看 | 精品偷拍的自拍的 | 国产成人精品久久一区二区三区 | 精品福利一区二区三区免费视 | 97无码久久久久中文字幕精品 | 欧美真实强奸一级a人成在线观看 | 成人精品一级毛片 | 国产在线观看免费一区二区三区 | 久久亚洲精品日本波多野结衣 | 国产精品亚洲欧美大片在线 | 国产成人免费观看视频 | 2024国内自拍视频在线播放 | 国产精品成人无码a片免费网址 | 51国偷自产一区二区三区 | 国产成人一区二区三区别 | 久久永久地址在久久线播放 | 久久国产午夜精品一区二区三区 | 国产乱子伦精品视频一加勒比 | 亚洲老头与老太性hd | 午夜免费观看福利片一区二区三区 | 精品人妻无码专区在线视频 | 精品乱码8久久久久久日本 精品乱码久久久久久日本麻豆 | 精品国产午夜福利在线观看 | 精品国产一区二区三区三州 | japanesehd无码专区 | 91精品夜夜夜一区二区 | 人人干天天爱 |