咨询高手！！！汉字输入考试系统方面

2009-05-20 11:02:16 123 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

因果推断综述-A Survey on Causal Inference 最近读到一篇讲述很全面的综述文献-《A Survey on Causal Inference》，对于接触因果推断不久的同学而言是特别详细的介绍和科普。文献很长，我会分成几部分介绍。目录摘要第一部分：简介第二部分：因果推断基础知识第三部分：基于三种假设的因果推断方法第四部分：实验第五部分：应用摘要几十年来，因果推理是一个跨许多领域的关键研究主题，如统计、计算机科学、教育、公共政策和经济学。与随机对照试验相比，研究方向由于可用数据量大且预算要求低，如今，从观测数据.. 阅读详情

一到时间就出对话框“类型不匹配”，提示下面这行
，MsgBox "你的考试已经结束！当前考试时间为 " + Str(Label4.Caption) + "分钟，你的正确率为：" + Str(Val(h / z * 100)) + "% ，你的速度是：" + Str(Val(z / g * 60 * Label4.Caption)) + "题 /分钟！", vbOKOnly + vbExclamation, "考试结束"

若只有MsgBox "你的考试已经结束！”就没问题，
请高手帮忙看看！！！出在什麽地方？谢谢！

...全文

Sistema-Clinico--com-Laravel:用Php Laravel框架开发的咨询和考试系统咨询和考试系统-Laravel在与Laravel的首次接触中作为测试在2015年制造。 2015年完成的一个简单的咨询和临床检查系统的提纲。功能完善但不完善且执行不力的项目。不要在新项目中使用。它立即下载

tjzym

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

+ 关注 + 加入社区

切换为时间正序

DengXingJie 2009-05-20

打赏
举报

出错时你试试你那些变量的值都是一些什么，会不会出现非数字型的数据

Tiger_Zhao 2009-05-20

打赏
举报

Label4.Caption, h, z, g 的值？

jhone99 2009-05-20

打赏
举报

MsgBox "你的考试已经结束！当前考试时间为 " + Str(Label4.Caption) + "分钟，你的速度是：" + Str(Val(z / g * 60 * Label4.Caption)) + "题 /分钟！", vbOKOnly + vbExclamation, "考试结束"

怎么样？

jhone99 2009-05-20

打赏
举报

MsgBox "你的考试已经结束！当前考试时间为 " + Str(Label4.Caption) + "分钟，你的正确率为：" + Str(Val(h / z * 100)) + "% ",vbOKOnly + vbExclamation, "考试结束"

怎么样？

jhone99 2009-05-20

打赏
举报

一段一段试

liuxu2559 2009-05-20

打赏
举报

z / g * 60 * Label4.Caption

Label4.Caption的值如果是数值型的，要转化一下z / g * 60 *val(Label4.Caption)

liuxu2559 2009-05-20

打赏
举报

估计h,z,g是定义的全局变量,Label4这个要看你界面是怎么设计的。
你可以将这些变量改成常量先试试.
建议将+换成&

tjzym 2009-05-20

打赏
举报

这是所有源程序，就从csdn下载的，我也觉得Label4.Caption, h, z, g 这些变量没定义，可我是新手，看不懂，请高赐教！！！
Dim a As Integer, x As Integer, c As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Command1.Enabled = False
Text2.SetFocus
End Sub

Private Sub exit_Click()
End
End Sub

Private Sub Form_Load()
x = 0
RTB.SelStart = 0
RTB.SelLength = 1
RTB.SelColor = vbBlue
End Sub

Private Sub Text1_Change()
Text1.SelText
Text1.Enabled = False
End Sub

Private Sub Label10_Click()

End Sub

Private Sub Label13_Click()

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
a = Len(Text2.Text)
If a > 0 Then
If KeyAscii <> 8 Then
If Mid(RTB.Text, a, 1) = Mid(Text2.Text, a, 1) Then
x = x + 1
RTB.SelStart = x
RTB.SelLength = 1
RTB.SelColor = vbBlue
End If
End If
If KeyAscii = 8 Then
If a > 1 Then
If Mid(RTB.Text, a, 1) = Mid(Text2.Text, a, 1) Then
x = x - 1
RTB.SelStart = x + 1
RTB.SelLength = 1
RTB.SelColor = vbBlack
End If
End If
End If
End If

End Sub

Private Sub Timer1_Timer()
a = Len(Text2.Text)
c = c + 1
Label13.Caption = Int(a * 60 / c)
Label7.Caption = Val(Label7.Caption) - 1
If Label7.Caption = -1 Then
Label5.Caption = Label5.Caption - 1
Label7.Caption = "59"
End If
If Label5.Caption = 0 And Label7.Caption = 0 Then
Timer1.Enabled = False
MsgBox "你的考试已经结束！当前考试时间为 " + Str(Label4.Caption) + "分钟，你的正确率为：" + Str(Val(h / z * 100)) + "% ，你的速度是：" + Str(Val(z / g * 60 * Label4.Caption)) + "题 /分钟！", vbOKOnly + vbExclamation, "考试结束 ---云中鹤"
End
End If
If a <> 0 Then
Label10.Caption = Int(x / a * 100)
End If
End Sub

射天狼 2009-05-20

打赏
举报

只贴这一段程序能看出什么啊。你的变量g、z都是什么类型？

建议你将字符串连接由加号“+”改为“&”试一下。

天狼工作室
http://www.j2soft.cn/

咨询高手！！！汉字输入考试系统方面

相关推荐