无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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久久国产丁香精品中文 | av毛片 | 頂級嫩模一區二區三區 | 3d动漫精品一区二区三 | 精品熟女少妇一区二区 | 成人特黄午夜性a一级毛片 成人特级毛片 | 亚洲国产精品久久精品成人 | 中文字幕精品无码亚 | 丰满人妻av无码区 | 国产亚洲欧美在线观看三区 | 亚洲国产精品无码久久sm | 欧美人禽狂配视频在线观看 | 国产一区二区免费 | 国产综合久久久久影院 | www天堂二区网站成人中文wyc | 国产精品手机在线播放 | 国产一二三精品无码不卡日本 | 在线视频一区二区三区在线播放 | 日韩国产一级一区精品 | 亚洲国产日韩欧美久久精品 | 成人区人妻精品一区二区不卡网站 | 韩国精品视频一区二区 | 91网站在线看 | 特级淫片aaaa毛片aa视频 | 日本一道综合色视频 | 人妻无码一区二区三区欧美熟妇 | 国产午夜亚洲精品一级在线 | 国产午夜毛片黄色 | 国产亚洲福利日本一区二区 | 久久综合色区 | 与黑人大黑机巴做爰A片 | 亚洲日韩高清在线亚洲专区 | a级国产精品片在线观看 | 国产成人免费成人免费视频在线观看 | 久久精品一区二区三区无码 |