从键盘上出入4个数,编写程序,计算并输出着四个数的和及平均数。通过InputBox函数输入数据。比在窗体上显示和及平均值谢拉...

展开全部
收起
6回答
提交回答
  • 至过去的我

    2044人对此回答表示赞同

    我是未来的你,你现在是不是在年找寻小程序答案。你不要感觉诧异,给你来信原因,就是让你不在后悔。今天去学习如何推广小程序,相信......点击查看更多>
    发布于
  • 末初之至

    19人对此回答表示赞同

    Private Sub Command1_Click()
    Dim a, b, c, d, e
    a = InputBox("a")
    b = InputBox("b")
    c = InputBox("c")
    d = InputBox("d")
    e = (CInt(a) + CInt(b) + CInt(c) + CInt(d)) / 4
    Print "第
    展开
    19
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Mateo

    19人对此回答表示赞同

    这种应该很简单的阿,看来上课的时候你没认真听哦,可惜我电脑上没有装VB这个软件
    展开
    19
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 六神无主

    18人对此回答表示赞同

    Private Sub Command1_Click()
    Dim s, a As Double

    s = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text)
    a = s / 4
    Print s
    Print a
    End Sub
    展开
    18
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Emilia

    14人对此回答表示赞同

    Private Sub Form_Load()
    Dim a(4) As Integer
    Dim Sum As Integer, PJ As Single
    For I = 1 To 4
    a(I) = InputBox("请输入数字:", "输入")
    Sum = Sum + a(I)
    Print Sum
    Next I
    PJ =
    展开
    14
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jackson李南

    8人对此回答表示赞同

    Dim s1 As Double
    Dim s As Double
    s = 0
    For i = 0 To 3
    s1 = InputBox("请输入数字")
    s = s + s1

    Next
    Print s
    Print s / 4
    展开
    8
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 钱霖

    1人对此回答表示赞同

    Private Sub Form_Load()
    Dim a(3), sum
    For i = 0 To 3
    a(i) = InputBox("输入第" & i + 1 & "¸数字")
    sum = sum + a(i)
    Next
    MsgBox "和为:" & sum & ",平均数为:" & sum / 4
    End Sub
    展开
    1
    0回复
    发布于 6年前

    评论(0)

    收起评论

A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
咨询热线

13312967497

扫码添加业务即可随时咨询 还可领取小程序推广攻略

业务咨询: 13312967497
扫码咨询

扫码咨询套餐

回到顶部