热搜词: 

人品计算器,谁知道人品计算器vb代码是多少

发布:小编

本文目录

谁知道人品计算器vb代码是多少

***/f?kz=209715785 我的计算器 Option Explicit Dim FocusText As VB.TextBox Dim pd As Boolean Dim x As Double Dim y As Double Dim ch As Integer Private Sub Command1_Click(Index As Integer) On Error Resume Next FocusText.SetFocus If Index SendKeys Index ElseIf Index = 10 Then ch = Index - 10 x = Val(Text1.Text) Text1.Text = "" ElseIf Index = 14 Then y = Val(Text1.Text) Select Case ch Case 0 Text1.Text = x + y Case 1 Text1.Text = x - y Case 2 Text1.Text = x * y Case 3 Text1.Text = x / y End Select ElseIf Index = 15 Then FocusText.SetFocus SendKeys "{BS}" ElseIf Index = 16 Then FocusText.SetFocus SendKeys "." End If End Sub '防止输入多个小数点以及出数字外的其他字符 Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii 57) And KeyAscii 46 And KeyAscii 8 Then KeyAscii = 0 End If If pd = True And KeyAscii = 46 Then KeyAscii = 0 End If If pd = False And KeyAscii = 46 Then pd = True KeyAscii = 46 End If End Sub '防止 Ctrl + v 粘贴 Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyV And Shift = vbCtrlMask Then Text1.Enabled = False Clipboard.Clear Text1.Enabled = True End If End Sub '防止右键粘贴 Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = vbRightButton Then Text1.Enabled = False Clipboard.Clear Text1.Enabled = True End If End Sub Private Sub Text1_LostFocus() Set FocusText = Text1 End Sub 界面如下 0为Command1(0)1为Command1(1)依次类推 ←为Command1(15) 小数点为Command1(16) 贴子相关图片: 界面可以到

人品计算器,谁知道人品计算器vb代码是多少图1

人品计算器在线测试

人品计算器不准。网络预测根本没有科学性,只要随便买几本算命、星座之类的书,把书的内容归类整理后输入后台程序。设置好答案后,不管输入什么名字、生日,计算机程序只会在答案里随便抽出一个作为所谓的预测结果,而这种预测结果自然是不准确、毫无科学依据的。

人品计算器,谁知道人品计算器vb代码是多少图2

人品计算器怎么算的

关键是看你想要一个什么样的人品计算器。如果手机上的你可能需要用javame,如果放在网站上的,你还可以用flash或者Javascript。至少我就看到过好多种人品计算器,但实现都非常简单。如果只是自己玩的话,那么任何的编程语言都是可以的。

有两个主要设计思路,一种是对于同一名字评分固定的,主要是操作字符。

还有一种就是同一个名字,每次的评分可能不用,那就要用到随机函数。

你应该把要求写的再具体点的

,或者说下你擅长什么编程语言。

人品计算器,谁知道人品计算器vb代码是多少图3

如何用excel表格制作人品计算器图片

可以用VLOOKUP函数来实现,前提是你得有个所有人人品的数据库,此函数是个查找与引用函数,你可以试试,不行的话得要编个复合函数,用多个函数组合来实现你的要求!

人品计算器,谁知道人品计算器vb代码是多少图4

以上就是关于人品计算器,谁知道人品计算器vb代码是多少的全部内容,以及人品计算机的相关内容,希望能够帮到您。

大家都在看

查看更多好名分享