十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim a(14) As Integer
我们拥有十载网页设计和网站建设经验,从网站策划到网站制作,我们的网页设计师为您提供的解决方案。为企业提供网站设计制作、网站设计、微信开发、小程序定制开发、手机网站开发、H5开发、等业务。无论您有什么样的网站设计或者设计方案要求,我们都将富于创造性的提供专业设计服务并满足您的需求。
For i = 1 To 14
a(i) = Int(Rnd() * 90) + 10
ListBox1.Items.Add(a(i))
Next
Dim b(14) As Integer
Dim sum As Integer = 0
For i = 1 To 14
b(i) = ListBox1.Items.Item(i - 1)
sum = sum + b(i)
Next
Dim avg As Double
avg = sum / 14
MsgBox(avg)
我写的可以,你可以把代码贴出来看看
你可以用结构数组的,如下:
...
Private Structure test
Dim name As String
Dim sex As String
Dim age As Integer
Dim salary As Integer
End Structure
Dim list(2) As test
Private Sub insert()
list(0).name = "张三"
list(0).age = "20"
list(0).salary = "1500"
list(0).sex = "男"
list(1).name = "李四"
list(1).age = "21"
list(1).salary = "1500"
list(1).sex = "女"
End Sub
...
你可以放到main()里输出一下,就是这样...
先把strA排序,
ind = 2
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb语法忘了。。。大概是这么个意思吧。。。。 排序N LOG N,后面是线性的N,所以总共是NLOGN
你虽然定义了数组,但是数组中的hhh并没有初始化。
比如你要使用b(0),就得先 b(0) = New hhh()
如果全部要初始化,可以用循环
Dim da As New DataTable
Dim myda As OleDb.OleDbDataAdapter("SELECT * FROM 表“, oconnection)
myda.Fill(da)
姓名=da.Rows(0)(0) ‘张三
姓名=da.Rows(1)(0) ‘李四
姓名=da.Rows(2)(0) ‘王五
姓名=da.Rows(3)(0) ‘赵六
姓名=da.Rows(4)(0) ‘刘琦
这个不一定要用数组,直接用table就可以操作了。