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

目录 一、鸟巢绘制……………………………………………………………………………………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.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%) Dim c As String * 1, iAsc% code = For i = 1 To Len(s) c = Mid$(s, i, 1) Select Case c Case A To Z iAsc = Asc(c) + key If iAsc Asc(Z) Then iAsc = iAsc - 26 code = code + Chr(iAsc) Case a To z iAsc = Asc(c) + key If iAsc Asc(z) Then iAsc = iAsc - 26 code = code + Chr(iAsc) Case Else code = code + c End Select Next i End Function Private Sub close_Click() Form11.Hide Form1.Show End Sub Private Sub Jiami_Click() Text2 = code(Text1, 2) End Sub Private Sub open_Click() CommonDialog1.Action = 1 Text1.Text = Open CommonDialog1.FileName For Input As #1 Dim counter As Integer Dim workarea(25000) As String ProgressBar1.min = LBound(workarea) ProgressBar1.max = UBound(workarea) ProgressBar1.Visible = True ProgressBar1.Value = ProgressBar1.min For counter = LBound(workarea) To UBound(workarea) workarea(counter) = initial value counter ProgressBar1.Value = counter Next counter Do While Not EOF(1) Line Input #1, inputdata Text1.Text = Text1.Text + inputdata + vbCrLf Loop Close #1 End Sub Private Sub