用VB写这样一个简单的程序!
就是这么简单的一个程序..
要求就是.
比如我写入 潘安 的话.
点是帅哥么? msgbox跳出来.当然
其它的比如我乱写一些东西的话.
点是帅哥么? msgbox跳出来.扯蛋吧你
/
请大虾可以指点我一下么?
VB code:
Private Sub Command1_Click()
If Text1 = "潘安" Then
MsgBox "当然"
Else
MsgBox "扯蛋吧你"
End If
End Sub
VB code:
Private Sub Command2_Click()
If Text1 = "西施" Then
MsgBox "当然"
Else
MsgBox "扯蛋吧你"
End If
End Sub
结帖率:0.00%
so easy?
你要连接数据库或一个文件。然后比较。
VB code:
Private Sub Command1_Click()
If Text1 = "潘安" and Text1 = "刘德华" Then
MsgBox "当然"
Else
MsgBox "扯蛋吧你"
End If
End Sub
VB code
Code highlighting produced by Actipro CodeHighl
相关问答:
想在warcraft3里进行写屏操作【如对战平台中的胜负提示信息】,效果就像游戏平台中一样,我试过在一窗口中写入文字,然后一直让窗口强制最前,虽然能实现文字显示,但是文字会不断闪烁,而且有不确定BUG,通过论坛搜 ......
在vb这编程里似乎有很多的东西是相联系的,为什么有些人对vb的编程摸不到头脑啊!并且有些事很容易的,但是却把它们的代码变成复杂,也去想一些不能实现的东西啊!
没分了,楼主多来点分!
来接点分
......
怎么优化查询的效率,比如我想从100万条记录中每次只查询100条记录的话,那么这条sql语句该怎么实现,注意:语言是VBScript的,
http://www.cnblogs.com/anjou/archive/2007/10/17/926944.html
涉及到算法,goog ......
据说java语言是这样的,那VB呢?
byte[] b(byte)0x62,(byte)0x11,(byte)0x72,(byte)0x31};
try {
System.out.println(new String(b,"UTF-16"));
} catch (UnsupportedEnco ......
请各位指点下:程序代码如下mingchen = "C:\文件路径\"
cat = New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & min ......