合肥徽娘食品有限公司:请教简单VB问题,有悬赏分

<%
mystr="abcd"
if instr(1,mystr,"a")<>0 or instr(1,mystr,"b")<>0 then
f=12345
elseif instr(1,mystr,"c")<>0 or instr(1,mystr,"d")<>0 then
f=1234
else
f=123
end if
response.write f
%>

df=字符串变量
if indtr(1,df,"a")<>0 or indtr(1,df,"b")<>0 then
f=12345
elseif indtr(1,df,"c")<>0 or indtr(1,df,"d")<>0 then
f=1234
else
f=123
end if

你就给那么多点分,要人帮你写程序,没门.加到100,我帮你搞定,你那个也太简单了点.

支持我！
Private Sub Form_Load()
Dim Str$
Str = "abcd"
If InStr(Str, "a") Or InStr(Str, "b") Then
f = 12345
ElseIf InStr(Str, "c") Or InStr(Str, "d") Then
f = 1234
Else
f = 123
End If
End Sub

问题不清楚，那个 abcd 究竟是字符变量，还是其它的？
不过你可以用
if...then
...
elseif...then
...
...
end if 语句。
实践一下吧！

（1）VB不只是数据库和报表。不要以为VB就是数据库和报表，这只是VB强大功能的一小部份。如果这此都搞不清，还是好好的看一下相关的书籍，比在这里问问题有用多了。我以前没有学过数据库，只是有些编程的思路，后来学数据库就非常容易了。我做报表一般用RichTextBox或是From来做，一般都能做的很好，也不用去考虑什么水晶报表了。
（2）不要迷信于API。API能做很多东西，但有些东西在VB里面的函数中就有，API只是VB对WindowsSDK的封装而已。如果想学好API，建议学习SDK。如果VB本身就能很好的支持这个功能，何必还要用API呢。
（3）不要什么都想着控件。如果做程序都想着第三方控件的话，代价是很高的，不仅程序大，安全性也低了很多。其实VB本身带的控件已经完全够用了。
（4）认认真真的把MSDN中关于VB的内容好好看一看，特别是函数和语句，很有用的。
（5）遇到问题不要直接来这里问，自己好好想一想，试着解决这个问题，这虽然在时间上慢了，可是在自身的提高上却有很大的帮助。
（6）没事的时候，多研究些语言上的东西，如数据结构和算法，不要老是想着什么花哨的东西。这对以后的提高非常有帮助。
（7）如果想精通VB，在VB的基础上，学学VC还是非常的帮助的。拿VC的东西对照VB来想一想。
（8）有些很大的问题要自己动脑来想。如设计一整套软件，这是一个非常好的学习机会，不要让别人来帮你设计，只是让别人帮你提些建议。
（9）学VB要付出代价的，没有不劳而获的。 如果想成为高手，还要会好多与VB不相关的东西，但这些东西都能用到VB上，如photoShop可以做界面美化，TCP/IP协议可以帮你更容易的开发网络程序，MCI和WFV多媒体接口可以更好的开发多媒体应用，英语可以使用更好的学习英文文档。等等好多的。
（10）祝初学者都能成功