1樓：匿名使用者
dim i as integer
dim j as integer
private sub cmd1_click()i = i + 1
text1.text = i
if i = 10 + 5 * j thenmsgbox "你的次數到了" & i & "次了。"
j = j + 1
end if
end sub張志晨
2樓：愛梔竹的人
你說的是不可能的；msgbox 是獨佔對話方塊；也就是說，你點選了一次 msgbox 顯示你的次數到了1，你就沒法點了，焦點已經被msgbox獨佔，除非你關閉msgbox。
不過，你可以用自己的非獨佔視窗來代替msgbox，以實現你說的功能。 需要自己做個訊息視窗form2,上邊放一個label1 顯示訊息，放一個確定按鈕，按下後關閉視窗.
form1裡的**,
private function setparent lib "user32" _
(byval hwndchild as long, _
byval hwndnewparent as long) as long
private sub cmd1_click()
if isnumeric(text1.text) then text1.text=cint(text1.text)+1 else text1.text=1
form2.show
form2.label1.caption="你的次數到了" & text1.text
separent form2.hwnd,me.hwnd '用來設定form2的父視窗為form1
end sub
3樓：揮杆問道
最簡單的**,自己試驗下吧 對樓上2位無語...
dim i%
private sub cmd1_click()i = i + 1
text1.text = i
if i mod 5 = 0 then
msgbox "你的次數到了" + cstr(i) + "了", 64, "提示"
end if
end sub
4樓：匿名使用者
private sub command1_click()i = i + 1
text1.text = i
if i mod 5 = 0 then
if i > 9 then
msgbox "你的次數到了" + cstr(i) + "了", 64, "提示"
end if
end if
end sub
人的心理真的搞不懂啊，男生的心理真的搞不懂
永遠不要拿男人的思想去對待女生 女漢子除外 因為男生是理性生物，而女生是感性生物，她們更在乎細節與關心，對這種女生，不要一味的討好，時不時的遠離會讓她更有安全感，距離產生美，但也別太遠，若因若離即為最好 可能她是報復，幽默，和他愛的人開玩笑，逗她玩。我本人有時也這樣的，有些東西我估計我周圍的大多數朋...
搞不懂女的在想什麼，搞不懂女人們都在想什麼，請大家幫忙一下
其實感情的事，要隨緣的，而不是賤不賤的問題，只是你沒遇到屬於你的那個人罷了，現在你不用想這些沒用的，畢竟都已經是過去的事了，勸你還是好好想想現在的那個女孩值不值得你去喜歡，值不值得你去付出，如果你也想和她發展下去，就好好珍惜她吧，是你的跑也跑不掉，不是你的再挽留也不會有結果 呵呵，知道什麼叫做 半糖...
搞不懂他的想法，鬱悶
沒必要刻意搞懂他 如果他是你的真愛 你根本沒必要這麼麻煩！那會變的很簡單的 老不正經的，沒有老師樣，那種男人離裡遠點，跟他太親密沒好下場，吃虧的是你自己啊 只能說你那老師太幼稚，有啥不能溝通的啊，小心眼的人就這樣！我想是你說了冒犯他的話，他不敢再和你聊了吧。其實師生多聯絡不是不好。只是也不要太過火了...