我正在学习vb6.0，虽能给我提供几个经典的vb例题，要初级的，

sin曲线

Private Sub Command1_Click()
Scale (0, 0)-(1000, 1000)
Line (500, 0)-(500, 1000)
Line (0, 500)-(1000, 500)

End Sub

排序

【冒泡
for i = 1 to n-1
for j = 1 to n-i
if a(j)>a(j+1) then
t=a(j):a(j)=a(j+1):a(j+1)=t
end if

next j
next i

选择

for i = 1 to n-1
for j = i+1 to n
if a(j)<a(i) then
temp = a(j)
a(j)= a(i)
a(i)=temp
end if
next j
next i
选择2

for i = 1 to n-1
k=i
for j = i+1 to n
if a(k)>a(j) then k=j
next j
if k<>i then
t