古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net (835ﾚｽ)
古代VBプログラマ質問スレ（Ver.6.0 まで） part65 [転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1440930335/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
377: デフォルトの名無しさん [] 2018/02/26(月) 06:40:53.98 ID:eCGyw0Qs Private Sub Form_Load() Text1 = "106.456" Command1.Caption = "▲" End Sub となっています １ドルなん円という数字が入っていて 小数２位以下はいらないので▲ボタンを押すごとに 106.456→106.500→106.600→106.700・・・ となるように Private Sub Command1_Click() Dim v& v& = Int(Val(Text1) * 10) + 1 Text1 = Format(v& / 10, "0.000") End Sub ２行のプログラムをつくりましたが、あら不思議、これは動きません Ｉｎｔが悪さをしている、Ｉｎｔはいらないと分かったのですが なぜＩｎｔが悪さをするのでしょうか http://mevius.5ch.net/test/read.cgi/tech/1440930335/377
379: デフォルトの名無しさん [] 2018/02/26(月) 11:36:26.78 ID:eCGyw0Qs 整数型に変換してるんですけど ＩＮＴの外にある「＋１」が無効になる感じです http://mevius.5ch.net/test/read.cgi/tech/1440930335/379
382: デフォルトの名無しさん [] 2018/02/26(月) 19:01:29.09 ID:eCGyw0Qs お二方のは、最初の１回だけ動いて、 以降は動かなくなりましたよ しかしCsngやValだと 106.456→106.500→106.600→106.700・・・ としたいところ 106.456→106.600→106.700・・・ になってしまうけど、まぁ動きました お手間をとらせました、有難うございました http://mevius.5ch.net/test/read.cgi/tech/1440930335/382
384: デフォルトの名無しさん [] 2018/02/26(月) 20:28:52.46 ID:eCGyw0Qs ああ分かったよ 実数の扱いの深い部分だね Debug.Printで見ても表示されないから分からなかったわけだ http://mevius.5ch.net/test/read.cgi/tech/1440930335/384
385: デフォルトの名無しさん [] 2018/02/26(月) 20:48:01.22 ID:eCGyw0Qs これだ ? Csng("125.600") * 10 1256 ? Csng("125.600") * 10 + 0! 1256 ? Csng("125.600") * 10 + 0.0 1255.99998474121 http://mevius.5ch.net/test/read.cgi/tech/1440930335/385
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.035s