无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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精品青草社区视频 | 国精品人妻无码一区二区三区牛牛 | 激情深爱 | 亚洲欧美牲交 | 性感美女视频在线观看一区二区 | 欧美精品高清在线x | 国产免费一区二区在线A片 国产免费永久在线观看 | 2024年天堂无码视频 | 99无码蜜臀人妻久久精品 | 人妻中文无码久热丝袜 | 成人无码av一区二区三区 | 国产亚洲日韩网曝欧 | 成人免费无码婬片在线观看免费 | 色欲AV蜜臀AV久久浪潮AV | 欧美日韩国产精品26u | 欧美成人免费在线观看 | 精品无码国产自产在线观看老师 | 中文人妻AV久久人妻水密桃 | 成人秘视频一区二区三区 | 亚洲日韩国产成在线发布一区二区三区 | 91久久麻豆精品 | 一级大片| 国产v片在线播放免费观看大全 | 国产视频精品不卡 | 国产三级大片在线观看 | 精品欧美成人高清在线观看 | 亚洲精品在线第一页 | 成人国产精品一区二区网站公司 | 亚洲综合无码精品一区二区三区 | 一区二区视频在线观看入口 | 色四房播播 | 色情内射少妇兽交 | 欧美a级毛欧美1级a大片式放 | 国产成人精品久久久久婷婷 | 日本的传媒精品人妻一区二区a片 | 国产三级a在线观看中国 | 日韩中文无码一区二区三区 |