vb编写简易计算器 如何使用VB编写一个简单的小程序?
如何使用VB编写一个简单的小程序?你好!代码如下:option explicitprivate sub command 1uclick()Dim n(7)as Double Dim k(3)as Do
如何使用VB编写一个简单的小程序?
你好!代码如下:
option explicitprivate sub command 1uclick()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”和amp 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我。文本8. text=“7个数字的和是:”&K(1)&vbcrlf& “七个数字的差是:”&K(2)&vbcrlf& “七个数字的乘积是:”&K(3)end subprivate sub command2uclick()Dim i作为i=1到8个控件的整数(”text“&CStr(i))。text=”“Next iEnd subprivate sub Formuload()对于i=1到8个控件(“Text”&;CStr(i)),将i设置为整数。Text=“”Next iEnd Sub