當前位置：首頁 » APP程序 » 簡單vb小程序

簡單vb小程序

發布時間: 2021-03-30 18:18:37

㈠ vb簡單的小程序

Private Sub Command1_Click()
Dim 金額 As Single
Dim 里程 As Single
Dim 單價 As Single
Me.Cls
金額 = 0
Do'以下5行同樣方式用於輸入重量
里程 = Val(InputBox("請輸入運輸里程（km)"))
If 里程 > 0 Then Exit Do
MsgBox "里程數必須是正的！", vbExclamation
Loop
Select Case 里程
Case Is >= 1000
單價 = 15
Case 400 To 1000
單價 = 20
Case 300 To 400
單價 = 22.5
Case 200 To 300
單價 = 25
Case 100 To 200
單價 = 28
Case Else
單價 = 32
End Select
金額 = 單價 * 里程
Print "里程："; 里程
Print "單價："; 單價
Print "噸價："; 金額; "元/噸"'總費用同樣計算
End Sub

Private Sub Form_Load()
Command1.Caption = "開始"
End Sub

㈡求10個VB簡單小程序

第一個
text1="哎，現在的人啊..."
第二個
label1.cpation="能學到什麼呢？"
第三個
me.caption="作業還要別人做....."
第四個內
print "這個樣子不是在欺容騙自己么"
第五個
msgbox "學不到東西的，這樣...."
第六個
do
print "沒前途"
loop
第七個
for a = 1 to 9999....99
print "哎~~ "
next a
第八個
if 現在學習=true then 還有得救
第九個
unload me
第十個
end
----------------全寫在按鈕事件中....夠簡單了把.....(-_-)|||

㈢ vb做一個簡單的小程序

Option Explicit

Private Sub Form_Load()
ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"
ShockwaveFlash1.Menu = False
ShockwaveFlash1.Playing = True
End Sub

Private Sub Timer1_Timer()
End
End Sub

建一個無邊框來窗體,復制上面代源碼進去就OK了

工程文件給你發過去了後發的是修改過的免去了需要修改路徑的麻煩

㈣簡單的vb小程序

Private Sub Command1_Click()
Static n As Integer
n = n + 1
a = Text1.Text
b = Text2.Text
If a = "wanglili" And b = "12345" And n <= 3 Then
MsgBox "歡迎您進入本系統！"
n = 0
Else
If n < 3 Then
MsgBox "對不起您不能進入！請重新輸入認證信息！內"
Else
MsgBox "對不起，容您不能進入本系統！"
End If
End If
End Sub

Private Sub Command2_Click()
End
End Sub

㈤用VB做一個簡單的小程序

PrivateSubCommand1_Click()
Me.Cls
DimNAsInteger,iAsInteger
N=InputBox("n=",,9)
Fori=1To2*N-1
Ifi<=NThen
PrintSpace(N-i)+String(2*i-1,CStr(i))
Else
PrintSpace(N-(2*N-i))+String(2*(2*N-i)-1,CStr(2*N-i))
EndIf
Nexti
EndSub

㈥簡單的VB小程序

在窗體添加一個標簽，一個計時器控制項,
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
Label1.Caption = "字體隨機變色"
End Sub

Private Sub Timer1_Timer()

Label1.ForeColor = RGB(Rnd * 256, Rnd * 256, Rnd * 256)
End Sub

㈦小分求超簡單的VB小程序！！！！！

框就文本框就可以了。

（Text1，Text2，Text3）

假如公式為：a + b = c

'按鈕內容
Text3.Text = Str$(Val(Text1.Text) + Val(Text2.Text))
'a = Text1 , b = Text2 , c = Text3

難的公式我就不會了！減可以把！

㈧ vb有趣小程序

Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
Me.Width = 4500: Me.Height = 4500
Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
Me.AutoRedraw = True
Me.Caption = "CBM666的萬花筒"
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
r = 340 * Rnd
If r <> 0 Then
r1 = 500
s = r * Rnd
b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
For t = 1 To 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
Me.PSet (xb, yb), b
Next t
End If
End Sub

㈨ vb6.0 製作一個簡單小程序

按功能鍵盤上的F5 運行就可以！如果有錯誤，VB會出現新窗口，用漢字寫出如何錯內誤。在新窗口容內點擊調試，在代碼窗口中出錯的代碼為黃色背景。最後保存程序，單擊「文件」菜單——選擇「保存工程」。需要保存兩個窗體，首先是.frm的應用程序窗體，然後是.vbp的工程文件。

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

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

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

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

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

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

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

閱讀全文

簡單vb小程序

與簡單vb小程序相關的閱讀推薦