1樓：數學與計算機程式設計
private sub command1_click()me.cls
dim n as integer, i as integern = inputbox("n=", , 9)for i = 1 to 2 * n - 1if i <= n then
print space(n - i) + string(2 * i - 1, cstr(i))
else
print space(n - (2 * n - i)) + string(2 * (2 * n - i) - 1, cstr(2 * n - i))
end if
next i
end sub
如何使用vb編寫乙個簡單的小程式？
2樓：織布大王盧夫人
在桌面上，滑鼠左鍵雙擊程式，在開啟的vb6主介面上，左邊是工具選單欄，單擊標籤按鈕，在form1視窗上，繪製出一label1，然後在其屬性視窗上改個名字，如caption為第一數，如下圖所示。
接著，用同樣的方法，在form1視窗上繪製出第二數，並且在左邊工具選單欄，單擊文字框按鈕，並繪製出來。在文字框屬性欄的text屬性上，將其text1刪除，也就是清空資料，如下圖所示。
然後，反覆用第一步驟和第二步驟做成如圖所示的介面來，學習需要反覆練習，在練習中不斷進步。這裡是做簡單的加法程式，如下圖所示。
接著，加法程式的介面做好後，還不能執行加法運算，必須還要在form1視窗上繪製出乙個命令按鈕來，在左邊工具選單欄，單擊命令按鈕，並繪製出來。然後給其屬性視窗下caption改名為計算，如下圖所示。
然後，程式看起來是做好了，單擊如圖所示的執行按鈕，彈出自己做出的form1視窗，輸入數字3和6，然後單擊計算。可是結果並沒有出現，如下圖所示。
最後，前面5個步驟只是做了程式的介面，想要程式出結果，那必須加些**了，既然是簡單程式，只加一行**就可以了。雙擊命令按鈕，在**視窗中輸入如下：text3.
text = val(text1.text) + val(text2.text)後，再單擊執行，輸入數字，單擊計算，此時就出現結果了，如下圖所示。
如何使用vb編寫乙個簡單的小程式
3樓：匿名使用者
開啟vb，選擇新建工程，標準exe，點選執行啟動，就看見乙個窗體。
這就是最簡單的vb程式。
然後點選執行結束，檢視，**視窗，貼上如下**：
private sub form_load()msgbox ("你好！")
end sub
點選執行啟動，就看到乙個新的效果
祝你成功！
4樓：
dim sec, min, h
private sub command1_click()timer1.enabled = trueh = text1.text
min = text2.text
sec = text3.text
timer2.enabled = falseend sub
private sub command2_click()endend sub
interval = 1000timer2.enabled = truetimer2.interval = 1000text1.
text = 2
text2.text = "00"
text3.text = "00"
command2.caption = "退出"
command1.caption = "開始倒計時"
end sub
private sub timer1_timer()if sec > 0 then
sec = sec - 1
else:
if (min > 0 or h > 0) thensec = 59
end if
if min > 0 then
min = min - 1
else:
if h > 0 then
min = 59
end if
if h > 0 then
h = h - 1
else: timer1.enabled = falsecreateobject("sapi.spvoice").speak "game over!"
form1.backcolor = &hffend if
end if
end if
text1.text = h
text2.text = min
text3.text = sec
label6.caption = now
end sub
private sub timer2_timer()label6.caption = now
end sub
5樓：匿名使用者
開啟vb，編寫，生成
vb6.0 製作乙個簡單小程式
6樓：雲中凌
點選檔案，生成你的工程名字.exe就行了
用VB寫小程式，用VB寫乙個小程式
private sub form load form1.visible falsedim cpuset dim cpu set cpuset getobject winmgmts instancesof win32 processor for each cpu in cpuseta cpu.proc...
用VB寫小程式可以代替鍵盤輸入，用VB寫乙個小程式可以代替鍵盤輸入
真長啊 private sub command3 click dim i as long 單擊後等同於如下效果 1 按鍵盤的 alt tab 是先按alt然後不鬆開alt按tab 目的就是為了切換 sendkeys 2 按鍵盤的 tab 4下 for i 1 to 4 sendkeys next i...
怎樣用VB做最簡單的時鐘，怎樣用VB做乙個最簡單的時鐘？
在窗體上畫乙個label和乙個計時器，寫下如下 即可。private sub form load timer1.interval 2000timer1.enabled truelabel1.caption timeend sub private sub timer1 timer label1.cap...
怎麼用VB打九九乘法表，用VB程式怎麼做九九乘法表？
三角形的九九乘法表 private sub form load dim i,j,s for i 1 to 9 for j 1 to i s s j i iif len i j 2,i j i j next s s vbcrlf next msgbox s end sub private sub 確定...
用vb編寫一段分段函式的程式，用vb編寫一段計算分段函式
建text1,text2,command1.如下。private sub command1 click dim x as single,y as singlex csng text1.text select case x case is 2 y 3 x 1 1 xcase is 1 y sin x ...