主题：[讨论]这个程序该怎么办？有老师给帮个忙吧
linghuran
[专家分：0] 发布于 2008-03-03 10:47:00
X,Y,Z分别都是20到60的整数变量（包含20和60），F=（6.35*X*Z）/（1200*Y） 求当X,Y,Z变化时的每一个F值，应该有40*40*40个F值。显示结果每行按：X= Y= Z= F= 排列。谢谢好心人给帮个忙啊，再次谢谢
如果显示结果的按那样的方式再把F值按大小顺序排列就更好了，输出结果按页显示，我是要把这个结果用打印机打出来的。
回复列表 （共5个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2008-03-03 11:10:00
除了你的打印以外。我可以做做。
我给你输出到窗口（当然这里放不下那么多）。
你自己改成输出到文件。排序也自己做做看。有什么具体问题，再讨论。
Private Sub Command1_Click()
Dim 函数值(20 To 60, 20 To 60, 20 To 60) As Single
Dim i As Integer, j As Integer, k As Integer
Print
Print
Print
For i = 20 To 60
Print "X="; i
For k = 20 To 60
Print Tab(k * 15 - 285); k;
Next k
For j = 20 To 60
Print "Y="; j
For k = 20 To 60
函数值(i, j, k) = 函数(i, j, k)
Print Tab(k * 15 - 285); 函数值(i, j, k);
Next k
Print
Next j
Print
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "开始"
Me.AutoRedraw = True
End Sub
Private Function 函数(x As Integer, y As Integer, z As Integer) As Single
函数 = (6.35 * x * z) / (1200# * y)
End Function
板凳
linghuran [专家分：0] 发布于 2008-03-03 15:34:00
谢谢，我试验下，有新问题了希望继续给与指导，再次谢谢
3 楼
linghuran [专家分：0] 发布于 2008-03-03 15:47:00
Command1.Caption = "开始"
提示错误：要求对象
请再给帮下忙，我没学过VB，谢谢
4 楼
jy02367920 [专家分：290] 发布于 2008-03-03 18:34:00
[quote]
Command1.Caption = "开始"
提示错误：要求对象
请再给帮下忙，我没学过VB，谢谢[/quote]
楼主还是买本教程好好的看看吧~！！！
不要急~~
5 楼
老大徒伤悲 [专家分：29120] 发布于 2008-03-03 19:34:00
给窗体里加个按钮吧
我来回复
您所在位置：