VB 输入一个数字 在对应柱体上显示对应的高度

VB 输入一个数字 在对应柱体上显示对应的高度，这样说可能也不大清楚，就和下面的图片差不多，旁边数字输入。还请高手不吝留下源码，以供大家学习参考，感谢

答案：Private Sub Form_Click()
 

n = Val(InputBox("n="))
Cls
Line (0, 0)-(1, n), vbRed, BF
For i = 1 To 16
   Line (0, i)-(0.1, i)
   CurrentX = CurrentX - 0.8
   Print i
Next i
Line (0, 0)-(0, 16)
End Sub
Private Sub Form_Load()
Me.Height = 8000
Me.Width = 4000
Me.AutoRedraw = True
Me.Scale (-4, 16)-(4, 0)
For i = 1 To 16
   Line (0, i)-(0.1, i)
   CurrentX = CurrentX - 0.8
   Print i
Next i
Line (0, 0)-(0, 16)
End Sub

上一个：计算机c语言和vb哪个的区别……哪个好
下一个：推荐几本自学VB的书籍.~~