VB编案例(蝴蝶飞舞,计算器,加密,解密,矩阵转置,鸟巢,统计,文本编辑,小球跳动,学生信息录入窗口).docVIP

目录 一、鸟巢绘制……………………………………………………………………………………2 二、加密…………………………………………………………………………………………3 三、解密…………………………………………………………………………………………4 四、蝴蝶飞舞……………………………………………………………………………………6 五、文本编辑……………………………………………………………………………………6 六、统计…………………………………………………………………………………………9 七、小球跳动……………………………………………………………………………………11 八、计算器（彩票摇奖）………………………………………………………………………12 九、学生信息录入………………………………………………………………………………16 十、矩阵转置……………………………………………………………………………………17 一、鸟巢绘制 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.14