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 VB60下调试通过。

一、首先你要有一部电脑

二、电脑需要安装 *** 作系统

三、必须有一个VB编辑器软件，比如说VB40、VB50或者VB60

四、你必须会用电脑

五、还要会用已经安装的编译软件

六、学习该编译软件需要的必要知识，比如，语法规则、变量、常量，过程、函数以及属性、方法等各种术语及其用法。

七、尝试着做些小程序，掌握VB的运行机理

OK

Dim a As Single, b As Single, c As Single

Private Sub c1_Click()

S1Enabled = True

End Sub

Private Sub s1_Timer()

Randomize

upperbound = 10

lowerbound = 1

T1Text = Val(Int((upperbound - lowerbound + 1) Rnd + lowerbound))

a = Val(T1Text)

Randomize

upperbound = 10

lowerbound = 1

T2Text = Val(Int((upperbound - lowerbound + 1) Rnd + lowerbound))

b = Val(T2Text)

c = a + b

L4Caption = c

End Sub

Private Sub Command1_Click()

'存储文本

Open AppPath & "\ctext" For Append As #1

Print #1, Text1Text

Close #1

End Sub

Private Sub Combo1_Change()

If Combo1List(Combo1ListIndex) = "条件" Then

Text1Text = "内容"

End If

End Sub

Private Sub Combo1_LostFocus()

Combo1AddItem Combo1Text

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbBlack

End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = &H0&

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbGreen

End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1ForeColor = vbWhite

End Sub

Private Sub Timer1_Timer()

If Time = "07:00:00" Then MsgBox "cccc"

End Sub

我这边回不了你的问题,不能回答,也不能发文件

你发你发油箱,我从邮箱或者QQ发给你

快

以上就是关于VB编写小程序全部的内容，包括:VB编写小程序、如何编一个浪漫的VB程序、VB，我做了个趣味的小程序 加法错误。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！