小数点を１つだけ出すには？ (ID:79184)

名前

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

本文 > If InStr(text1.text,",") Then 揚げ足を取るようで悪いですが、この部分は一応評価されます。 0の時False、0以外の時はTrueです。 てゆーか、ここでカンマを指定しているのが問題でしょう。 ケアレスミスですね（＾＾； Private Sub Command1_Click() If InStr(Text1.Text, ".") Then Exit Sub Else Text1.Text = Text1.Text + "." End If End Sub