用VB.NET程序编写代码

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

1. using System

2. using System.Collections.Generic

3. using System.Linq

4. using System.Web

5. using System.Web.UI

6. using System.Web.UI.WebControls

7.

8. public partial class _Default : System.Web.UI.Page

9. {

10. static float right, err

11. protected void Page_Load(object sender, EventArgs e)

12. {

13. this.Title = "简单加法练习程序"

14. txtAns . Focus()

15. Random r = new Random()//通过常用类random实例化一个对象r

16. if (!IsPostBack) //如果Page是第一次运行，执行如下代码

17. {

18. lblNum1.Text = r.Next(100).ToString()

19. lblNum2.Text = r.Next(100).ToString()

20.

21. }

22.

23. }

24.

25. protected void btnOK_Click(object sender, EventArgs e)

26. {

27. if (txtAns.Text == "")

28.

29. {

30. lblTip.Text = "请输入答案！"

31. return//返回，跳过后面所有代码

32. }

33.

34. if (int.Parse(txtAns.Text) == int.Parse(lblNum1.Text) + int.Parse(lblNum2.Text))

35. {

36.lblContent.Text =lblContent.Text+ lblNum1.Text + "+" + lblNum2.Text + "=" + txtAns.Text + "√<br/>"

37. right++

38. }

39.

40. else

41. {

42. lblContent.Text = lblContent.Text+lblNum1.Text + "+" + lblNum2.Text + "=" + txtAns.Text + "×<br/>"

43. err++

44. }

45. txtAns.Text = ""

46. Random r = new Random()

47. lblNum1.Text = r.Next(100).ToString()

48. lblNum2.Text = r.Next(100).ToString()

49.

50. }

51.

52.

53. protected void btnEnd_Click(object sender, EventArgs e)

54. {

55. float total=right+err

56. float result=right/total*100

57. lblTip.Text = "共完成"+total.ToString()+"题，正确："+right.ToString()+"，错误："+err.ToString()+"，得分："+result.ToString("f1")

58. }

59. }

String nowDate=DateTime.Now.ToString()

最后显示的结果就是 2008-4-16 16：20：21

当然DateTime.Now.(后面还有很多属性，可以得到你想要的格式)

自己可以点出来看一下

---