1樓：匿名使用者
是查詢「字」重複還是「句」重複？
vb 如何獲取字串中一個字元出現的次數
2樓：匿名使用者
迴圈遍歷這個字串，用一個計數器來記錄該字元的個數。
int fun(char str,char ch)return i;}
3樓：匿名使用者
function strcount(stra as string, strb as string) as long
dim lnga as long
dim lngb as long
dim lngc as long
lnga = len(stra)
lngb = len(strb)
lngc = len(replace(stra, strb, ""))
strcount = (lnga - lngc) / lngbend function
4樓：匿名使用者
我為 正確答案註解了一下
function hqcs( s1 as string, s2 as string) as long
dim i1 as long '獲取字串s1裡 的 s2字串 出現的次數
dim i2 as long 's1為 總字串 被檢測的字串 s2特殊字串
dim i3 as long '假設 a113a22a55 裡 a出現了3次 s2則是a
i1 = len(s1) 's1則為"a113a22a55"
i2 = len(s2)
i3 = len(replace(s1, s2, ""))
hqcs = (i1 - i3) / i2
end function
用vb找到文字中重複的行？
5樓：匿名使用者
private sub command1_click()dim s1, s2, s3
for each s1 in split(text1, vbcrlf)
if instr(vbcrlf & s2 & vbcrlf, vbcrlf & s1 & vbcrlf) = 0 then
s2 = s2 & vbcrlf & s1else
s3 = s3 & vbcrlf & s1end if
next
text2 = mid(s2, 3)
text3 = mid(s3, 3)
end sub
6樓：匿名使用者
方法一：將text1中資料逐行新增到資料庫中，然後分組查詢，select 欄位名，count(*) as 重複次數 from 表 group by 欄位，把查到的資料全部賦值給text2，把重複次數大於0的賦值給text3
方法二：利用陣列，a=split(text1.text,chr(13)+chr(10)),然後做兩層迴圈
dim a() as string
a=split(text1.text,chr(13)+chr(10))
for i=0 to ubound(a)
if a(i)<>"" then
for j=0 to ubound(a)
if a(i)=a(j) then
text3.text=text3.text+chr(13)+chr(10)+"第" & j & "行與第" & i ^ "行重複：" & a(j)
a(j)=""
end if
next
text2.text=text2.text+chr(13)+chr(10)+a(i)
end if
next
7樓：華仔成教
既然你已經找到**，那我就借花獻佛一下：
if instr(strtemp, objstr) thenstrtemp = replace(strtemp, objstr, ""):
text2 = text2 & objstr & vbcrlfelse 『在這裡多兩行就行啦
text3 = text3 & objstr & vbcrlfend if
8樓：叫爺張淼
dim a() as string
a=split(text1.text,chr(13)+chr(10))
for i=0 to ubound(a)
if a(i)<>"" then
for j=0 to ubound(a)
if a(i)=a(j) then
text3.text=text3.text+chr(13)+chr(10)+"第" & j & "行與第" & i ^ "行重複：" & a(j)
a(j)=""
end if
next
text2.text=text2.text+chr(13)+chr(10)+a(i)
end if
next
如何用vb統計一段文章當中某個字元出現的次數.
9樓：錢寄翠
沒學過vb.. 先定義一個整形變數,初始為0,比如int i=0; 然後迴圈整段文章,用你想找的那個字元和文章中的字元比較.. 如果存在,將整形變數 i++ 迴圈結束後i的值就是字元出現的次數
vb在文字框中任意輸入一個數字字串,統計各個數字出現的次數。
10樓：在世貿天階灌籃的高飛燕草
private sub command1_click()for i = 0 to 9
s = s & i & "出現了：" & len(text1) - len(replace(text1, i, "")) & "次" & vbcrlf
next
msgbox s
end sub
VB用核取方塊怎麼實現多條件的查詢
樓主說 問題補充 我要的不是if check1.value 1 and check2.value 1 then 這種的，窗體有很多核取方塊，用這種的話，麻煩的不行,要把每種選擇搭配的可能都來個if.我要一個簡便的方法 這完全是需用 if then elseif then elseif then en...
VB程式設計題，用陣列實現隨機輸出小寫英文字母
private sub form click dim a 10 as string dim i as integer,k as integerform1.autoredraw truerandomize print 產生的十個字母是 for i 1 to 10 a i chr int rnd 26 ...
怎樣用VB做個編寫程式，在文字框中顯示當前系統時間，並隨時間進行變化
你新增一個timer控制元件 interval屬性 100 新增事件 private sub timer1 timer text1.text format now,hh mm ss end sub private sub form load timer1.enabled trueend sub pr...