Question

如何用vb画一个逐渐由扇形变成圆的图

Answer 1

Dim a As Single, X0 As Integer, Y0 As Integer, r As Integer
Const p = 3.14159

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X0 = X: Y0 = Y: a = 0
PSet (X, Y)
Print "O" '标示圆心位置
'Me.Cls
r = InputBox("请输入>=500的半径值：")
Line (X0, Y0)-(X0 + r * Cos(0), Y0)
CurrentX = X0: CurrentY = Y0 - 150
Print "r=" & r '画出半径并标示
Me.DrawWidth = 2
Timer1.Enabled = True
Timer1.Interval = 20
End Sub

Private Sub Timer1_Timer()
Line (X0, Y0)-(X0 + r * Cos(a * p / 180), Y0 + r * Sin(a * p / 180))
a = a + 0.5
If a = 360 Then
'CurrentX = 0'可指定打印文字坐标
'CurrentY = 0
Print "画圆完成！" '在画圆完成的点即0度位置打印
Timer1.Enabled = False
End If
End Sub

Answer 2

病情分析：
你买的也许不是维生素B2片，有可能是复合维生素B，因为复合维生素的简称就是COVB，不过复合维生素B含有的成分比较多都是B族的，比如B1、B2、B4、B6、B12都有，含量相对来说就少了。
指导意见：
不过，吃了也没关系，我有时到药店买药，没有维生素B2，就会买复合B，这样可以补的更多，咱们人体都会缺乏，吃了没有坏处，B族维生素是水溶性的吃多了也没事，多喝些水，就会排出去，但是什么都要适量。