编写一个VB.NET程序

Private Sub Form_Click()

成都创新互联公司长期为近千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为金东企业提供专业的网站设计、成都网站设计，金东网站改版等技术服务。拥有10多年丰富建站经验和众多成功案例,为您定制开发。

Text1.Text = 8 * 3 * 6 \ 2

Text2.Text = 7 2 Or 4 9

End Sub

Private Sub Form_Load()

Label1.Caption = "8*3*6\2"

Label2.Caption = "72or49"

Text1.Text = ""

Text2.Text = ""

End Sub

只举了1和7其他的可以类比

用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;

vb.net是什么

VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即

程序集

。

vb.net做一个程序，求教

1，窗体上使用容器控件比如：Panel，在容器控件里添加文本框，用来显示滚动的号码。

2，添加一个Timer控件，用来不断改变上述文本框的Top属性，实现不断向上滚动的动态效果。

3，使用系统的随机函数，生成所想要的适当位数的随机数，单击按钮，停止滚动，显示随机数。

4，用数组保存产生的随机数，再次停止，与已经产生的保存在数组里的随机进行比较，如果重复，就重新生成随机数，直到不重复。

vb.net当程序报错时,如何重启

vb.net程序出错后再重启程序，目前我能实现的最好的方法就是

先用shell命令 “生一个儿子”，然后“自己死掉”。

第一句

Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)

第二句

End

完工！！！