vb 根据伪代码做一个流程图

来源:百度知道 编辑:UC知道 时间:2024/09/20 19:58:27
Start
get three input names.
Fine the lengths of each name.
Find the average length of the names.
If average < 10 Then
display average length
Else If average < 20 Then
display the half of the average length
Else
display “The names are too long”
End If
End If
End.

大哥,能给翻译一下不?看不懂啊
偶英文很滥的。。。
开始
返回三个名字
。。。

sub main()
dim a,b,c as string
dim aver as integer
a=inputbox("name1")
b=inputbox("name2")
c=inputbox("name3")
aver=(len(a)+len(b)+len(c))/3
if aver< 10 then
print Str(aver)
elseif aver<20 thne
print str(aver/2)
else
print "names are too long"
end if
end sub