谁帮帮我啊编程序 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 ...全部
程序一:
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。
收起