試卷征集
加入會員
操作視頻

某倉庫對貨物的編碼規(guī)則為:貨物類型(4-8位英文字母)貨物編碼(4-8位數(shù)字)貨物校驗碼。貨物編碼的每一位數(shù)除以2產(chǎn)生的余數(shù),倒序輸出即是貨物正確的校驗碼,現(xiàn)編寫如下VB程序,如圖在Text1中輸入貨物完整編碼后,判定校驗碼是否符合標準,并在Label1中輸出結(jié)果。
(1)由程序可知,此程序中按鈕的名稱為
check
check

(2)請在橫線處填入合適的代碼。
菁優(yōu)網(wǎng)  菁優(yōu)網(wǎng)
Private Sub check_Click
( ?。?/div>
(  )

Dim s as string,ss as string,s1 as string,s2 as string
Dim i as integer,bz as integer
s=jye.ai1.jye.ai
s=jye.ai1.jye.ai

bz=0
For i=1 To Len(s)
ss=Mid(s,i,1)
If ss=“-“Then
bz=bz+1
ElseIf bz=1 Then
s1=CStr
val(ss)mod2
val(ss)mod2
+s1
'Cstr函數(shù)是在str的基礎上去除前導空格
ElseIf bz=2 Then
s2=s2+ss
End If
Next i
If
s1=s2
s1=s2
 Then
Label1.Caption=“符合標準“
Else
Label1.Caption=“不符合標準“
End If
End Sub

【答案】check;(  );s=jye.ai1.jye.ai;val(ss)mod2;s1=s2
【解答】
【點評】
聲明:本試題解析著作權(quán)屬菁優(yōu)網(wǎng)所有,未經(jīng)書面同意,不得復制發(fā)布。
發(fā)布:2024/4/20 14:35:0組卷:0引用:1難度:0.4
相似題
  • 1.下列程序執(zhí)行后的結(jié)果為(  )
    菁優(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ōu)網(wǎng) | 應用版本:4.8.2  |  隱私協(xié)議      第三方SDK     用戶服務條款廣播電視節(jié)目制作經(jīng)營許可證出版物經(jīng)營許可證網(wǎng)站地圖本網(wǎng)部分資源來源于會員上傳,除本網(wǎng)組織的資源外,版權(quán)歸原作者所有,如有侵犯版權(quán),請立刻和本網(wǎng)聯(lián)系并提供證據(jù),本網(wǎng)將在三個工作日內(nèi)改正