用VB编程求程序

Private Sub command2_click( )

num1=__val___(text2text)

num2=___val___(text3text)

chenje=_____num2________num1____

Texttext=___str$(chenje)__

End sub

没有仔细看你的，但是帮你精简了判断部分的代码

If a>=90 Then

      WriteLine("优秀")

   ElseIf a>=80 Then

      WriteLine("良好")

   ElseIf a>=70 Then

      WriteLine("中等")

   ElseIf a>=60 Then

      WriteLine("及格")

   Else

       WriteLine("不及格")

End If

代码如下：

Sub Form_Click()

a = InputBox(w输入第一个数"> a — Val(a)

b = InputBox(w输人第二个数") b = Val(b)

c = InputBox("输人第三个数 c = VaKc)

d = InputBox(w输人第四个数"） d = Val(d)

sum = a + b+ c + d aver = sum / 4

扩展资料：

另外一种方法：

Private Sub Form_Click()

Dim a As Single

For i = 1 To 4

a = InputBox("请输入一个数：", "数据输入")

Sum = Sum + a

n = n + 1

Avg = Sum / n

Next i

Print "和是：", Sum

Print "平均值是：", Avg

End Sub

以上就是关于用VB编程求程序全部的内容，包括:用VB编程求程序、简单的vb程序编写求解、vb 编写程序 输入3个数 求和和平均数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！