ボーリングの点数計算プログラム (ID:118226)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 サービス過剰で誰かに叱られそう(^^; 他の事を書くよりコード書くほうが簡単なので つい書いてしまう。 Dim t As Integer Dim n As Integer t = Val(ComboBox1.Text) With ComboBox2 .Items.Clear() Select Case (t) Case 0 To 8 .Text = "-" .Items.Add("-") For n = 1 To (10 - t - 1) .Items.Add(CStr(n)) Next .Items.Add("/") Case 9 .Text = "-" .Items.Add("-") .Items.Add("/") Case Else .Text = "" End Select End With