無聊

肚子好餓

Dim x, sum, cnt As Integer Do While (sum < T2.Text) sum += T1.Text cnt += 1

第三個

Dim x, sum, cnt As Integer Do While (sum < T2.Text) sum += T1.Text cnt += 1 Loop

x = sum - T1.Text Else x = sum End If L7.Text = T1.Text & "倍數中最接近" & T2.Text & "的值為=" & x

L6.Text = "車資為=" & cnt * 5

Dim sum, cnt As Integer Do While (sum < T3.Text * 1000) sum += 300 cnt += 1 Loop

第2個

L3.Text = T1.Text & "倍數中大於" & T2.Text & "的最小值為=" & sum L4.Text = "重覆+" & T1.Text & "次數為=" & cnt