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

Private Sub Command1_Click()

Open "C:\Documents and Settings\Administrator\桌面\fafa中英文混合txt" For Input As #1

Do Until EOF(1)

Line Input #1, fafa

Text1 = Text1 & fafa & vbCrLf

Loop

Close #1

End Sub

Private Sub Command2_Click()

s = Len(Text1)

For i = 1 To s

'Text2 = Text2 & Asc(Mid(Text1, i, 1)) & " : "

If Asc(Mid(Text1, i, 1)) < 1 Then

Text2 = Text2 & Mid(Text1, i, 1)

Open "C:\Documents and Settings\Administrator\桌面\fafa中英文混合2txt" For Output As #1

Print #1, Text2

Close #1

End If

Next i

End Sub

以上就是关于VB编写小程序全部的内容，包括:VB编写小程序、设计一个VB小程序、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！