2024年6月1日发(作者：)

目录

一、鸟巢绘制……………………………………………………………………………………2

二、加密…………………………………………………………………………………………3

三、解密…………………………………………………………………………………………4

四、蝴蝶飞舞……………………………………………………………………………………6

五、文本编辑……………………………………………………………………………………6

六、统计…………………………………………………………………………………………9

七、小球跳动……………………………………………………………………………………11

八、计算器（彩票摇奖）………………………………………………………………………12

九、学生信息录入………………………………………………………………………………16

十、矩阵转置……………………………………………………………………………………17

一、鸟巢绘制

Private Sub Form_Click()

1

Cls

Dim r, xi, yi, xj, yj, x0, y0, aif As Single

r = eight / 2

x0 = idth / 2

y0 = eight / 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

2