精品偷拍一区二区三区,亚洲精品永久 码,亚洲综合日韩精品欧美国产,亚洲国产日韩a在线亚洲

  • <center id="usuqs"></center>
  • 
    
  • 韓信點兵問題,士兵人數(shù)在100到200之間,3人排隊余1人,5人排隊余2人,7人排隊余5人,求總?cè)藬?shù)的vb設(shè)計

    韓信點兵問題,士兵人數(shù)在100到200之間,3人排隊余1人,5人排隊余2人,7人排隊余5人,求總?cè)藬?shù)的vb設(shè)計
    希望各位在2周內(nèi)能幫我做出來.
    其他人氣:412 ℃時間:2020-02-04 12:51:16
    優(yōu)質(zhì)解答
    看來你是新手啊,你在窗體上添加一個command 和一個text,其它什么也不用管了,然后輸入以下代碼就可以了.
    Dim 士兵人數(shù) As Integer
    Private Sub Command1_Click()
    For 士兵人數(shù) = 100 To 200
    If 士兵人數(shù) Mod 3 = 1 And 士兵人數(shù) Mod 5 = 2 And 士兵人數(shù) Mod 7 = 5 Then
    Text1.Text = "滿足條件的士兵數(shù)為:" & 士兵人數(shù)
    End If
    Next
    End Sub
    Private Sub Form_Load()
    Command1.Caption =
    Text1.Text = ""
    End Sub
    我來回答
    類似推薦
    請使用1024x768 IE6.0或更高版本瀏覽器瀏覽本站點,以保證最佳閱讀效果。本頁提供作業(yè)小助手,一起搜作業(yè)以及作業(yè)好幫手最新版!
    版權(quán)所有 CopyRight © 2012-2024 作業(yè)小助手 All Rights Reserved. 手機(jī)版