vb.net 我想制作一個很簡單的程序，希望大神幫我指導！

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click

成都創新互聯服務項目包括疏附網站建設、疏附網站制作、疏附網頁制作以及疏附網絡營銷策劃等。多年來，我們專注于互聯網行業，利用自身積累的技術優勢、行業經驗、深度合作伙伴關系等，向廣大中小型企業、政府機構等提供互聯網行業的解決方案，疏附網站推廣取得了明顯的社會效益與經濟效益。目前，我們服務的客戶以成都為中心已經輻射到疏附省份的部分城市，未來相信會繼續擴大服務區域并繼續獲得客戶的支持與信任！

TextBox1.Text = sender.Text

End Sub

僅供參考~

用VB.NET編寫以下程序。

using?System;

using?System.Windows.Forms;

namespace?WindowsFormsApplication1

{

public?partial?class?Form1?:?Form

{

Timer?tm?=?new?Timer();//實例化?timeer?

static?int?timeS?=?0;?//設置靜態變量記錄秒數

TimeSpan?ts?=?new?TimeSpan();?//實例化?TimeSpan?

public?Form1()

{

InitializeComponent();

}

private?void?button1_Click(object?sender,?EventArgs?e)

{

tm.Interval?=?1000;?//設置?timeer?1000毫秒執行一次

tm.Tick?+=?new?EventHandler(timeer_Tick);?//設置?timeer?運行事件

tm.Start();?//?啟用?timeer

}

private?void?timeer_Tick(object?sender,?EventArgs?e)

{

timeS?+=?1;?//秒數?+1?

ts?=?new?TimeSpan(0,?0,?timeS);?

label1.Text?=?ts.Hours?+?":"?+?ts.Minutes?+?":"?+?ts.Seconds;

}

private?void?button2_Click(object?sender,?EventArgs?e)

{

tm.Stop();

timeS?=?0;

}

}

}

VB.NET程序

dim a as double

dim b as double

if (string.IsNullOrEmpty(txt1.Text) or string.IsNullOrEmpty(txt2.Text)) begin

messagebox.show("請輸入數值");

return;

end

if double.TryParse(txt.Text, out a ) begin

else begin

Messagebox.show('文本框1包含非數字')

return;

end

if double.TryParse(txt2.Text, out b) begin

else

Messagebox.show('文本框2包含非數字')

return;

end

Label1.Text = 0.6*a + 0.4*b;