| 测测你的智商 | ||||||||||||||||||||||||||||||||||||||||||
| 不久前，看到过一个有趣的小程序，这程序是测测你的智商，不过这个应用程序是DOS下的。想了想：能不能编成WINDOWS下的应用程序呢？于是，用VB把这个小程序编成了WINDOWS下的应用程序。 这个应用程序的大概意思是：先产生一个四位数的随机数，每一位为0—9中的一个数字，且各位上的数不重复，让你猜这个数。在文本框中输入这个数，按下确定按钮后，首先提示你有X个数字值对且位置对，有Y个数值对，但位置不对。根据系统提示最终可猜出计算机开头产生的随机数。如果你8次还没有猜到，计算机会告诉你正确答案。 建立应用程序的步骤： （1）、新建一个工程，用标准窗体。 （2）、加入3个命令按钮和一个文本框。（图象：image.jpg) （3）、主要属性如下：
窗体声明： Option Explicit Dim a , b , c , d As Integer Dim aa ,bb,cc,dd As String Dim a1,b1 As Integer Dim i As Integer 命令按钮1的代码(代码过长用____连接）： Private Sub cmdProRan _Click () cmdOk.Caption= “确定” i = 0 a = Int (Ran*9 + 1) Do While True b = Int ( Ran*9 +1 ) b = b + 5 If b >= 10 Then b = b-10 End If If a <> b Then Exit Do End If Loop Do While True c = Int ( Ran*9 +1 ) c = c + 8 If c >= 10 Then c = c-10 End If If a <> c And b <> c Then Exit Do End If Loop Do While True d =Int ( Ran*9 +1 ) d = d+3 If d >= 10 Then d= d-10 End If If a <> d And b <> d And c <> d Then Exit Do End If Loop End Sub 命令按钮2的代码： Private Sub cmdOk _Click () Dim Wrong a1=0 b1=0 Wrong: aa = Mid (txtEdit.Text ,1,1 ) bb = Mid (txtEdit.Text ,2,1 ) cc = Mid (txtEdit.Text ,3,1 ) dd = Mid (txtEdit.Text ,4,1 ) If aa = bb And aa = cc And aa = dd And bb = cc And bb = dd And ____ cc = dd Then Goto Wrong: End If If a = Val (aa) Then a1= a1 + 1 Else If a = Val (bb) Or a = Val (cc) Or a = Val(dd) Then b1=b1+1 End If End If If b = Val (bb) Then a1= a1 + 1 Else If b = Val (aa) Or b = Val (cc) Or b = Val(dd) Then b1=b1+1 End If End If If c = Val (c) Then a1= a1 + 1 Else If c = Val (bb) Or c= Val (aa) Or c = Val(dd) Then b1=b1+1 End If End If i = i+1 If a1 = 4 Then MsgBox “恭喜!你的智商很高”,, “恭喜” End If If i = 8 Then Dim Info Info = Ltrim(Str(a))+Ltrim(Str(b))+Ltrim(Str(c))+Ltrim(Str(d)) cmdOk.Caption = “请单击产生随机数按钮”
End Sub 以上程序在VB5测试成功. 学习点滴：在学习计算机语言时，能多看一些语言，这对我们的学习是有很大的帮助。在这点我有深刻的体会。 你也能这样，那你的编程水平就景上添花了,能编出更高有水准的应用程序. |