Question

vb编程题~~~~帮忙~~~~急！！在线等~~~~

VB实训题目：
1、学校对学习成绩优良的学生进行奖励，满足如下任一条件就可获奖，条件如下：
(1) 所考5门课的总分超过450分。
(2) 每门课的成绩都在88分以上。
(3) 前3门（主课）的成绩都在95分以上，其他两门（非主课）的成绩都在80分以上。
输入某学生5门课的成绩s1、s2、s3、s4、s5，判断他是否能够获奖。
2、求解斐波那契（Fibonacci）数列问题。
3、随机产生三组整数，并求出每组的最大数。
4、设有一个5×5的方阵，其中元素是由计算机随机生成的小于100的整数。请求出：
(1)对角线上元素之和；
(2)对角线上元素之积；
(3)方阵中最大的元素。
5、汽车行驶必须将发动机的转速变小而扭矩增大才能驱动汽车，已知桑塔纳2000变速器提供5个挡位，各挡位传动比如下表：
挡位 传动比
1 12.07
2 6.79
3 4.48
4 3.15
5 2.8
发动机发出最大扭矩为162N.M，车轮半径为0.3M，车重2000kg（约20000N）各挡（i）驱动力可以用下是式确定：
F(i) ＝发动机扭矩 * 传动比 / 车轮半径
爬坡时（坡度用垂直高度比上水平距离，如30%表示水平距离100米，垂直高度增高30米），需要克服重量产生的下滑力，汽车受到驱动力、重力、地面支撑力如图示，虚线为受力分析平衡图，试求各挡位下的爬坡度，要求窗体有一个列表框，一个计算按钮，将各挡位下的爬坡度填到列表框中，一个退出按钮。

Answer 1

第1题：
dim a(5) as integer
dim i,j,k,suma as integer
suma=0
for i=1 to 5
suma=suma+a(i)
next
if suma>450 then
print "学习成绩优良"
endif

j=0
for i=1 to 5
if a(i)>88 then
j=j+1
endif
next
if j=5 then
print "学习成绩优良"
endif

k=0
for i=1 to 3
if a(i)>90 then
k=k+1
endif
next
for i=4 to 5
if a(i)>80 then
k=k+1
endif
next
if k=5 then
print "学习成绩优良"
endif

if k=5 then
print "学习成绩优良"
endif

**********************************************************************
第3题就参考1楼的吧

**********************************************************************
第4题：
dim a(5,5) as integer
dim i,j,k as integer
j=0
for j=1 to 5
for i=1 to 5
a(i,j)=int(rnd()*100)
next
next

j=0
for i=1 to 5
j=j+a(i,i)
next
print "对角线上元素之和"
print j

j=1
for i=1 to 5
j=j*a(i,i)
next
print "对角线上元素之积"
print j

Answer 2

看了一下，这个是最简单的
3、随机产生三组整数，并求出每组的最大数。

如下：
新建一个窗体，在上面放一个文本框，并设置文本框属性：MutiLine=true
再建一个按钮，将以下语句加入到按钮的事件中，就可以了。

Dim StarNo, EndNo, NoQty As Integer

Dim I, J As Integer

'设定每组整数范围和个数
StarNo = 0
EndNo = 100
NoQty = 10

Dim aResult(11, 3) As Integer '声明数组aResult保存结果，其中第一维=规定个数+1，最后一个用来保存每组最大的整数
Dim pText As String

Randomize '随机初始化

For I = 1 To 3 '从1到3组
For J = 1 To NoQty '产生从1到规定个数的整数
aResult(J, I) = Int((EndNo - StarNo + 1) * Rnd + StarNo)
Next J
aResult(NoQty + 1, I) = 0
Next I

'找出每组最大的整数，赋给最后一个数字
For I = 1 To 3
For J = 1 To NoQty
If aResult(J, I) > aResult(NoQty + 1, I) Then
aResult(NoQty + 1, I) = aResult(J, I)
End If
Next J
Next I

'整理结果并输出
For I = 1 To 3
For J = 1 To NoQty
pText = pText & aResult(J, I) & ","
If J = NoQty Then pText = pText & "最大值为：" & aResult(NoQty + 1, I) & Chr(13) & Chr(10)
Next J
Next I

Text1 = pText

End Sub

说明：现在是每组产生10个数字，你可以设置NoQty=XX来决定产生每组数字的个数，但要注意同时修改数组aResult第一维=规定个数+1，

自己做做吧，要不白学了，不能太懒啊~~

Answer 3

去邮箱xuxinzhencumt@126
mima : 123456