VB大作业各种小程序编程.docVIP

一、鸟巢绘制 Private Sub Form_Click() Cls Dim r, xi, yi, xj, yj, x0, y0, aif As Single r = Form10.ScaleHeight / 2 x0 = Form10.ScaleWidth / 2 y0 = Form10.ScaleHeight / 2 n = 16 aif = 3.14159 * 2 / n For i = 1 To n xi = r * Cos(i * aif) + x0 yi = r * Sin(i * aif) + y0 For j = i To n xj = r * Cos(j * aif) + x0 yj = r * Sin(j * aif) + y0 Line (xi, yi)-(xj, yj), QBColor(i - 1) PSet (xi, yi) Print i - 1 Next j Next i End Sub Private Sub Form_Load() Print 要求： ; Print 1.将圆周等分成16份； Print 2.每个等分点要标记成0-16的数字； Print 3.按样本图的图案画图。 End Sub 附图： 二、加密 Function code(ByVal s$, ByVal key%