vb怎麼編程小程序

❶ 用VB製作小程序

OptionExplicit

PrivateSubForm_Load()
Randomize
Label1.Caption=Int((Rnd*(999999-100000+1))+100000)'生成100000-999999之間來的隨機數自
Timer1.Interval=1000'一秒一次
Timer1.Enabled=True

EndSub

PrivateSubTimer1_Timer()
StaticnAsInteger
n=n+1
Ifn=60Then'一秒一次，累加到60此即60秒
n=0
Randomize
Label1.Caption=Int((Rnd*(999999-100000+1))+100000)
EndIf
EndSub

有問題請追問，滿意請採納，加油！

❷ 如何使用VB編寫一個簡單的小程序

在桌面上，滑鼠左鍵雙擊程序，在打開的VB6主界面上，左邊是工具菜單欄，單擊標簽按鈕，在Form1窗口上，繪制出一Label1，然後在其屬性窗口上改個名字，如Caption為第一數，如下圖所示。

接著，用同樣的方法，在Form1窗口上繪制出第二數，並且在左邊工具菜單欄，單擊文本框按鈕，並繪制出來。在文本框屬性欄的Text屬性上，將其Text1刪除，也就是清空數據，如下圖所示。

然後，反復用第一步驟和第二步驟做成如圖所示的界面來，學習需要反復練習，在練習中不斷進步。這里是做簡單的加法程序，如下圖所示。

接著，加法程序的界面做好後，還不能執行加法運算，必須還要在Form1窗口上繪制出一個命令按鈕來，在左邊工具菜單欄，單擊命令按鈕，並繪制出來。然後給其屬性窗口下Caption改名為計算，如下圖所示。

然後，程序看起來是做好了，單擊如圖所示的運行按鈕，彈出自己做出的Form1窗口，輸入數字3和6，然後單擊計算。可是結果並沒有出現，如下圖所示。

最後，前面5個步驟只是做了程序的界面，想要程序出結果，那必須加些代碼了，既然是簡單程序，只加一行代碼就可以了。雙擊命令按鈕，在代碼窗口中輸入如下：Text3.Text = Val(Text1.Text) + Val(Text2.Text)後，再單擊運行，輸入數字，單擊計算，此時就出現結果了，如下圖所示。