[工学]第9章 图形程序设计.ppt

Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n = 10 z = n + z y = y + z x = x + z Print x, y, z End Sub 2、运行程序，连续三次单击命令按钮后，则最后一次单击输出的内容分别是( )。 三、读程序写结果： 1） Private Sub Command1_Click() Dim a As Integer, x As Integer Call sub1(4, a) x = a Call sub1(5, a) Print x + a End Sub Public Sub sub1(x, y) y = 0 For i = 1 To x y = y + i Next i End Sub 2)单击命令按钮，在输入对话框中输入17，输出结果为 Function y1(ByRef x As Long) As Long Dim k As Long k = 1 Do While x k = k * (x Mod 10) x = x \ 5 Loop y1 = k End Function Private Sub Command1_Click() Dim n As Long n = Val(InputBox(请输入一个数)) s = y1(n) Print s End Sub 3) Private Sub Command1_Click() Dim a As Integer, b As Single a = InputBox(请输入一个整数值) Select Case a Case Is 10 b = 2 * a - 5 Case Is 15 b = 2 * a + 5 Case Is 20 b = a ^ 2 End Select Print a, b End Sub 程序运行时输入12,程序的结果为 For i = 0 To 330 Step 30 画电子钟的刻度线 If i Mod 90 = 0 Then Form1.DrawWidth = 5 Form1.ForeColor = vbRed Else Form1.ForeColor = vbBlue Form1.DrawWidth = 3 End If Form1.Line (x0 + r * Sin(i * dx), y0 - r * Cos(i * dx))-(x0 + r * 0.85 * Sin(i * dx), y0 - r * 0.85 * Cos(i * dx)) Next i Form1.ForeColor = vbBlack For i = 0 To 330 Step 30 写电子钟的时间刻度值 Form1.CurrentX = x0 + r * 0.7 * Sin(i * dx) - 100 Form1.CurrentY = y0 - r * 0.7 * Cos(i * dx) - 100 Form1.Print i \ 30 Next i End Sub Private Sub Timer1_Timer() Dim h As Integer, m As Integer, s As Integer 时、分、秒 Dim hh As Single, mm As Single, ss As Single 时、分、秒所对应的角度数 Label2 = Time h = Hour(Time) m = Minute(Time) s = Second(Time) If s = 0 Then Beep ss = s * 6 1秒转过6度 mm = (m + s / 60) * 6 1分钟转过6度 hh = (h + m / 60 + s / 3600) * 30 1小时转过30度 确定指针的另一端位置 Line1.X2 = x0 + r * 0.4 * Sin(hh * dx) Line1.Y2 = y0 - r * 0.4 * Cos(hh * dx) Line2.X2 = x0 + r * 0.6 * Sin(mm * dx) Line2.Y2 = y0 - r * 0.6 * Cos(mm * dx) Line3.X2 = x0 + r * 0.8 * Sin(ss * dx) Line3.Y2 = y0 - r * 0.8 * Cos(ss * dx) End