求一个vb心理测试小程序

发布网友 发布时间：2022-04-20 12:15

我来回答

共2个回答

热心网友 时间：2023-05-11 10:56

你分析一下我下面的代码，相信你会很快解决问题的！
Dim Zf As Integer
Dim An As Integer
Private Sub Command1_Click()
Dim Dcf As Integer
An = An + 1
Dcf = InputBox("请输入本次得分数：")
Zf = Zf + Dcf
Print "第" & An & "次按按钮后总分为：" & Zf
End Sub

热心网友 时间：2023-05-11 10:57

定义一个dim score as integer
第一题点击“下一题”按钮时，判断选择了哪个，然后score=score+多少分
第二题点击“提交”时，再判断下score=score+多少分
这个score就是2题的总分

大概思路是这样的，我这没VB，代码也不好写。