养花知识
花卉大全
花卉诊疗
多肉植物
养花攻略
养花问答
网站首页请高手指教一下这道VB题应该怎样做？
这道VB题目怎么做啊！
题目说得分平均大于95分，两门成绩是100，且第三门成绩不低于80rn二等奖平均分大于90分，有一门成绩是100分，且另两门功课成绩不低于rn75分。rn三等奖各门功课不低于70分。rn我做出来了但是它有一个附加条件，符合条件者就高不就低，只能获得高的那一项奖金。每次我输入本来是获得二等奖的结果显示出来的是三等奖，就是这个问题怎么解决啊！！Dim a, b, c As Integer
a = Val(Text1.Text)
b = Val(Text1.Text)
c 日夏养花网= Val(Text1.Text)
if a>70 and b>70 and c>70 then
lbl.Caption = "恭喜你中了三等奖"
End If
if (a+b+c)/3>90 and ((a=100 and b>=75 and c>=75) or (a&日夏养花网gt;=75 and b=100 and c>=75) or (a>=75 and b>=75 and c=100)) then
lbl.Caption = "恭喜你中了二等奖"
End If
if (a+b+c)/3>95 and ((a=100 and b=100 and c>=80) or (a=100 and b>=80 and c=100) or (a>80 and b=100 and c=100)) then
lbl.Caption = "恭喜你中了一等奖"
End If
a = Val(Text1.Text)
b = Val(Text1.Text)
c 日夏养花网= Val(Text1.Text)
if a>70 and b>70 and c>70 then
lbl.Caption = "恭喜你中了三等奖"
End If
if (a+b+c)/3>90 and ((a=100 and b>=75 and c>=75) or (a&日夏养花网gt;=75 and b=100 and c>=75) or (a>=75 and b>=75 and c=100)) then
lbl.Caption = "恭喜你中了二等奖"
End If
if (a+b+c)/3>95 and ((a=100 and b=100 and c>=80) or (a=100 and b>=80 and c=100) or (a>80 and b=100 and c=100)) then
lbl.Caption = "恭喜你中了一等奖"
End If
这个VB程序题怎么做？
看着是三循环，化简后就是
x=3
for
k=1
to
2
x=x+6
next
k
外循环中循环结果取的都是x=3,只有内循环才计算BIKXUEeBo值，B.15
x=3
for
k=1
to
2
x=x+6
next
k
外循环中循环结果取的都是x=3,只有内循环才计算BIKXUEeBo值，B.15
请人 指教这条VB程序题目！！！
Option ExplicitrnOption Base 1rnPrivate Sub Command1_Click()rn Dim i As Integer, a() As Integer, k As Integer, st As Stringrn For i = 2 To 50rn If prime(i) Thenrn k = k + 1rn ReDim Preserve a(k)rn a(k) = irn End Ifrn Next irn For i = 1 To 100rn k = 0rn Call yz(i, a, k, st)rn If k >= 4 Thenrn Text1.Text = Text1.Text & st & vbCrLfrn st = ""rn End Ifrn Next irnEnd SubrnrnPrivate Function prime(m As Integer) As Booleanrn Dim i As Integerrn For i = 2 To Sqr(m)rn If m Mod i = 0 Then Exit Functionrn Next irn prime = TruernEnd FunctionrnrnPrivate Sub yz(m As Integer, a() As Integer, k As Integer, st As String)rn Dim i As Integer, j As Integerrn For i = 1 To UBound(a)rn If m Mod a(i) = 0 Then j = j + 1rnwww.rixia.cc Next irn If j >= 2 Thenrn k = k + 1rn st = st & Str(m)rn End IfrnEnd Subrnrn不报错，也不显示，请人指教~~看别人无注释无说明的程序很难理解，这段是求什么的就懒得分析了，要不lz把题目也一起贴出来
For i = 1 To 100
k = 0
Call yz(i, a, k, st)
If k >= 4 Thehttp://www.rixia.ccn
这一段，每次循环前k都=0，那还怎么可能>=4，自然更不可能做if后面的显示部分了。
在yz里面无论怎么折腾，都不影响函数调用前i a k st的值，因为你写的是Private Sub yz(m As Integer, a() As Integer, k As Integer, st As String) 就算同名他们也是局部变量，不影响传入前后k的值。如果是C语言，这形参实参局部变量全局变量在讲指针和函数的时候是必考的
如果要在yz里改变k的值，并反映到在函数外定义的k上，那么该是Private Sub yz(m As Integer, a() As Integer,byref k As Integer, st As String)。其他问题未分析。
For i = 1 To 100
k = 0
Call yz(i, a, k, st)
If k >= 4 Thehttp://www.rixia.ccn
这一段，每次循环前k都=0，那还怎么可能>=4，自然更不可能做if后面的显示部分了。
在yz里面无论怎么折腾，都不影响函数调用前i a k st的值，因为你写的是Private Sub yz(m As Integer, a() As Integer, k As Integer, st As String) 就算同名他们也是局部变量，不影响传入前后k的值。如果是C语言，这形参实参局部变量全局变量在讲指针和函数的时候是必考的
如果要在yz里改变k的值，并反映到在函数外定义的k上，那么该是Private Sub yz(m As Integer, a() As Integer,byref k As Integer, st As String)。其他问题未分析。
sqr()是什么函数?
程序貌似没问题，你程序界面上“文本框”做了吗？
太乱了，还没有任何解释
说一下要实现的功能吧，这样才能看懂
说一下要实现的功能吧，这样才能看懂
文章标签:
本文标题: 请高手指教一下这道VB题应该怎样做？
本文地址: http://www.rixia.cc/wenda/142321.html
上一篇：七色花有什么颜色
相关推荐
