无码一区二区三区高清在线观-无码一区二区三区高清在线-无码一区二区三区电影-无码一区二区三区不卡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)簽

主站蜘蛛池模板: 亚洲午夜久久久无码精品网红A片 | av无码精品一区二区三区四区 | 特级做A爰片久久毛片A片国 | 精品欧美在线免费观看 | 国产网红自拍无删版在线播放 | 美国毛片aaa在线播放 | 亚洲第一视频网站 | 欧美性猛交内射兽交老熟妇 | 天天操天天干天天人天天干 | 国产美女a做受大片观看 | 久久男人的天堂色偷偷 | 2024国产精品自产拍在线观看 | 亚洲欧美一区二区不卡国产 | 国产午夜模特福利电影在线播放 | 91视频天堂 | 国内偷拍2019在线偷拍视频 | 国产精品1卡二卡三卡四卡乱码 | 亚洲精品久久麻豆蜜桃 | 91精选日韩综合永久入口 | a级毛片一区二区免费视频 a级毛片影院不卡午夜一区成人 | 国产精品乱子伦一区二区 | 成人精品一区二区三区电影黑人 | 亚州欧美中文字幕精品综合 | 精品人妻无码中字系列 | 成人片在线观看视频 | 无码人妻 | 国产精品一区2区三区内射 国产精品一区AV在线播放 | 亚欧精品一区二区三区四区 | 国产成人无码a区在线观看免 | 老熟妇高潮一区二区三区 | 亚洲欧美一级久久精品 | 99久久精品国产一区二区蜜芽 | 国产成a人亚洲精v品在线观看 | 岛国三级视频 | 久久久噜噜噜久久免费 | 空姐内射出白浆10p 抠逼喷水 | 在线播放一区二区精品产 | 2024女人天堂在线观看 | 熟女人妻水多爽中文字幕 | 国产女同久久精品国产99 | 99热这里只有精品中文 |