試卷征集
加入會(huì)員
操作視頻

編寫VB程序,功能如下:在文本框Text1中輸入10位以內(nèi)的二進(jìn)制數(shù)字,單擊“輸出”按鈕,在標(biāo)簽Label2中顯示加法等式:等號(hào)左邊的每個(gè)加數(shù)都是2的冪,如20,21,22,23……,等號(hào)右邊的和是該二進(jìn)制數(shù)轉(zhuǎn)變成十進(jìn)制數(shù)后的值。如在Text1中輸入“11001”,單擊“輸出”按鈕,在Label2上顯示“16+8+1=25”,運(yùn)行界面如圖a所示。
菁優(yōu)網(wǎng)
(1)如果在Text1中輸入“11100”(不包含引號(hào)),在Label2上顯示的加法等式是
16+8+4=28
16+8+4=28
。
(2)在設(shè)計(jì)程序界面時(shí),第18題圖b中所示的控件
4
4
(填數(shù)字)未在窗體中使用。
(3)請(qǐng)?jiān)跈M線處填入合適代碼。
PrivateSubCommand1_Click ( ?。?br />DimnAsLong,mAsInteger,sAsInteger,kAsInteger,tAsString
n=Val(Text1.Text)
k=1:s=0:t=″″
DoWhilen>0

Ifm=1Then
s=s+k
t=Str(k)+″+″+t
EndIf

n=n\10
Loop
Label2.Caption=Mid(t,1,Len(t)-1)+″=″+
EndSub

【答案】16+8+4=28;4
【解答】
【點(diǎn)評(píng)】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復(fù)制發(fā)布。
發(fā)布:2024/6/27 10:35:59組卷:0引用:1難度:0.5
相似題
  • 1.下列程序執(zhí)行后的結(jié)果為( ?。?br />菁優(yōu)網(wǎng)

    發(fā)布:2024/11/13 21:30:1組卷:6引用:3難度:0.6
  • 2.有如下程序段:
    For i=1 To Len(Text1.Text)
    c=Mid(Text1.Text,i,1)
    If c>=“0“And c<=“9“Then c=Chr(Asc(c)+1)
    If c>=“A“And c<=“Z“Then c=Chr(Asc(c)+32)
    s=s+c
    Next i
    若文本框Text1的內(nèi)容為“Number 2468!”執(zhí)行程序后,變量s的值為( ?。?/h2>

    發(fā)布:2024/11/11 11:30:2組卷:4引用:3難度:0.3
  • 3.有如下VB程序段:
    菁優(yōu)網(wǎng)
    執(zhí)行以上程序段后,Text1中顯示的值可能是( ?。?/h2>

    發(fā)布:2024/11/11 18:0:1組卷:0引用:1難度:0.5
小程序二維碼
把好題分享給你的好友吧~~
APP開發(fā)者:深圳市菁優(yōu)智慧教育股份有限公司 | 應(yīng)用名稱:菁優(yōu)網(wǎng) | 應(yīng)用版本:4.8.2  |  隱私協(xié)議      第三方SDK     用戶服務(wù)條款廣播電視節(jié)目制作經(jīng)營(yíng)許可證出版物經(jīng)營(yíng)許可證網(wǎng)站地圖本網(wǎng)部分資源來(lái)源于會(huì)員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請(qǐng)立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個(gè)工作日內(nèi)改正