UC知道VB的一道题目
来源：百度知道 编辑：UC知道 时间：2024/05/14 18:39:25
程序编写要求：
1，程序开始要注明编写者的班级，姓名，学号
2，实验数据输入
3，实验数据读入，按公式计算，运算结果保留。程序检查，调试用的数据如表 n1 M1 n2 M2 A B F
1 1504 0.055 1503 0.023 41.790 0.066 0.535
2 1502 0.074 1499 0.043 57.992 0.200 1.000
3 1504 0.107 1498 0.068 63.297 0.399 1.581
v=6.722 F0=17.64 m0=0.6
公式：
A=M2*n2/M1n1 B=(n1-n2)/n1 F=2000*M2/D2 V=3.14*D1n1/60000
D1=D2=86
4，实验数据和运算结果以表格形式输出，运算结果保存。有能力的可将运算结果以图线A~F B~F曲线形式显示输出并保存。
5，原文件以TXT文件保存。
6，生成可执行文件。
我的邮件tcchy@yahoo.com.cn,哪位高手帮忙下啊？
n1 M1 n2 M2 A B F对应下面的数据，关键是要根据下面的公式编写，*是乘号，D1n1是代表D1乘以n1
1，程序开始要注明编写者的班级，姓名，学号
2，实验数据输入
3，实验数据读入，按公式计算，运算结果保留。程序检查，调试用的数据如表 n1 M1 n2 M2 A B F
1 1504 0.055 1503 0.023 41.790 0.066 0.535
2 1502 0.074 1499 0.043 57.992 0.200 1.000
3 1504 0.107 1498 0.068 63.297 0.399 1.581
v=6.722 F0=17.64 m0=0.6
公式：
A=M2*n2/M1n1 B=(n1-n2)/n1 F=2000*M2/D2 V=3.14*D1n1/60000
D1=D2=86
4，实验数据和运算结果以表格形式输出，运算结果保存。有能力的可将运算结果以图线A~F B~F曲线形式显示输出并保存。
5，原文件以TXT文件保存。
6，生成可执行文件。
我的邮件tcchy@yahoo.com.cn,哪位高手帮忙下啊？
n1 M1 n2 M2 A B F对应下面的数据，关键是要根据下面的公式编写，*是乘号，D1n1是代表D1乘以n1
private sub command1_click()[按钮单击时执行]
dim as integer ,j as integer,k as integer（定义三个整型变量i、j、k）
i=1〔i 初值为1〕
do while i<=9〔当 i小于等于9时执行〕
j=1
k=0
while j<=9〔上三步同上〕
print i;"*";j;"=";i*j〔输出：如：1*1=1〕
j=j+1
k=k+1〔上二步，变量j、k各加一〕
if k=5 and i<>5 then print〔k等于5且i不等于5时输出空〕
wend〔内循环结束〕
print
i=i+1〔i自加1〕
loop〔外循环结束〕
end sub〔本块程序结束〕
本程序运行有什么效果，自己去执行吧