vb设计的绘图直线可清除工具 Print "X ="; X, "Y ="; Y If Button = vbLeftButton Then Picture1.ForeColor = vbRed Picture1.DrawWidth = 3 Picture1.Line (x0, y0)-(X
vb设计的加密解密程序 For i = 1 To n s = Mid(Text1.Text, i, 1) If s >= "a" And s "z" Then s = Chr(Asc(s) - 26) ElseIf s >= "A" And s
vb设计的图形打印程序 Private Sub Command1_Click() Cls Dim n%, i%, j% n = Val(Text1.Text) For i = 1 To n For j = 1 To n