当前位置:编程学习 > VB >>

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的书籍.~~

CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,