Dim t(0 To 9) As Integer
n = Val(Text1.Text)
For i = 10 To 30
a = i Mod 10
b = i \ 10
If a = n Or b = n Then t(n) = t(n) + 1
Next i
Label1.Caption = Str(t(n))
數(shù)組t中各個元素初值均為0,在文本框Text1中分別輸入2時,執(zhí)行該程序后,Label1中顯示的內(nèi)容為( )
微信掃碼預(yù)覽、分享更方便
2006-2025 深圳市思高達(dá)科技有限公司 粵ICP備14099982號 粵公網(wǎng)安備 44030702004423號