锐客网

  1. 首页 > 睿知 > it技术 > >

vb.nettts的简单介绍( 三 )

IT技术穿址


l2.Text = Str(a)"x+"Str(b)"y+"Str(c)"z="Str(bb)
l3.Text = Str(b)"x+"Str(c)"y+"Str(d)"z="Str(cc)
End Sub
Private Sub ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ok.Click
If Val(tx.Text) = x And Val(ty.Text) = y And Val(tz.Text) = z Then
tts = tts + 1
End If
alls = alls + 1
tx.Text = ""
ty.Text = ""
tz.Text = ""
x = Int(1 + (1000 ^ 0.5) * Rnd())
y = Int(1 + (10000 ^ 0.4) * Rnd())
z = Int(1 + (100000 ^ 0.3) * Rnd())
a = Int(2 + 4 * Rnd())
b = Int(1 + a * 2 * Rnd())
c = Int(1 + b * 2 * Rnd())
d = Int(1 + c * 3 * Rnd())
aa = x + y + z
bb = a * x + b * y + c * z
cc = b * x + c * y + d * z
l1.Text = "x+y+z="Str(aa)
l2.Text = Str(a)"x+"Str(b)"y+"Str(c)"z="Str(bb)
l3.Text = Str(b)"x+"Str(c)"y+"Str(d)"z="Str(cc)
End Sub
Private Sub ks_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Click
Dim lv As Single
If Not (alls = 0) Then
lv = Int(tts * 100000 / alls) / 1000
MsgBox(Str(lv)"%", , "正确率")
tx.Visible = False
ty.Visible = False
tz.Visible = False
ok.Visible = False
l1.Visible = False
l2.Visible = False
l3.Visible = False
Else
MsgBox("答题!", , "答题!")
End If
End Sub
End Class
【vb.nettts的简单介绍】vb.nettts的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.nettts的信息别忘了在本站进行查找喔 。

推荐阅读


上一篇：postgre服务无法启动，post 服务器

下一篇：娘子关压饼工具直播，娘子关脆饼