求解VB编程:运行时按“逆时针画圆”命令按钮,由定时器控制在以像素

求解VB编程:运行时按“逆时针画圆”命令按钮,由定时器控制在以像素为刻度的图片框中开始画圆,圆由2个像素大的点连线而成,每间隔1度画一个点。具体题目如下图所示。急!求VB... 求解VB编程:运行时按“逆时针画圆”命令按钮,由定时器控制在以像素为刻度的图片框中开始画圆,圆由2个像素大的点连线而成,每间隔1度画一个点。具体题目如下图所示。
急!求VB大神解答,拜托了
展开
 我来答
数学与计算机编程
2016-06-05 · TA获得超过2159个赞
知道大有可为答主
回答量:2312
采纳率:80%
帮助的人:560万
展开全部

Dim k As Integer

Const PI As Single = 3.1415926

Private Sub Command1_Click()

  Me.Timer1.Interval = 100

End Sub


Private Sub Form_Load()

  Me.Picture1.Left = 100

  Me.Picture1.Top = 100

  Me.Picture1.Height = 6000

  Me.Picture1.Width = 6000

  Me.Picture1.ScaleMode = 3

  Me.Picture1.DrawWidth = 2

  Me.Height = 100 + Me.Picture1.Height + 1000

  Me.Width = 100 + Me.Picture1.Width + 250

  Me.Command1.Height = 335

  Me.Command1.Width = 1665

  Me.Text1.Height = 255

  Me.Text1.Width = 730

  Me.Text1.Left = 480

  Me.Text1.Top = 6270

  Me.Command1.Left = (Me.Width - Me.Command1.Width) / 2

  Me.Command1.Top = 100 + Me.Picture1.Height + 120

  Me.Timer1.Interval = 0

End Sub


Private Sub Timer1_Timer()

  Me.Text1.Text = Time

  Me.Picture1.PSet (Me.Picture1.ScaleWidth / 2 - (Me.Picture1.ScaleWidth / 2 - 10) * Cos(-PI / 2 + k * PI / 180), Me.Picture1.ScaleHeight / 2 + (Me.Picture1.ScaleWidth / 2 - 10) * Sin(-PI / 2 + k * PI / 180)), vbRed

  k = k + 1

  If k >= 360 Then

    Me.Timer1.Interval = 0

    Me.Timer1.Enabled = False

  End If

End Sub

sbj518
2016-06-04 · TA获得超过4.4万个赞
知道大有可为答主
回答量:1.1万
采纳率:81%
帮助的人:5256万
展开全部
什么时候要呢?
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式