上面的为什么全部都是0到100历遍呢??效率好低!!螺柱看看我的吧:
Private Sub command1_click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = Val(Text1。
Text)
b = Val(Text2。Text)
If (b - a 1) Mod 2 <> 0 Then
c = (a b) * Int((b - a 1) / 2) (a Int((b - a 1) / 2))
Else
c = (a b) * Int((b - a 1) / 2)
End If
MsgBox c
End Sub
text1。
text里填入起始数,这里是1,text2。text填入结束数,这里是2。
这是一个算法技巧,不用历遍所有数这么麻烦。楼主不妨试试。
答：上面的为什么全部都是0到100历遍呢??效率好低!!螺柱看看我的吧:Private Sub command1_click()Dim a As IntegerDi...详情>>
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
