vb编程 急求~第1题：单击窗体，在窗体上画出一个当前窗体中所能容纳的最大的红色实心椭圆（即椭圆的上下左右分别与窗体的上
vb编程 急求~
第1题：单击窗体，在窗体上画出一个当前窗体中所能容纳的最大的红色实心椭圆（即椭圆的上下左右分别与窗体的上下左右相切）。
第2题：程序运行时，使窗体的高度和宽度相等，单击窗体，改变窗体坐标系长宽均为300个单位，过窗体中点（即原点）画出互相垂直的两条蓝色直线，用红色画函数曲线y=x2-2x+6在[-10，10]区间的图形(要求图形开口向上)。
第1题：单击窗体，在窗体上画出一个当前窗体中所能容纳的最大的红色实心椭圆（即椭圆的上下左右分别与窗体的上下左右相切）。
第2题：程序运行时，使窗体的高度和宽度相等，单击窗体，改变窗体坐标系长宽均为300个单位，过窗体中点（即原点）画出互相垂直的两条蓝色直线，用红色画函数曲线y=x2-2x+6在[-10，10]区间的图形(要求图形开口向上)。
赞 jiabei 春芽
共回答了18个问题采纳率：83.3% 举报
第1题：
Private Sub Form_Click()
Dim A As Long, B As Long
Dim X As Long, Y As Long
A = Me.ScaleWidth / 2
B = Me.ScaleHeight / 2
Me.Cls
Me.FillColor = vbRed
Me.FillStyle = 0
Me.Circle (A, B), IIf(A > B, A, B), vbRed, , , B / A
End Sub
第2题：
Private Sub Form_Click()
Dim X As Single, Y As Single
Me.ScaleMode = 3
Me.Width = 300 * Screen.TwipsPerPixelX + Me.Width - Me.ScaleWidth * Screen.TwipsPerPixelX
Me.Height = 300 * Screen.TwipsPerPixelY + Me.Height - Me.ScaleHeight * Screen.TwipsPerPixelY
Me.Line (0, 150)-(300, 150), vbBlue
Me.Line (150, 0)-(150, 300), vbBlue
For X = -10 To 10 Step 0.01
Y = X * X - 2 * X + 6
Me.PSet (X + 150, 150 - Y), vbRed
Next
End Su
Private Sub Form_Click()
Dim A As Long, B As Long
Dim X As Long, Y As Long
A = Me.ScaleWidth / 2
B = Me.ScaleHeight / 2
Me.Cls
Me.FillColor = vbRed
Me.FillStyle = 0
Me.Circle (A, B), IIf(A > B, A, B), vbRed, , , B / A
End Sub
第2题：
Private Sub Form_Click()
Dim X As Single, Y As Single
Me.ScaleMode = 3
Me.Width = 300 * Screen.TwipsPerPixelX + Me.Width - Me.ScaleWidth * Screen.TwipsPerPixelX
Me.Height = 300 * Screen.TwipsPerPixelY + Me.Height - Me.ScaleHeight * Screen.TwipsPerPixelY
Me.Line (0, 150)-(300, 150), vbBlue
Me.Line (150, 0)-(150, 300), vbBlue
For X = -10 To 10 Step 0.01
Y = X * X - 2 * X + 6
Me.PSet (X + 150, 150 - Y), vbRed
Next
End Su
1年前
4
可能相似的问题
-
1年前1个回答
-
1年前1个回答
你能帮帮他们吗