[房子装修设计公司怎么找？有没有靠谱的推荐]家庭装修是家里的一件大事，一定要认真的挑选一个好的装修公司，一个好的装修公司就是装修成功的一半，所以一定不要马虎。 1、全家好好地商量一下，装修成什么样的风格，打算拿出多少...+阅读

天啊 你再加个判断就可以啊 你是真的不会写 还是懒得写啊 把下面的代码拷贝过去 自己运行一下就知道怎么加这些限制 其实就加一个不可重复输入数字和猜的字数就可以了 把我的s和e 改成你的a和b就符合你的要求了 --- 自己稍微改一点点 Private Function getSerial(ByVal iLen As Integer, Optional ByVal bRepeat As Boolean = False) As String If iLen 9 Then Exit Function End If Dim iRnd As Integer Dim iCount As Integer Dim bExist As Boolean Dim sSerial As String DoEvents Do iRnd = Int(Rnd(Now) * 9) If Not bRepeat Then For iCount = 1 To Len(sSerial) If iRnd = Val(Mid(sSerial, iCount, 1)) Then bExist = True Exit For Else bExist = False End If Next End If If Not bExist Then sSerial = iRnd & sSerial End If Loop While Len(sSerial) 'Debug.Print getSerial = sSerial End Function Private Function cmpNoRepeatS(bEqual As Boolean, ByVal inString As String, ByVal cmpString As String) As String Dim iCount As Integer Dim jCount As Integer Dim iSame As Integer Dim iExist As Integer For iCount = 1 To Len(cmpString) For jCount = 1 To Len(inString) If Mid(cmpString, iCount, 1) = Mid(inString, jCount, 1) Then If jCount = iCount Then iSame = iSame + 1 Else iExist = iExist + 1 End If End If Next Next If iSame = Len(cmpString) Then cmpNoRepeatS = ＂OK..＂ bEqual = True Else cmpNoRepeatS = iSame & ＂S＂ & iExist & ＂E ＂ & inString bEqual = False End If End Function Private Sub Command1_Click()'Debug.Print serial(8, True) Dim b As Boolean Picture1.Print cmpNoRepeatS(b, Text1.Text, Text2.Text) If b Then Command1.Enabled = False Text2.Visible = True End If End Sub Private Sub Command2_Click() Picture1.Cls Text1.Text = ＂＂ Text2.Text = getSerial(5) Text2.Locked = True Text2.Visible = False Command1.Enabled = True End Sub

以下为关联文档：

垃圾填埋场设计国内的模式一般是由政府成立一个垃圾处理公司，之后招标分块承包给专业公司，应该是这样的。包括设计规划、土方施工、防渗工程等等，之后正常的运营由市政负责，也有少部分直接全部...

求垃圾填埋场臭气处理工程设计方案展开全部 臭气污染是填埋场最直观的污染之一，也是最难处理的污染。 例如，北京朝阳高安屯垃圾场，仅做臭气处理就动用了近亿元资金。 以下为具体分析及应对方法 一、臭气来源： 1、...

生活垃圾卫生填埋场设计需要什么参数工程设计参数 1）设计最大填埋量1500t/d，设计使用年限 12年。 2）填埋区占地面积29.9hm2，其中Ⅰ区占地面积为6.4hm2，Ⅱ区占地面积为12hm2，Ⅲ区占地面积为11.5hm2。 3）填埋区总库容630...

vb程序设计射击游戏Private Declare Function GetObject Lib ＂gdi32 ＂ Private Declare Function GetBitmapBits Lib ＂gdi32 ＂ Private Declare Function SetBitmapBits Lib ＂gdi32 ＂ Dim PicBits()...

如何用VB程序设计打地鼠游戏下面是源代码：Form1: Private Sub Form_Load() Dim temp As Integer Randomize temp = Int(Rnd * 3) + 1 Form1.Picture = LoadPicture(＂C:\Users\Administrator\Desktop\打地...

求帮做VB课程设计打字游戏Dim h As Integer Dim n As Integer Private Function zi() Randomize If Form1.Option1.Value Then a = Int((122 - 97 + 1) * Rnd + 97) ElseIf Form1.Option2.Value Then...

如何设计一个很简单的VB程序小游戏利用vb控件做个坦克大战类的游戏即可，炮弹和坦克都用控件实现就行。唯一难点是控制控件移动以及炮弹击中目标的碰撞检测判断。给你一个简单实现代码 这是一种碰撞检测方法，下...

VB小游戏设计用timer控件，在它的timer事件写下面代码 private sub timer1_timer() dim step as integer dim n as integer '要爬的位置 step=10 '这个是速度 n=200 '假设要向上爬到座标10...

vb程序设计猜数游戏Dim a As Byte Dim b As Byte '回车次数 Private Sub Command1_Click() Randomize a = Int(Rnd * 100 + 1) Command1.Enabled = False b = 0 End SubPrivate Sub Text1_KeyP...