所以我從 2017 年的視覺基礎書中做這件事，其中一張桌子最多可容納 8 位客人，一切正常，除非我的客人人數增加了 4 倍（8 倍除外）。1 位客人給了我 1 張桌子，但是當我放了 4 位客人時，它給了我 2 桌，并一直保持這種狀態，直到我放了 8 位客人。
If dblGuest Mod dblTable = 0 Then
dblTotal = dblGuest / dblTable
ElseIf dblGuest Mod dbltable <> 0 Then
dblTotal = dblGuest / 8 1
End If
uj5u.com熱心網友回復：
鑒于您正在使用Mod，我會假設您想要整數除法，而不是浮點除法。在這種情況下，使用\，它是整數除法運算子，而不是/。
就個人而言，我會這樣做：
Module Module1
Sub Main()
Const guestCountPerTable As Integer = 8
For guestCount = 0 To 40
Console.WriteLine($"{guestCount} guest(s) requires {GetTableCount(guestCount, guestCountPerTable)} table(s)")
Next
End Sub
Private Function GetTableCount(guestCount As Integer, guestCountPerTable As Integer) As Integer
Dim tableCount = guestCount \ guestCountPerTable
If guestCount Mod guestCountPerTable <> 0 Then
tableCount = 1
End If
Return tableCount
End Function
End Module
您還可以使用以下Math.DivRem方法：
Module Module1
Sub Main()
Const guestCountPerTable As Integer = 8
For guestCount = 0 To 40
Console.WriteLine($"{guestCount} guest(s) requires {GetTableCount(guestCount, guestCountPerTable)} table(s)")
Next
End Sub
Private Function GetTableCount(guestCount As Integer, guestCountPerTable As Integer) As Integer
Dim remainder As Integer
Dim tableCount = Math.DivRem(guestCount, guestCountPerTable, remainder)
If remainder <> 0 Then
tableCount = 1
End If
Return tableCount
End Function
End Module
轉載請註明出處，本文鏈接：https://www.uj5u.com/net/525271.html
標籤：VB.net
上一篇：“System.Windows.Forms.PlaceholderTextBox,Text:”使用myPHPAdmin在MySQL資料庫中插入資料時出錯