很"少",QB是过程型语言,要编个好一点的程序都要自己编很多函数。
很多人认为QB易学,C难学,其实，QB是后难型语言(越学越难学,相信大家都有同感,至于C，开始难学，后来好学，大多数很爱C的基本能精，QB就不同了，开始你有兴趣学，后来就难了，我敢说，就算QB45，他也是个低中级编程者，何况他只会QB4.5。
其实你没必要学一些函数，语句，学了等于没学，以为如果你不融会贯通的话，你就浪费了时间，听我的把，先把你会的语句、函数研究到能把它们运用自如的时候，你就上了一级。

大哥太厉害了，以前我老是东学学，西学学，却不知道如何运用他们，太感谢你了。

呵呵，我不敢评价老板，（怕他听了接受不了）

但我想你还不能正确对比C与QB。
学习-掌握-灵活-经验，
这才是进步的路线。
如果能接受C的精辟广阔的思想，其实要比QB的方便简单灵活要高效得多。

C和BASIC各有千秋；
有能力你做一个好程序；

实话实说,我没有能力

我有一点；
该函数在字符串 s 中清除 Search（注意：如果 s 为 AAABBB，Search 为 AB。会如何？） 
Function StrCil(str As String, Search As String) As String
Dim i As Integer, res As String
res = str
Do While InStr(res, Search)
i = InStr(res, Search)
res = Left(res, i - 1) + Mid(res, i + 1)
Loop
StringCleaner = res
End Function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
下面是和并数组的函数；
DECLARE SUB Marage(A(),B(),C())
Dim A1(), B1(), C1()
 Dim i As Integer
    '对A,B数组赋初值
  A1 = Array(2, 4, 6, 8, 10)
  B1 = Array(1, 3, 5, 7, 9, 11, 13, 15)
  For i = 0 To UBound(A1)
       Print A1(i);
  Next i
  For i = 0 To UBound(B1)
       Print B1(i);
  Next i
  ReDim C1(UBound(A1) + UBound(B1) + 1)
 

 Call Merage(A1(), B1(), C1())        '调用合并过程
  For i = 0 To UBound(C1)
       Print C1(i);
      If (i + 1) Mod 10 = 0 Then  Print
  Next i
 
Sub Merage(A(), B(), C())
   Dim ia As Integer, ib As Integer, ic As Integer
   Dim i As Integer         '当A和B数组均未比较完
   Do While ia <= UBound(A) And ib <= UBound(B)
     If A(ia) < B(ib) Then
       C(ic) = A(ia)
       ia = ia + 1
     Else
       C(ic) = B(ib)
       ib = ib + 1
     End If
     ic = ic + 1
    Loop
    Do While ia <= UBound(A)    'A数组中的剩余元素抄入C数组
      C(ic) = A(ia)
      ia = ia + 1
      ic = ic + 1
    Loop
     Do While ib <= UBound(B)   'B数组中的剩余元素抄入C数组
      C(ic) = B(ib)
      ib = ib + 1
      ic = ic + 1
    Loop
End Sub
我第一次做，应该没问题；

第二个函数:
1. 必须已排好序
2. 重复数没有忽略,也就是说 ic = ia + ib 必定成立.
3. 这是VB,不是QB. 这是QB,不是VB.

要说实用，我说qb里的输出语句和输入语句，不但是“[size=6][color=FF0000]很[/color][/size]”实用，而且是“[color=FF0000][size=6]最[/size][/color]”实用的。[color=FFFFFF][/color]

回MOZ；
？？？？？

回MOZ；
第一个函数呢？