大学考试VB
实现这些要求的代码如下:
私有子命令1_Click()
price = Val(Text1。正文)
如果价格& gt= 200且价格& lt500那么价格=价格* 0.97
如果价格& gt= 500且价格& lt1000那么价格=价格* 0.95
如果价格& gt= 1000且价格& lt2500那么价格=价格* 0.92
如果价格& gt= 2500且价格& lt5000那么价格=价格* 0.9
如果价格& gt= 5000那么价格=价格* 0.86
文本2。文本=价格
末端接头