★★★求助！一个简单的编程题

2007-05-19 09:42:08 467 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

cainiaoxianfei2007 墨衍会员 · AI 创作全网分发关注 + 加入社区

AI自动出题系统：KL散度与熵驱动的编程题生成技术在AI评测与教育技术领域，自动题目生成系统正成为突破传统评估瓶颈的关键工具。从信息论角度看，KL散度（相对熵）和熵作为核心数学工具，分别量化题目新颖性与多样性，解决了AI模型通过记忆已有题目作弊的难题。这类技术通过基因算法实现题目进化，结合变异与杂交机制，配合自我验证流水线，能高效生成覆盖多难度层级的编程题目。在教育实践场景中，系统97%的验证准确率和分钟级出题速度，显著优于人工出题方式，特别适用于编程教育中的个性化练习生成。以加州大学伯克利分校的InfoSynth系统为例，其采用的链式思考反馈和殖民地式并阅读详情

编制程序，计算某个学生的奖学金等级，以三门功课成绩M1、M2、M3为评奖依据。奖学金评奖标准如下：
一等奖：符合下列条件之一的可得一等奖。
（1）平均分大于95分者。
（2）有两门成绩是100分，且第三门功课成绩不低于80分者。
二等奖：符合下列条件之一的可得二等奖。
（1）平均分大于90分者。
（2）有一门成绩是100分，且其他功课成绩不低于75分者。
三等奖：各门成绩不低于70分者。
符合条件者就高不就低，只能获得高的那一项奖学金。要求显示获奖的等级。

快要考试了，麻烦格外大虾指点！谢谢了！

...全文

Android Camera性能优化概述做camera性能优化方面的工作有几年了，想写一篇文章简单介绍一下其中涉及到的具体技术，这篇文章会大概介绍一下涉及到的技术。阅读详情

cainiaoxianfei2007

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

cainiaoxianfei2007 2007-05-19

打赏
举报

感谢各位大哥们的帮助，谢谢了！！！

cike_1111 2007-05-19

打赏
举报

完整的代码：
窗体内控件
text*3个名字分别为 text1 text2 text3

把如下代码复制到代码窗口内：
Private Sub Form_Click()
m1 = Val(Text1)
m2 = Val(Text2)
m3 = Val(Text3)
If (m1 + m2 + m3) / 3 > 95 Then MsgBox "1": Exit Sub
If (m1 + m2 = 200 Or m2 + m3 = 200 Or m1 + m3 = 200) And m1 > 80 And m2 > 80 And m3 > 80 Then MsgBox "1": Exit Sub

If (m1 + m2 + m3) / 3 > 90 Then MsgBox "2": Exit Sub
If (m1 = 100 Or m2 = 100 Or m3 = 100) And m1 > 70 And m2 > 70 And m3 > 70 Then MsgBox "2": Exit Sub

If (m1 + m2 + m3) / 3 > 70 Then MsgBox "3": Exit Sub
End Sub

然后自己判断看这个程序是否有错误！

cike_1111 2007-05-19

打赏
举报

全部 if 语句判断就可以了！！

1等奖条件1转换为代码[平均分大于95分者。]

if (m1+m2+m3)/3 >95 then msgbox"1":exit sub '

[exit sub 的作用是符合这个条件就退出过程了，为了预防2个条件都满足的时候弹出2次提示信息]

1等奖条件2[有两门成绩是100分，且第三门功课成绩不低于80分者]

if (m1+m2=200 or m2+m3=200 or m1+m3=200) and m1>80 and m2>80 and m3>80 then msgbox"1":exit sub

同理判断2等奖的2个条件：
if (m1+m2+m3)/3>90 then msgbox "2":exit sub
if (m1=100 or m2=100 or m3=100) and m1>70 and m2>70 and m3>70 then msgobox"2":exit sub

3等奖的条件就更简单了：
if （m1+m2+m3）/3 > 70 then msgbox"3" :exit sub
=================================================
不知道平均分刚好上90 算不算2等奖若算的话把条件> 改为>=

cike技术交流群16874787

jadeluo 2007-05-19

打赏
举报

Option Explicit

Sub SwapDouble(ByRef A As Double, ByRef B As Double)
Dim C As Double
C = A
A = B
B = C
End Sub

Function GetScope(ByVal M1 As Double, ByVal M2 As Double, ByVal M3 As Double) As String
Dim Average As Double
Average = (M1 + M2 + M3) / 3
'将M1,M2,M3按由大到小的顺序排列
If M1 < M2 Then SwapDouble M1, M2
If M1 < M3 Then SwapDouble M1, M3
If M2 < M3 Then SwapDouble M2, M3
If (Average > 95) Or (M1 = 100 And M2 = 100 And M3 >= 80) Then
GetScope = "一等奖"
ElseIf (Average > 90) Or (M1 = 100 And M2 >= 75 And M3 >= 75) Then
GetScope = "二等奖"
ElseIf M1 >= 70 And M2 >= 70 And M3 >= 70 Then
GetScope = "三等奖"
Else
GetScope = "无此奖项"
End If
End Function

Private Sub Form_Load()
Debug.Print GetScope(85, 100, 100)
Debug.Print GetScope(85, 100, 80)
Debug.Print GetScope(85, 75, 80)
Debug.Print GetScope(85, 60, 80)
End
End Sub

cainiaoxianfei2007 2007-05-19

打赏
举报

在线等候！！

★★★求助！一个简单的编程题

相关推荐