用vb编写一个小程序

楼主您好！

代码如下：

Option Explicit

Private Sub Command1_Click()

    Dim n(7) As Double

    Dim k(3) As Double

    k(3) = 1

    Dim j As Integer

    For j = 1 To 7

        n(j) = Val(Controls("Text" & CStr(j))Text)

    Next j

    For j = 1 To 7

        k(1) = k(1) + n(j)

        k(2) = k(2) - n(j)

        k(3) = k(3)  n(j)

    Next j

    MeText8Text = "7个数的和为：" & k(1) & vbCrLf & _

                    "7个数的差为：" & k(2) & vbCrLf & _

                    "7个数的乘积为：" & k(3)

End Sub

Private Sub Command2_Click()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

Private Sub Form_Load()

    Dim i As Integer

    For i = 1 To 8

        Controls("Text" & CStr(i))Text = ""

    Next i

End Sub

商场搞活动想要制作一个抽奖程序，今天我们就来看看使用vb60制作抽奖小程序的教程。

1、首先启动vb60，执行 文件-新建命令 ，d出新建工程对话框，在该对话框中选择 标准的exe 后点击打开按钮， 进入vb程序主界面。

2、在主界面中，按住鼠标左键按住窗体周围的任意一个小正方形进行拖拽， 调节窗体的大小 ，直至自己满意为止。

3、选择窗体，在其右边的属性中找到 boderstyle属性 ，设置 属性值为none， 接着再找到 startupposition属性 ，修改属性值为2-屏幕中心，再次修改 backcolor属性 值为淡**。

4、在工具箱里选择frame1，然后在窗体上进行拖拽，大小比窗体小一些，并调整其位置，使其居中，在属性窗口找到 backcolor属性 修改其属性值为粉红色，这样设置看起来就有层次感了。

5、在工具箱里双击标签控件两次，在frame1中显示两个标签控件， 修改lable1的caption属性名称为“幸运抽奖”， 修改label2的caption属性为“0”，同时修改这两个标签控件的backcolor属性为粉色，和 frame 控件保持一致。

6、分别选择 label1和label2 ，修改其font属性，打开字体对话框选择字体为王羲之书法字体，字形为常规，字号为三号，点击确定按钮。

7、选择工具箱里按钮控件，连续双击四次，在frame1上显示四个按钮，调整他们在frame1上的位置，使排列整齐，并依次修改四个按钮的caption属性，属性值依次为“ 号码滚动”、“号码停止”、“号码重置”、“退出程序”。

8、接着选择工具箱里计时器控件并双击，在frame1上显现出来该控件，该控件的作用很大，起到计时作用，同时需要注意的是在程序运行时控件是不显示出来的。

9、双击号码滚动控件，进入代码编辑区域，对象选择 command1， 过程选择click事件，在其输入代码为

Timer1Enabled = True

主要作用是触发器开始工作。

10、双击号码停止按钮，输入代码为 Timer1Enabled = False ，起到的作用是触发器停止工作。

11、双击号码重置按钮输入代码 为Label1Caption = "0"， 起到的作用是每次号码滚动后都要重新置0让每次抽奖的起始都是一样的。并双击退出程序按钮输入代码为end。

12、代码timer1的代码区域，输入代码为

Randomize

Label1Caption = "幸运中奖的号码是：" & Int(Rnd 64 + 1)

主要功能是使用随机函数产生不同的随机数值

13、代码编程完成后就可以运行调试了，点击启动标志，进行编译，如果出现错误根据错误提示进行修改，并不断调试直至通过达到预期目的为止。提示出现要求对象说明控件名称有错误，修改过来，提示出现子程序未定义则说明函数不对，即系统不能认识的函数，进行修改。

14、调试无误后，你会看到号码在不停的滚动， 点击号码停止即可停止 ，点击号码重置就会出现号码为0，点击退出程序即可界面消失，这说明已经达到所预期的功能了。

15、执行文件-生成抽奖exe，这样经过编译就生成了可执行文件，这样就可以跨平台 *** 作了，不再依赖原始程序。接 着执行文件-保存命令， 把所有的源文件进行保存即可，以方便以后修改使用。

以上就是vb60中设计抽奖器的教程，希望大家喜欢，请继续关注我们。

'这是一个模拟星空的 vb 小程序，无数大小不同的彩色星星不停移动和闪烁

'在窗体添加控件：Label1，Timer1

'在属性窗口设置 Label1 的 Index 属性为 0

Private Sub Form_Load()

MeCaption = "星空闪烁": MeBackColor = vbBlack

Label1(0)AutoSize = True: Label1(0)Caption = "★": Label1(0)BackStyle = 0

Randomize

For I = 0 To 40

If I > 0 Then Load Label1(I): Label1(I)Visible = True

Label1(I)Move MeScaleWidth  Rnd, MeScaleHeight  Rnd

Label1(I)ForeColor = &HFFFFFF  Rnd

Label1(I)Tag = -3 + Rnd  7 & "|" & -3 + Rnd  7

Label1(I)FontSize = 5 + Rnd  9

Next

Label1(0)FontSize = 9

Timer1Enabled = True: Timer1Interval = 30

End Sub

Private Sub Timer1_Timer()

Dim I As Long, S As Long, T As Single, L As Single

Dim nTag As String, X As Single, y As Single, W As Single

W = Label1(0)Height  01

For I = 0 To Label1Count - 1

S = Label1(I)ForeColor + 160

If S > &HFFFFFF Then S = 0

Label1(I)ForeColor = S

nTag = Label1(I)Tag

S = InStr(nTag, "|")

X = Left(nTag, S - 1): y = Mid(nTag, S + 1)

L = Label1(I)Left + X  W: T = Label1(I)Top + y  W

If L > MeScaleWidth Then L = 0

If T > MeScaleHeight Then T = 0

If L < -Label1(I)Width Then L = MeScaleWidth

If T < -Label1(I)Height Then T = MeScaleHeight

Label1(I)Move L, T

Next

End Sub

文章来源：

>

类似的文章，雪花飘飘：

>

需要两个函数，一个因子和计算，一个因子和输出。程序窗体放置一个文本框，设置其MultiLine为True。源程序如下：

Option Explicit

Dim I As Long, J As Long, X As Long

Private Sub Form_Load()

MeShow

For I = 1 To 10000

DoEvents

X = Yzh(I)

If X <= 10000 And I < X Then

If Yzh(X) = I Then

Text1 = Text1 & "(" & I & "," & X & ")" & Chr(13) & Chr(10)

YzhOut (I)

YzhOut (X)

End If

End If

Next

Text1 = Text1 & "计算完成"

End Sub

Private Function Yzh(N As Long) As Long

Yzh = 0

For J = 1 To N / 2

If N Mod J = 0 Then Yzh = Yzh + J

Next

End Function

Private Function YzhOut(N As Long) As Long

Dim Yzh As Long

Text1 = Text1 & N & "=1"

Yzh = 1

For J = 2 To N / 2

If N Mod J = 0 Then

Text1 = Text1 & "+" & J

Yzh = Yzh + J

End If

Next

Text1 = Text1 & "=" & Yzh & Chr(13) & Chr(10)

End Function

程序计算结果，有5组亲密数对，程序输出是：

(220,284)

220=1+2+4+5+10+11+20+22+44+55+110=284

284=1+2+4+71+142=220

(1184,1210)

1184=1+2+4+8+16+32+37+74+148+296+592=1210

1210=1+2+5+10+11+22+55+110+121+242+605=1184

(2620,2924)

2620=1+2+4+5+10+20+131+262+524+655+1310=2924

2924=1+2+4+17+34+43+68+86+172+731+1462=2620

(5020,5564)

5020=1+2+4+5+10+20+251+502+1004+1255+2510=5564

5564=1+2+4+13+26+52+107+214+428+1391+2782=5020

(6232,6368)

6232=1+2+4+8+19+38+41+76+82+152+164+328+779+1558+3116=6368

6368=1+2+4+8+16+32+199+398+796+1592+3184=6232

计算完成

楼上的代码应该改成这样更人性化：

a=InputBox("请输入加数1","0")

b=InputBox("请输入加数2","0")

Text1Text=val(a)+val(b)

哈哈

以上就是关于用vb编写一个小程序全部的内容，包括:用vb编写一个小程序、vb6.0怎么制作一个抽奖小程序 vb6.0抽奖器的制作方法、VB 中 n个五角星 并随机闪烁 的代码是什么等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！