谁帮帮我啊
编程序 1键盘输入一个数，输出以这个数为边长的正好形的周长和面积 2出租车计算方位，5公里以内8元，5公里以外没公里1。5，输入公里数，输出应交的钱数 3编程，利用循环语句输出以下图形 * *** ***** ******* ********* 谁会啊！帮帮我！！
全部回答
程序一：
Private Sub Form_Click()
Form1。Cls
Dim n As Single
Dim C As Single
Dim Sa As Single
n = InputBox("请输入数值", "输入提示", 15)
C = n * 4
Sa = n * n
Print "正方形的边长为：" & n
Print "正方形的周长为：" & C
Print "正方形的面积为：" & Sa
CurrentX = Form1。
ScaleWidth / 2 CurrentY = Form1。ScaleHeight / 2 If n 1500 Then MsgBox "您输入的数值太大，图形可能显示不出来", vbOKOnly + vbExclamation, "提示" End If Form1。
Line Step(-n, -n)-Step(2 * n, 2 * n), vbRed, B End Sub 程序二： Private Sub Command1_Click() Dim n As Single Dim mSum As Single n = Val(Text1) If n <= 0 Then MsgBox "请输入出租车的公里数" Text1。
SetFocus Text1。SelStart = 0 Text1。SelLength = Len(Text1) Exit Sub ElseIf n <= 5 Then mSum = 8 Else mSum = 8 + (n - 5) * 1。
5 End If Label1。Caption = "您的行程为：" & n & "公里," _ & vbNewLine & "您应付的车费为：" & Format(mSum, "#0。
00") & "元" _ & vbNewLine & "祝您旅途愉快！" Text1。 SetFocus Text1。SelStart = 0 Text1。
SelLength = Len(Text1) End Sub 程序三： Private Sub Form_Click() Dim i As Integer Dim n As Integer For i = 1 To 10 step 2 '步长为2 For n = 1 To i Print "*"; Next n Print Next i End Sub。
ScaleWidth / 2 CurrentY = Form1。ScaleHeight / 2 If n 1500 Then MsgBox "您输入的数值太大，图形可能显示不出来", vbOKOnly + vbExclamation, "提示" End If Form1。
Line Step(-n, -n)-Step(2 * n, 2 * n), vbRed, B End Sub 程序二： Private Sub Command1_Click() Dim n As Single Dim mSum As Single n = Val(Text1) If n <= 0 Then MsgBox "请输入出租车的公里数" Text1。
SetFocus Text1。SelStart = 0 Text1。SelLength = Len(Text1) Exit Sub ElseIf n <= 5 Then mSum = 8 Else mSum = 8 + (n - 5) * 1。
5 End If Label1。Caption = "您的行程为：" & n & "公里," _ & vbNewLine & "您应付的车费为：" & Format(mSum, "#0。
00") & "元" _ & vbNewLine & "祝您旅途愉快！" Text1。 SetFocus Text1。SelStart = 0 Text1。
SelLength = Len(Text1) End Sub 程序三： Private Sub Form_Click() Dim i As Integer Dim n As Integer For i = 1 To 10 step 2 '步长为2 For n = 1 To i Print "*"; Next n Print Next i End Sub。
程序1：
#include
main()
{
int i;
printf("请输入边长:");
scanf("%d", &i);
printf("周长是：%d\n",4*i);
printf("面积是：%d\n",i*i);
}
程序2：
#include
main()
{
int i;
printf("请输入公里数:");
scanf("%d",&i);
printf("您应交钱");
if (i
main()
{
int i;
printf("*\n");
for(i=0;i<3;i++)
printf("*");
printf("\n");
for(i=0;i<5;i++)
printf("*");
printf("\n");
for(i=0;i<7;i++)
printf("*");
printf("\n");
for(i=0;i<9;i++)
printf("*");
printf("\n");
}。
。
。
热点推荐
热度TOP
-
为什么说向你借钱的男人不能嫁?
12158人阅读
-
牙齿感觉有电一样是怎么回？
63人阅读
-
成都无痛人流哪家好棕南
47人阅读
-
兰州比较好的男科医院在哪里？（兰州利民医院）男科
31人阅读
-
义乌哪家男科比较好，义乌常春怎么样？
40人阅读
-
什么方法增高会对身体有伤害？
100人阅读
相关推荐
加载中...