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其他的可以类比
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是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即
程序集
。
1，窗体上使用容器控件比如：Panel，在容器控件里添加文本框，用来显示滚动的号码。
2，添加一个Timer控件，用来不断改变上述文本框的Top属性，实现不断向上滚动的动态效果。
3，使用系统的随机函数，生成所想要的适当位数的随机数，单击按钮，停止滚动，显示随机数。
4，用数组保存产生的随机数，再次停止，与已经产生的保存在数组里的随机进行比较，如果重复，就重新生成随机数，直到不重复。
vb.net程序出错后再重启程序，目前我能实现的最好的方法就是
先用shell命令 “生一个儿子”，然后“自己死掉”。
第一句
Shell(Application.StartupPath "\我的程序.exe", vbNormalFocus)
第二句
End
完工！！！
重庆分公司
重庆分公司
