当前位置：首页 →编程相关 → 正文

求助VB高手

文章来源：网络收集　　文章录入：天边　　发布时间：2006-09-16　　【放大字体 缩小字体】


我的QQ号码是75659445希望广大高手帮助
Private Sub Command1_Click()
Text1.Text = "想学"
End Sub

Private Sub Command2_Click()
Text1.Text = "VB好学吗?"
End Sub

Private Sub Command3_Click()
End
End Sub
请教:当Text1.Text = "VB好学吗?"时,点击Command1让Text1.Text = 好学
提问者： 匿名

这个简单做个判断

Private Sub Command1_Click()
if text1.text = "VB好学吗?" then
text1.text = "非常好学"
else
text1.text = "想学"
end if
End Sub

把这个替换掉你上面那个就可以了
先谢谢你,不过您的帮助并没解决我的问题

..
上一篇：Sin ？ =0.6   下一篇：5 用数组求取Fibonacci数列的前40项，并在最后一起输出
打印本文　 返回顶部　 加入收藏　 关闭窗口