关于vb的一个小程序

343关注621浏览

请帮忙解决一下:
编写一段代码,求给定一个圆的周长和面积。要求:
(1)圆半径r利用inputbox函数从键盘任意输入(r>0)
(2)圆周率定义为常量pi
(3)利用赋值语句将求出的周长和面积分别赋给变量l,s
(4)用print方法输出详细结果
本人写出来的有点小问题,条件中r>0还用的if语句,实际上似乎不用,所以希望各位大虾指点下,供小弟参考,谢谢

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

    2044人对此回答表示赞同

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

    12人对此回答表示赞同

    Private Const Pi = 3.1415926 '定义常量
    Dim R, S, L As Double
    Private Sub Command1_Click()
    R = Val(InputBox("请输入半径R", "输入", ""))
    If R > 0 Then
    L = 2 * Pi * R
    S = Pi * R * R
    Print &q
    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Jeremiah

    12人对此回答表示赞同

    pi = 3.1415926
    r = InputBox("请输入r")
    If IsNumeric(r) Then
    l = 2 * pi * Abs(r)
    s = pi * r * r
    Print "周长为:"; l
    Print "面积为:"; s
    MsgBox "周长为:" & CStr(l) & " " & "面积为:&q
    展开
    12
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • Willow

    7人对此回答表示赞同

    main()
    {int n,r;
    scanf("%d",r);
    n=3.1415926*r*r;
    printf("%d",n);
    }
    展开
    7
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 周悠悠

    6人对此回答表示赞同

    你可能是想求同偶数的和,但你输出的是循环变量n的值 n从1增长到20执行循环,增长到21退出循环
    改成 Print m
    试试看,是不是你想要的结果 追问
    展开
    6
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 贺纸张

    5人对此回答表示赞同

    next n的意思相当于n=n+1,每次执行到那里都执行n=n+1,当然条件是当n满足小于等于20,当n=21是九退出循环了啊! 追问
    展开
    5
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 灯下夜祷

    3人对此回答表示赞同

    for 循环20次,在n=21时候才跳出循环,n自然为21
    展开
    3
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 兔子先生

    2人对此回答表示赞同

    const pi = 3.1415926
    private sub command1_click()
    r = inputbox("input r")
    if r < 0 then
    msgbox "r < 0"
    exit sub
    end if
    s = pi * r ^ 2
    l = 2 * r * pi
    print s
    print l
    end sub
    展开
    2
    0回复
    发布于 6年前

    评论(0)

    收起评论

  • 小小小东

    2人对此回答表示赞同

    你是不是写错了,本来应该是print m的,你写成print n了。在for n=1 to 20中,当n=20的时候,遇到next n并不会立即停止,而是继续递增加1(此时就是21),然后回到for n=1 to 20时才会判断已经超过20了,此时循环才中止,所以输出21
    展开
    2
    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
扫码咨询

扫码咨询套餐

回到顶部