(單選,填字母)。 (2)實現(xiàn)上述功能的VB程序如下,請在畫線處填入合適的代碼。 Private Sub Commandl_Click ( ?。?br />Dim a As Long,h As Long,t As Long,v As Long,ch As Long Dim s As String,x As String,y As String s=″″:t=0:v=0 h=65536+Asc(Text1.Text)'將漢字的十進(jìn)制內(nèi)碼賦值給h Do While h<>0 a=h Mod 2 h=h\2 s=CStr(a)+s Loop x=
Mid(s,1,8)或Mid(s,1,Len(s)-8)
Mid(s,1,8)或Mid(s,1,Len(s)-8)
y=Mid(s,Len(s)-7,8) For i=Len(x) To 1Step-1 ch=Va10Mid(x,i,1))
t=t+ch*2^(Len(x)-i)或t=t+ch*2^(8-i)
t=t+ch*2^(Len(x)-i)或t=t+ch*2^(8-i)
Next i Labe12.Caption=“該漢字的區(qū)位碼為:″+Str(t-160)+″位碼為:″+Str(v-160) End Sub (3)若經(jīng)過Do While循環(huán)后,s的值為“1010101111001100”,則畫框處循環(huán)內(nèi)的語句執(zhí)行了
1.大部分社交軟件都有好友推薦的功能,當(dāng)用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時,由系統(tǒng)向用戶 A 推薦用戶 B。 編寫 VB 程序,實現(xiàn)好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標(biāo)用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關(guān)系,在標(biāo)簽 Label5 中顯示向目標(biāo)用戶推薦的好友列表。程序運行界面如圖: (1)根據(jù)如圖所示數(shù)據(jù),若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: