📄 19618.html
字号:
<html> <head> <title>参考看看</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>参考看看</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:jwh@ms1.hinet.net">纪文和</a> on October 04, 1999 at 13:22:12:<p>In Reply to: <a href="19607.html">值不对喔</a> posted by 数学白痴 on October 04, 1999 at 11:28:08:<p>: : : X1=10 ---> Y1=100<br>: : : X2=20 ---> Y2=300<br>: : : X3=30 ---> Y3=600<br>: : : X4=40 ---> Y4=1000<br>: : : X5=50 ---> Y5=1500<p>我用了一个 textbox 来输入一个值, 二个 listbox 来 show x(i) 及 y(i) 的值<p>Private Sub Command1_Click()<br> Dim n<br> n = Val(Text1)<br> ReDim x(n)<br> ReDim y(n)<br> List1.Clear<br> List2.Clear<br> For i = 1 To n<br> x(i) = i * 10<br> y(i) = ((i * (i + 1)) / 2) * 100<br> List1.AddItem x(i)<br> List2.AddItem y(i)<br> Next<br>End Sub<p><a href="http://www.ruentex.com.tw/vbguide" target="_blank">VB入门网</a><p><br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 19618--></ul><!--end: 19618--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -