VB 在标签Label1和滚动条中立刻显示 1！+ 2！+ … + n!的值

显示全部楼层 · 2008-7-7 21:29:01

窗体中有一个文本框Text1、Label1、一个垂直滚动条Vscroll1。点击滚动条，可使文本框中显示[2，20]之间的一个正整数n，标签Label1中立刻显示 1！+ 2！+ … + n!的值

千问 · 2008-7-7 21:29:01

Private Sub Form_Load()VScroll1.Min = 2VScroll1.Max = 20End SubPrivate Sub VScroll1_Change()Text1.Text = VScroll1.ValueFor i = 1 To Text1Sum = 1For j = 1 To i Sum = Sum * jNextsun = sun + SumNextLabel1.Caption = sunEnd Sub

千问 · 2008-7-7 21:29:01

textbox是文本框,richtexbox是富本框控件，文本框是程序启动时默认项(即工具控件箱有的了，不需再另行添加)，而富本框是需要用户自行添加的，具体可以在工具控件箱空白处右键"添加部件"然后再按照指引即可找到富本框控件了。

千问 · 2008-7-7 21:29:01

这不是问题