随机出题求计算总分

yangqianming · 发表于 2023-4-18 19:33

本帖最后由 yangqianming 于 2023-4-21 13:59 编辑

我弄了个文本文件题库，在ppt中打开并随机显示题目，现在想实现：
1、当做5个题目后就自动显示出总分（20×答对题目数）点击显示成绩按钮也可以显示总分计算方法相同。

2、当点击再来一次让程序初始化。

选择题练习.rar (46.48 KB, 下载次数: 8)

yangqianming · 发表于 2023-4-19 09:34

别沉下去了哟！

xsy我可以很好 · 发表于 2023-4-19 10:32

'检测答案对错
Private Sub cmdCheck_Click()
A = Val(Label1.Caption)
If SelDaAn = AllTiMu(selindex)(2) Then
B = A + 20
MsgBox "选择的答案是对的"
End If
Label1.Caption = B
End Sub

xsy我可以很好 · 发表于 2023-4-19 10:55

选择题练习.rar (50.05 KB, 下载次数: 7)

yangqianming · 发表于 2023-4-19 11:55

xsy我可以很好发表于 2023-4-19 10:55

老师好！能在帮我看看吗？打开加载试题按钮灰掉了，点其它显示下标越界，点再来一次也没反应。麻烦了，谢谢！

选择题练习.rar (42.48 KB, 下载次数: 4)

yylucke · 发表于 2023-4-19 13:01

yangqianming 发表于 2023-4-19 11:55
老师好！能在帮我看看吗？打开加载试题按钮灰掉了，点其它显示下标越界，点再来一次也没反应。麻烦了，谢 ...

加入以下代码
Private Sub cmdzlyc_Click()
cmdLoad.Enabled = True
End Sub

yangqianming · 发表于 2023-4-19 14:31

yylucke 发表于 2023-4-19 13:01
加入以下代码
Private Sub cmdzlyc_Click()
cmdLoad.Enabled = True

的确加上这句就能运行了，谢谢！

yangqianming · 发表于 2023-4-19 15:37

yangqianming 发表于 2023-4-19 14:31
的确加上这句就能运行了，谢谢！

测试了一下出现了2个问题：

1、点击下一题题目有太多重复，想不让试题重复
2、分数计算是点判断对错出现分数点一次就加一次分，这样选择一个答案就不断点分数就直接涨，
我把按钮改为提交试题，点击就出现本次做题所得分（对的题目数/本次做题总数）*100
请老师在帮帮我，谢谢！

选择题练习.rar (43.75 KB, 下载次数: 4)

yangqianming · 发表于 2023-4-19 20:25

如果题目中出现分数应该就没有办法了。

yangqianming · 发表于 2023-4-20 12:38

求老师们出手相助，谢谢！

		自动登录	找回密码
密码			免费注册

[已解决] 随机出题求计算总分

评分

评分