VB 程式設計中怎麼統計從 100 到 10000 中既能被 7 整除又能被 3 整除的所有數字的個數?

時間 2021-06-08 02:59:28

1樓:鹹清

VB語法大概如此:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.

Click

Label1.Text = FunCount.ToString()End Sub

Public Function FunCount() As Integer

FunCount = 0

For i = 100 To 10000

If ((i Mod (3 * 7)) = 0) ThenFunCount = FunCount + 1End If

Next

End Function

2樓:李紹開

(10000/3 + 10000/7 - 10000/21 ) - (100/3 + 100/7 - 100/21) ,ps,vb不大會啊

建議學python:

print len([i for i in range(100, 10001) if (i % 3 == 0 or i % 7 == 0)]) 這個可能才是你想要的結果

從0到1難還是從99到100難?

柳葉兒 對於到底是 從0到1難還是從99到100難?姑且說說我對於它的理解吧,至於究竟哪個難,則是仁者見仁智者見智的事了。從0到1難還是從99到100難?那麼則要考察促成 從0到1 與 從99到100 的條件。從0到1 需要的是一種改變的勇氣,克服惰性的努力,然而這種 勇氣 與 努力 並非是無形的不...

考試中如果從1到100中選出乙個整數,老師將給寫出第二大整數的同學加分,你會寫下哪個數字?

么元 博弈也要考慮下你在和誰博弈,要認識博弈物件,你就不可能一舉獲得最大利益.所以我覺得這個題更像是心理學的題,重要的是你思考的過程,而不是你選的數字. 如果真的是數學題的話,應該會有更多條件 每個人都是理性人啊,如果有人重複怎麼辦啦 那麼聰明的人一定不會選100,因為100肯定不是第二大。他繼續想...

C 怎麼從1加到100

小春 include template constexpr int sum template constexpr int sum 0 return 0 int main int argc,const char argvstd cout sum 100 n return 0 叉會腰 瀟瀟雨歇 遞迴他不...