无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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精品国产一区二区三区蜜臀 | 成年无码a | 亚洲欧美视频网站 | 无码精品人妻一区二区三区爱剪 | 久久精品高清一区二区三区 | 日本成年人黄色视频一区二区 | 国产亚洲一区在线观看一区二区 | 国产av无码专区亚洲av手机麻豆 | 51精产国品一二三产区区 | 四虎影视精品永久免费 | 欧美日韩国产综合草草蜜臀 | 伊人日日夜夜天天日日夜夜 | 亚洲av无码成人国产 | 人人草天天 | a级毛片高清免费视频播放 a级毛片高清免费视频在 | 美女内射无套日韩免费播 | 人妻久久久精品99系列A片毛 | 国产免费成人久久综合一区 | 四虎影视久久久免费观看 | 99热久| 国产欧美日韩精品第一区 | 性欧美欧美巨大69 | 伦理片一区二区三区 | 国产精品女上位在线观看 | 亚洲精品有码在线观看 | 欧美激情国产精品视频一区二区 | 男子扒开美女尿口做羞羞的事 | 亚洲色欲久久久久综合网 | 少妇偷拍精品高潮少妇 | 四虎网站 | 亚洲av区无码字幕中文色在线 | 免费欧美一区二区三区 | 久久久亚洲精品蜜桃臀 | 国产一区二区欧美在线影院 | 久久黄色影片 | 麻豆传煤官网入口免费进入 | 丰满熟女高潮毛茸茸欧洲 | 岛国大片在线播放高清 | 久久男人av资源网站无码软件 | 国产麻豆免费观看 |