C语言

【C语言】 c语言初学者...

2020-06-03 10:54发布

站内问答 / Java
845 1 2

求整数[2335,4321]之间即不能被3整除，又不能被5整除的奇数的个数。(530) Private Sub Command1_Click()Dim i As Integer, n As Integ...

求整数[2335,4321]之间即不能被3整除，又不能被5整除的奇数的个数。(530) 
Private Sub Command1_Click()
Dim i As Integer, n As Integer
n = 0
For i = 2335 To 4321 Step 2
If Then
n = n + 1
End If
Next i
Print n
End Sub

设某四位数的各位数字的平方和等于100，共有多少个这种四位数？(49) 
Private Sub Form_Click()
Dim a, b, c, d, i, count As Integer
count = 0
i = 1111
FontSize = 14: FontBold = True
Print: Print: Print
Do Until i > 9999
a = i \ 1000
b = (i Mod 1000) \ 100
c =

d = i Mod 10
If 100 = a ^ 2 + b ^ 2 + c ^ 2 + d ^ 2 Then count = count + 1
i = i + 1
Loop
Print count
End Sub