算法 VB编程 将流程图转成伪代码 求援手 真心不会做 速度给解 感激不尽噶！！

'1

Dim x,y

x=inputbox("input x","input x")

If x>3 Then

y=x^2

Else

If x>=0 Then

y=2x+1

Else

y=3x-1

End If

End If

Print y

'2

Dim n

n=inuptbox("input n","input n")

If int(n/7)=n/7 Then

Print "能！"

Else

Print "不能！"

End If

'3

Dim a,b,c

a=Inputbox("a")

b=Inputbox("b")

c=Inputbox("c")

If a<b Then Swap a,b

If a<c Then Swap a,c

If b<c Then Swap b,c

Print a,b,c

>

Dim n As Integer = InputBox("请输入总人数：", "提示", 0)  '总人数

        Dim s9, s8, s7, s6, s5 As Integer

        For i = 1 To n    '循环填写每个人的成绩

            Dim x As Double = InputBox("请输入第" & iToString & "个人的成绩：", "提示", 0)

            Dim c As Double = x / 10

            Select Case c

                Case Is >= 9    '统计优秀

                    s9 += 1

                Case Is >= 8    '统计良好

                    s8 += 1

                Case Is >= 7    '统计中等

                    s7 += 1

                Case Is >= 6    '统计及格

                    s6 += 1

                Case Else        '统计不及格

                    s5 += 1

            End Select

        Next

        MsgBox("总人数：" & nToString & vbCrLf & "优秀：" & s9ToString & vbCrLf & "良好：" & s8ToString & vbCrLf & "中等：" & s7ToString & vbCrLf & "及格：" & s6ToString & vbCrLf & "不及格：" & s5ToString)

Private Sub Command1_Click()

Dim i As Integer

Dim dbl1 As Double

Dim str1 As String

Dim dblMax As Double

Do

redo:

str1 = InputBox("输入第" & i & "个数字", "输入")

If Not IsNumeric(str1) Then GoTo redo

dbl1 = Val(str1)

i = i + 1

Print dbl1;

If dbl1 > dblMax Or i = 1 Then dblMax = dbl1

Loop While (i < 10)

Print

Print "最大值是:"; dblMax

End Sub

哎，你是学计算机的吧，而且这还是作业，没错吧!哈哈！

流程如下：（假设该数为 A ）

1用函数将A的字符串逆序输出

2将1中输出的字符串与原数对比，如为相同，则为回文数，反之亦然。

代码：

Dim A as long

A=inputbox("请输入一个数")

If StrReverse(cstr(A)) = cstr(a) then

msgbox A & " 是回文数"

else

msgbox A & " 不是回文数"

end if

（以上代码经本人亲测，绝对正确，请放心使用！！）

好了好了，快试试先吧~~！

记得给我加分哦~~~~~~~~~~~~~~

以上就是关于算法 VB编程 将流程图转成伪代码 求援手 真心不会做 速度给解 感激不尽噶！！全部的内容，包括:算法 VB编程 将流程图转成伪代码 求援手 真心不会做 速度给解 感激不尽噶！！、VB程序设计(记事本）、用VB程序设计语言 编写程序，从键盘输入学生成绩，然后统计学生总人数和各分段的人数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！