十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
Dim str As String = "", temp, n As Integer
站在用户的角度思考问题,与客户深入沟通,找到从化网站设计与从化网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、网站建设、企业官网、英文网站、手机端网站、网站推广、域名注册、网站空间、企业邮箱。业务覆盖从化地区。
Dim str1 As 困羡String = "12,45,2,9,41,31,66,83,2,1,-9,-91,-21"
Dim a() As String = Split(str1, ",")
For i = 1 To UBound(a) Step 1
a(i) = Val(a(i))
Next
temp = 0
n = 0
For i = 1 To UBound(a)
If a(i) temp Then
temp = a(i)
End If
If a(i) 0 Then
n = n + 1
End If
Next
李态 str = str "正数的个数为 " n
str = str "最大元素的下标为 "
For i = 1 To UBound(a)
哪尺源If a(i) = temp Then
str = str i " "
End If
Next
TextBox6.Text = str
你这个神如Text()()是一个二维数游返启组?
将数字直接定义成text box类型,并将己所添加的textbox实例复制给数组的相关项,这样就能通过数组的形式世仿访问了。。。
先判断几个数组中个数最大的一个作为循塌衫卖环次数。
然后每建第一行,把每个数组团逗第0个数值依次输出
然后建第二行,把每个数组第1个数值依次输出
依次类推完成循环。
在循塌芦环中,如果当前循环寄存器大于某个数组的下限值,输出“null”