用VB.NET程序编写代码 10
（全部代码和设计界面的照片） 展开
Delphi代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
购物总价:Integer;
折扣:Extended;
begin
购物总价:=StrToInt(Edit1.Text);
if 购物总价<250 then
begin
折扣:=0;
end
else if 购物总价<500 then
begin
折扣:=0.05;
end
else if 购物总价<1000 then
begin
折扣:=0.075;
end
else if 购物总价<2000 then
begin
折扣:=0.1;
end
{
此段的折扣是多少？
else if 购物总价<3000 then
begin
折扣:=0.05;
end
}
else if 购物总价>=3000 then
begin
折扣:=0.15;
end;
ShowMessage('您享受的折扣是：'+FloatToStr(折扣)
+' 原价：'+IntToStr(购物总价)
+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));
end;
Dim SumMoney As Decimal = SMoney '定义一个10进制变量来保存购物价值多少
If SumMoney < 250 Then
Return SumMoney '少于250不打折，直接返回传入的值
ElseIf SumMoney >= 250 And SumMoney < 500 Then
Return SumMoney * 0.95 '购物满250元不足500元减价5%，返回传入的值乘以0.95 类推
ElseIf SumMoney >= 500 And SumMoney < 1000 Then
Return SumMoney * 0.925
ElseIf SumMoney >= 100 And SumMoney < 2000 Then
Return SumMoney * 0.9
ElseIf SumMoney >= 3000 Then
Return SumMoney * 0.85
Else
Return SumMoney
End If
End Function
Visuai Studio 2008软件
大哥，你才学吗？
VS2008是开发平台
VB是开发语言，
而在VS2008上每种语言有多种开发方式，以VB而言就分web程序开发、windows程序开发、Wpf开发等等。你要的这个东西很简单，但是你说要设计界面，那你到底是要哪类程序呢？
下面附带是的一段VB.net windows程序代码，不关你是web还是windows开发，基本都是一样的，以你这个要求为例子，区别就仅仅在于界面上。当然例子是很简单的界面程序也不是很严禁的，如果有兴趣可以一起探讨
