皮皮网

1.vbС?小程序源???Դ??
2.VB编写小程序
3.VB一个小程序
4.VB 6.0 教我编一个小程序
5.用VB写一个小程序.
6.用VB制作小程序

vbС????Դ??

       'vbs脚本

       Set a=CreateObject("WScript.Shell")

       Set oExec=a.Exec("C:\Program Files\Tencent\QQ\Bin\QQ.exe") '程序路径

       WScript.Sleep '延时3秒

       a.AppActivate "Q登录"

       a.SendKeys "+{ TAB}"

       a.SendKeys "Q号"

       WScript.Sleep

       a.SendKeys "{ TAB}"

       a.SendKeys "密码"

       WScript.Sleep

       a.SendKeys "{ ENTER}"

       set a=nothing

VB编写小程序

       ä»£ç æ”¹ä¸ºï¼šPrivate Sub Form_Click()Dim a, b, c, d As StringDim sum, aver As Longa = Val(InputBox("请输入第一个数"))

       b = InputBox("请输入第二个数")

       c = InputBox("请输入第三个数")

       d = InputBox("请输入第四个数")

       sum = a + b + c + d

       aver = sum / 4

       Print "所输入的4个数字分别是"; a, b, c, d

       Print "4个数字的和为"; sum

       Print "4个数字的平均值为"; averEnd Sub VB6.0下调试通过。

VB一个小程序

       Option Explicit

       Const pi = 3.

       Private len_S As Single, len_M As Single, len_H As Single

       Private Sub Form_Load()

        '先取各指针的长度

        len_S = Sqr((LineS.Y2 - LineS.Y1) ^ 2 + (LineS.X2 - LineS.X1) ^ 2) '秒针长度

        len_M = Sqr((LineM.Y2 - LineM.Y1) ^ 2 + (LineM.X2 - LineM.X1) ^ 2) '分针长度

        len_H = Sqr((LineH.Y2 - LineH.Y1) ^ 2 + (LineH.X2 - LineH.X1) ^ 2) '时针长度

        Call timer1_timer

       End Sub

       Private Sub timer1_timer() '定时器的定时事件过程

        Dim s As Single, m As Single, h As Single

        Form1.Caption = Time

        s = Second(Time)

        m = Minute(Time)

        h = Hour(Time) + m /

        '绘制秒针

        LineS.X2 = LineS.X1 + len_S * Sin(pi * s / )

        LineS.Y2 = LineS.Y1 - len_S * Cos(pi * s / )

        '绘制分针

        LineM.X2 = LineM.X1 + len_M * Sin(pi * m / )

        LineM.Y2 = LineM.Y1 - len_M * Cos(pi * m / )

        '绘制时针

        If h >= Then h = h -

        LineH.X2 = LineH.X1 + len_H * Sin(pi * h / 6)

        LineH.Y2 = LineH.Y1 - len_H * Cos(pi * h / 6)

       End Sub

VB 6.0 教我编一个小程序

       File--New--Standard.exe--点击左侧的Commandbutton控件

       然后再Form1中用鼠标画出一个按钮

       然后双击该按钮：写这段代码a = MsgBox("Hello,welcome to VB world!")

       然后保存，运行

       From1代码：

       Private Sub Command1_Click()

       End Sub

       Private Sub Button_Click()

       a = MsgBox("Hello,程序最早的tcpip源码welcome to VB world!")

       End Sub

       Private Sub Form_Load()

       End Sub

用VB写一个小程序.

       vb6代码如下，添加模块，工程--属性--启动对象选择sub main

       Sub main()

       Open "c:\temp\.txt" For Input As #1

       Clipboard.Clear

       Clipboard.SetText StrConv(InputB(LOF(1), 1), vbUnicode)

       End Sub

用VB制作小程序

       Option Explicit

       Private Sub Form_Load()

           Randomize

           Label1.Caption = Int((Rnd * ( -  + 1)) + )    '生成-之间的随机数

           Timer1.Interval =   '一秒一次

           Timer1.Enabled = True

       End Sub

       Private Sub Timer1_Timer()

           Static n As Integer

           n = n + 1

           If n =  Then      '一秒一次，累加到此即秒

               n = 0

               Randomize

               Label1.Caption = Int((Rnd * ( -  + 1)) + )

           End If

       End Sub

       æœ‰é—®é¢˜è¯·è¿½é—®ï¼Œæ»¡æ„è¯·é‡‡çº³ï¼ŒåŠ æ²¹ï¼