作业帮 > 综合 > 作业

VB程序设计 如果购物金额超出1万元,那么超出1万元的部分打九折,并将实际金额显示在屏幕上

来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/02 19:54:46
VB程序设计 如果购物金额超出1万元,那么超出1万元的部分打九折,并将实际金额显示在屏幕上
Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
Dim money As Double
money = TextBox1.Text
If money > 10000 Then money = 10000 + (money - 10000) * 0.9
TextBox2.Text = money
End Sub
End Class我是这么写的,但是这一行money = TextBox1.Text显示有错误,到底怎么改呢?
money = val(TextBox1.Text)
再问： 非常感谢，但是在调试过程中输入一个数它显示不出来是怎么回事呢？

购物金额 （textbox1运行后这里是空的填上数后实际金额也没有变化） 实际金额（显示的是0）
VB程序设计 如果购物金额超出1万元,那么超出1万元的部分打九折,并将实际金额显示在屏幕上 如何将excel表中金额元转换为万元?12345元四舍五入显示1万元!不要公式的那种,不要除以一万的方法.谢谢 商场优惠：购物超过200元但不超过500元的,按标价给九折优惠；超过500元的,其中500元九折,超出部分则... 一次性购物50元以内,按九折优惠,超出500元,其中500元部分按九折优惠,超过的部分按八折优惠,现买一台价值 某书定价8元,如购买10本以上,超出10本部分打8折,试写出购书量与付款金额的关系 超市打折,规定购物400元（含400元）打九折,超过部分打八折.李阿姨去超市购物,实际付款450元,如果没有 超市打折：超市搞优惠活动：购物金额满500元,打八折,满300元打九折,300元以下不打折. .某企业2012年12月31日存货的成本为200万元,可变现净值为160万元,存货跌价准备金额为20万元.2013年1月 用vb编程：在考某商场年前促销,所有商品9.8折,此外购物金额满100元的9.5折,满300元的9折, 某企业在1996年初贷款M万元，年利率为m，从该年末开始，每年偿还的金额都是a万元，并恰好在10年间还清，则a的值等于（ 春辉百货公司四个商店去年的收入情况如下：一商店 收入金额/万元 200 二商店 收入金额/万元600 三商店 收 一道利率的数学计算题某企业在2000年初贷款M万元,年利率为m（按复利计算）,从该年末开始,每年偿还的金额都是a万元,并