VB问题数据库 求大神 本人VB小鲜肉一枚

[weixin_42162812]

Public Sub tuxiang(ByVal fq, v1, v2, vmin As Single)
xiansu = 80
For v = vmin To v1 Step 0.1 '速度v，
f = fq
pic1.PSet (v, f), vbBlue
Next v
For v = v1 To v2 Step 0.1
f = (fq * v1) / v
pic1.PSet (v, f), vbBlue
Next v
For v = v2 To xiansu Step 0.1
f = ((fq * v1) / v) * (v2 / v)
pic1.PSet (v, f), vbBlue '画出最终图像
Next v
End Sub


本人想把算出的数据存储到一个access表中，然后再在以下程序中调用刚刚存储的数据进行运算


Public Sub sv(ByVal fq, v1, v2, vmin As Single)


v22 = 0
v11 = 0
s11 = 0


Do While v22 < 80
For v = vmin To v1 Step 0.1 '速度v，
f = fq
aa = (f - (a + b * v11 + c * v11 * v11)) / 108
v22 = v11 + aa * 0.1
s22 = s11 + ((v22 * v22 - v11 * v11) / 2 * aa)
Pic3.PSet (v2, s2), vbRed
v11 = v22
s11 = s22
Loop





End Sub

请问怎么写程序

[赵4老师]

百度搜相关关键字。

[脆皮大雪糕]

目测你画图和处理数据的部分都已经OK了就差从数据库取数据。 不是几句话能够解答的了，建议你先查阅资料，看看怎么用VB访问数据库，

[熊孩子开学喽]

啥, 还有这种撩妹自的招数? 下次俺也发个贴: 求妹子, 本人VB老腊肠一条 顺便看了看楼主的贴子...大概是有很多数据, 计算, 存数据库, 画图. 这程序工作量说大不大说小不小, 看楼主的代码可能刚接触VB不久. 就从数据库基本操作和VB图像这些开始边学边用吧, 勤快点一个月能上手了.

[of123]

其实，程序猿界的小鲜肉只有一种鸟肉，又称“菜鸟”。