无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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久久 | 亚洲色成人网站www永久四虎 | 日韩精品色亚洲一区二区三区 | av片在线无码免费看 | 成人v人不卡无码影片 | 国产三级麻豆 | 日产无码AV在线观看 | 成人无码精品一区 | 无人区乱码一线二线久久久久 | 91香蕉视频在线看 | 国产精品ⅴa片在线观看粉嫩av | 欧美日韩专区 | 狠狠色很很鲁在线视频 | 欧美变态味孕交 | 国产精品大屁股白浆视频手 | 成人做爰A片三免费视频 | 国产精品国产三级国产潘金莲 | 国产成人ⅤA视频永久入口 国产成人aⅴ大片大片 | 波多野结衣在线观看高清免费资源 | 无码不卡在线播放 | 自拍日韩葡萄影院在线观看视频下载 | 欧美在线视频一区 | 亚洲1区2区3区精华液 | chinese熟女老女人hd视频 | 久久免费看黄a级毛片女 | 97国产精品视频在线观看 | 国产精品亚洲专区无码影院 | av网页中文字幕 | 亚洲欧美自拍另类欧美 | 精品无码不卡在线播放 | aⅴ免费视频 | 日本成年人黄色视频一区二区 | 日日碰狠狠添天天爽超碰97 | 久久99国产精品一区二区三区 | 91麻豆成人精品国产免费网站 | 国产成人精品日本无码动漫 | 亚洲国产区男人本色在线观看 | aⅴ日本视频在线播放 | 日本精品人妻无码免费大全 | 精品一区日韩欧美 |