Question

关于高中分支VB编程的题目，如图算法，求VB怎么编，谢啦

Answer 1

这个是求三个数中的最大值的流程。

按“流程图”，代码如下：

Private Sub Command1_Click()
   Dim a&, b&, c&
   Dim strIN As String
   Me.Cls
   strIN = InputBox("输入a, b, c的值，用西文逗号分隔：", "输入三个数据")
   '假设输入是符合规定格式的，这儿略去异常处理代码
   a = Val(strIN)
   c = InStr(strIN, ",") + 1
   b = Val(Mid$(strIN, c))
   c = Val(Mid$(strIN, InStr(c, strIN, ",") + 1))
   If (a > b) Then
      If (a > c) Then
         Print a
      Else
         Print c
      End If
   Else
      If (b > c) Then
         Print b
      Else
         Print c
      End If
   End If
End Sub