【文章內(nèi)容簡介】
五位數(shù)進(jìn)行判斷。 分別用aa2表示這2位求知數(shù)字,在它們各自的范圍中變化,然后組成5位數(shù)d,判斷d能否同時(shí)被78和67整除即可得到結(jié)果。 (3)編寫程序如下:Private Sub Command8_Click()Dim d As LongDim a1,a2 As Integer For a1 = 0 To 9 For a2 = 0 To 9 d = 67000 + a1 * 100 + a2 * 10 + 8 If (d Mod 78 = 0) And (d Mod 67 = 0) Then Print d Next a2 Next a1End Sub (4)調(diào)試程序程序運(yùn)行后單擊窗體可得結(jié)果:67938復(fù)核知這個(gè)結(jié)果是符合題意了。練習(xí): 有一張