vb中网购程序的代码

1. 用VB.NET程序编写代码

Delphi代码如下：

procereTForm1.Button1Click(Sender:TObject);

var

购物总价:Integer;

折扣:Extended;

begin

购物总价:=StrToInt(Edit1.Text);

if购物总价<250then

begin

折扣:=0;

end

elseif购物总价<500then

begin

折扣:=0.05;

end

elseif购物总价<1000then

begin

折扣:=0.075;

end

elseif购物总价<2000then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

elseif购物总价<3000then

begin

折扣:=0.05;

end

}

elseif购物总价>=3000then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+'原价：'+IntToStr(购物总价)

+'折后总价：'+FloatToStr(购物总价*(1-折扣)));

end;

2. 在VB中,做一个小程序,请告诉我代码

这一种是当你的鼠标想去点击按钮1时就会随机跑动，不让人可以点到。
Dim CMD1 As Boolean'设置一个全局布尔变量
Private Sub Command1_Click()
CMD1 = True
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If CMD1 = True Then
X = Rnd * (Form1.ScaleWidth - Command1.Width)
Y = Rnd * (Form1.ScaleHeight - Command1.Height)
Command1.Move X, Y
End If
End Sub

Private Sub Command2_Click()
CMD1 = False
End Sub

这一种是你点了按钮1后，这个接钮1就不停的去跑动让人很难点到。
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Command1.Top = Me.ScaleHeight * Rnd
Command1.Left = Me.ScaleWidth * Rnd
End Sub

这两种方法的区别在于点击按钮1后，
第一种是你的鼠标是永远都点不到按钮1。
第二种是你有可能会点中。