爱问知识人 爱问教育 医院库

用程序写出1~999间能被3整除切含有5的所有数?

首页

用程序写出1~999间能被3整除切含有5的所有数?

用程序写出1~999间能被3整除切含有5的所有数?

提交回答
好评回答
  • 2010-04-23 08:30:08
    Sub Num()
        Dim i%, str$
        For i = 1 To 999
            If InStr(CStr(i), "5") And i Mod 3 = 0 Then str = str & " " & i
        Next
        MsgBox Trim(str)
    End Sub
    

    一***

    2010-04-23 08:30:08

其他答案

    2010-04-23 16:50:52
  • Sub Num() 
    Dim i%, str$ 
    For i = 1 To 999 
    If InStr(CStr(i), "5") And i Mod 3 = 0 Then str = str & " " & i 
    Next 
    MsgBox Trim(str) 
    End Sub 
    

    沙***

    2010-04-23 16:50:52

类似问题

换一换

相关推荐

正在加载...
最新资料 推荐信息 热门专题 热点推荐
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200

热点检索

  • 1-20
  • 21-40
  • 41-60
  • 61-80
  • 81-100
  • 101-120
  • 121-140
  • 141-160
  • 161-180
  • 181-200
返回
顶部
帮助 意见
反馈

确定举报此问题

举报原因(必选):