中科新闻网星之卡比手机版免费:刚才那个我做54的题我做出来了？？
来源：百度文库 编辑：中科新闻网 时间：2024/05/06 12:25:21
Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 10 To 54
j = i Mod 10
k = (i - j) / 10
If j + k = 9 Then Print i
Next i
End Sub
快来发表点意见
393734349，我鄙视你！
就不给你最佳答案！
给别人
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 10 To 54
j = i Mod 10
k = (i - j) / 10
If j + k = 9 Then Print i
Next i
End Sub
快来发表点意见
393734349，我鄙视你！
就不给你最佳答案！
给别人
有更简单的
因为 之和为9。所以该数能被9整除。
Private Sub Command1_Click()
Dim i as integer
For i = 10 To 54
If i mod 9 = 0 Then Print i
Next i
End Sub
或者更简单的
Private Sub Command1_Click()
Dim i as integer
i= 18
while i<=54
print i
i=i+9
wend
End Sub
哦，VB啊，我以为是数学