Dim a As Single
Dim b As Single
a = Val(Text1.Text)
If a <= 2 Then
b = 1.5 * a
Else
b = 1.5 * a * 0.8
End If
Label4 = b
Dim b As Single
a = Val(Text1.Text)
If a <= 2 Then
b = 1.5 * a
Else
b = 1.5 * a * 0.8
End If
Label4 = b
亦安乐的素锦年华吧 关注：7贴子：267
- 0回复贴，共1页
扫二维码下载贴吧客户端
下载贴吧APP
看高清直播、视频！
看高清直播、视频！
贴吧热议榜
- 1对美国的关税制度我们采取无视2195880
- 2有关聋哑外卖员的争论仍未停止1637485
- 3AWM到底该怎么简称？1235808
- 4BLG战胜WE终结连败1217079
- 5外网为啥总炒作拿下三峡大坝882024
- 6谭晶因档期缺席崩铁演唱会773525
- 7黄河地狱梗让人不中嘞723072
- 8网易云极端发言的元凶找到了667345
- 9盘点动漫史上最悲剧绝望瞬间584496
- 102025金球奖姆巴佩是最大输家463470
