用VB编写一个小程序

Dim a, b

Private Sub Command1_Click()

End

End Sub

Private Sub Form_Load()

Text.Text = "Visual Basic程序设计"

Command1.Caption = "结束"

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

a = Form1.Width - Command1.Left

b = Form1.Height - Command1.Top

End Sub

Private Sub Form_Resize()

Text.Left = 0: Text.Top = 0: Text.Width = 0.5 * Form1.Width

Text.Height = 0.5 * Form1.Height

Command1.Left = Form1.Width - a

Command1.Top = Form1.Height - b

End Sub

注意，各变量名，控件名保持一致,你题目中的文本框名称为text

将其中一部分代码做成一个小过程，在主过程中调用。过程就是无返回值的函数，声明函数会吧？

如果是觉得编译出来的程序太大的话，可以将一部分代码做出dll，或者自定义控件OCX。也可以用UPX等加壳软件压缩程序

代码改为：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下调试通过。

---