这一久突然对斗地主很感兴趣,人又很喜欢钻牛角尖,每一局打错了的牌局,都想研究一下错在那点?
如果改成另一种出牌方法,结果又会怎么样?于是就想找个可以帮助分析牌局的软件.
在网上搜了半天都没有找到我想要的东西.最后决定自己学程序语言,自己动手写一个。呵呵,知道不容易,特别是对我这个对程序语言一窃不通的人而言(大学时学FORTRAN还没有出校门就还给老师了).但相信也不太难的.

呵呵，今天我的VB教程已经学到第十课了（宁波电大黄文老师的视频教程，共29课），有点生涩，但还是要坚持。为自己加油吧！

今天跟着老师的实例做了一个在Text1中查找关键字，并把关键选中的例子。却没有成功，很郁闷，特此上论坛来向各位大虾请教，那位大虾如果路过，请高抬贵手，不吝指教。您的解惑是对一个菜鸟学习的最大支持，先谢过了：

代码如下：
Dim Findstr As String
Findstr = InputBox("请输入要查找的关键字！")
Dim Findaddr As Integer
Findaddr = InStr(Text1.Text, Findstr)
If Findaddr >= 0 Then
Text1.SelStart = Findaddr - 1
Text1.SelLength = Len(Findstr)
Else
MsgBox "没有查找到你要查找的字符"
End If

End Sub

Private Sub Form_Load()
Text1.Text = "如果能看透聚散分离，我想我会更擅长安慰伤心；陪朋友唱了一夜失恋人唱的歌曲，我要伤心，但不忍离去！"
End Sub

当输入“失恋”时，没有选中Text1文本中的“失恋”关键词，这是为什么？
而输入“king”时,报错，调试指向此语句：Text1.SelStart = Findaddr - 1为什么？

[此贴子已经被作者于2007-6-23 14:13:40编辑过]

哈哈，太谢谢了！我这张求助贴同时还发在http://www.vbgood.com上，没有解决，还被一个专家嘲笑哦！无语。。。。谢谢Joforn版主！很喜欢这里的氛围！呵呵！
不过不是太明白SetFocus具体是什么意思！能否具体解释一下它的作用及用法。

[此贴子已经被作者于2007-6-24 0:57:50编辑过]

呵呵，没有想来引来那么多的相关讨论，又学到很多东西。谢谢缘子弹的解答，谢谢大家。