无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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鲁丝片一区二区免费 | 久热精品在线视频 | 无码日韩一区二区免费 | 动漫成年美女黄漫网站 | 天天干天天日天天 | 成人综合网站在线 | 国产精品久久无码不卡黑寡妇 | 18禁男人添女 | 无码人妻一区二区三区蜜桃手机版 | 久九色| 日韩人妻无码精品A片免费不卡 | 成人a片一二三区免费观看乱码小说 | 91在线精品亚洲一区二区 | 亚洲不卡无码永久在线观看 | 麻豆日韩国产精品欧美在线 | 熟妇的荡欲色综合亚洲图片 | 免费一级毛片免费播放 | 丰满熟妇啪啪区日韩久久 | 永久精品大片www. 91网站入口 | 韩国三级日本三级香港三级黄 | 精品国产一区二区三区不卡蜜臂 | 97人妻精品一区二区三区 | 国产精品久久久久久夜夜夜夜 | 精品久久久无码人妻中文字幕边打电话 | 国产亚洲欧美日本一二三本道 | a级毛片免费全部播放a级 | 国产一卡2卡3卡4卡新区乱码新增大量专区 | 77777亚洲午夜久久多喷 | 亚洲性无码A片在线观看尖叫 | 日韩精品一区二区三区+在线观看 | 撸撸在线 | 精品亚洲国产成人A片在线播放 | 亚洲美女一区二区三区 | 色国产在线视频一区 | 丰满人妻妇伦又伦精品国产 | 东京热人妻中文无码av | 欧美在线视频 | 国产超薄肉丝袜在线播放 | 国产精品麻豆a在线播放 | 国产乱伦人妻一区二区三区四区 | 好黄好猛好爽好痛的视频 |