重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
'假设数组如下
网站建设哪家好,找创新互联!专注于网页设计、网站建设、微信开发、成都微信小程序、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了高平免费建站欢迎大家使用!
dim d(10) as integer
dim i as integer
for i=lbound(d) to ubound(d)
d(i) = i
next i
'数组各元素之和
dim S as integer = 0
for i=lbound(d) to ubound(d)
s = s + d(i)
next i
msgbox(s)
ListBox操作需要用Invoke。另外多线程方式并不是并行处理。
建议采用.net framework 4 带的并行处理循环操作,若不是4.0版本的framework,可以使用Aforge的并行库比较方便。
我写了一段代码,注意你读取的方法,我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式,按你原来的方法,未设置编码,显示的是乱码!路径请按你的情况改! TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意:这样的代码是倒序的,第一个文本框显示的是最后一个文件的内容!请酌情处理!
软糖来回答吧,VB.net用循环是这样的
Dim k = New Integer(9) {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
Dim 和 As Integer
For i = 0 To k.Count - 1
和 += k(i)
Next
计算数组中各元素之和更简单的方法是
使用扩展方法Sum或者Lambda表达式,以下两种均可
Dim 和1 = k.Sum()
Dim 和2 = k.Aggregate(Function(m, n) m + n)
dim i
for i=2 to 1
msgbox("*")
next
语法没问题,这应该在winform里面能够调试成功,显示运行框,但是在web application里面就不能出现弹出信息框了,在网页上要出现,建议用response.write("scriptalert('***')/script").
for i=100 to 1 这样的语句在VB9.0后是支持的。楼下的,不要天天抱着VB6啃。