青岛科技大学VB实验题一