00问答网
所有问题
当前搜索:
vb数组从几开始
VB
:对
数组
a进行从大到小的冒泡排序
答:
a(j - 1)你好楼主,我的一篇回帖~~当时我是这么实现冒泡排序的,给你一个参考,你自己再看看该进吧·~Public Sub sort(ByRef arr() As Integer)Dim i As Integer Dim j As Integer For i = LBound(arr) To UBound(arr) - 1 For j = LBound(arr) To UBound(arr) - i - 1 If ...
用
VB
排列列表框的
数组
(从小到大排列)
答:
' 将无序列表中的数据读入排序
数组
中 For i = 1 To MAXPLAYER aryPlayer(i) = lstUnsorted.List(i - 1)Next ' 初始状态下,数组的第1 个元素被看作是有序的部分 ' 从第2 个元素起,依次将其插入到前面的有序部分 For i = 2 To MAXPLAYER ' 将第i 个元素的值赋给哨兵 aryPlayer(0)...
vb编程
“声明一个
数组
有10个元素,各元素赋值与其下标相同,下标从1到10...
答:
Dim a(1 To 10) As Integer, i As IntegerFor i = 1 To 10 a(i) = iNext
vb中
如何用
数组
依次表示从1到未知数位的多位数?
答:
如果你不确定
数组
的上限,可以使用动态数组 dim a()可以使用redim 重新定义这个数组
VB
当中
array
是什么意思,比如array1,2,3,4,5
答:
Array
是
数组
的意思,而Array()是一个函数,用来产生一个数组。a = Array(1, 2, 3, 4, 5)这是产生一个包含5个元素的数组并赋值给变量a(类型必须是Variant),每个元素的值分别为:a(0) = 1 a(1) = 2 a(2) = 3 a(3) = 4 a(4) = 5 ...
vb中
将二维
数组
中每一列的元素从小到大排序
答:
Private Sub Command1_Click()Randomize n = CInt(InputBox("请输入N的大小:"))Dim a(15, 15) As Integer Print "原来的
数组
:"For i = 1 To n For j = 1 To n a(i, j) = Int(100 * Rnd)Print Format(a(i, j), "@@@");Next j Print Next i For j = 1 To n '...
vb中
将字符串aaa,bbb,ccc 按照逗号分隔转成
数组
,即生成x[0]=aaa,x...
答:
Split(串,',')返回一维
数组
Split函数 描述 返回一个下标从零
开始
的一维数组,它包含指定数目的子字符串。语法 Split(expression[, delimiter[, count[, compare]]])Split函数语法有如下几部分:部分 描述 expression 必需的。包含子字符串和分隔符的字符串表达式 。如果expression是一个长度为零的...
vb数组
排序
答:
Private Sub Command1_Click()Dim i, j, intmin As Integer Dim SngSq(9), sngt As Integer '输入原始数据 For i = 0 To 9 SngSq(i) = Val(InputBox("输入第" & i + 1 & "个数字"))Next Text1.Text = ""For i = 0 To 9 Text1.Text = Text1.Text & SngSq(i) & "...
VB
三维
数组
答:
dim 学生成绩(1 to 100, 1 to 5, 1 to 2)第1维1 to 100表示学生,第2维1 to 5表示1:学生、2~4:三门功课(每个同学的功课可能不同)、5:平均成绩 第3维1 to 2表示数据类别:1:名称、2:数据。例如 第1名学生:张三,三门功课是数学、语文、英语,成绩分别是85、80、75。输入...
VB中
如何判断一个
数组
有
多少
个元素
答:
dim b (0 to 2, 0 to 3) as long 有12个元素 0,1,2=3个 0,1,2,3=4个 3*4=12个 dim a (1 to 100) as string 有100个元素 1-100 =100个 dim a (2,-2 to 1.4) as integer 0,1,2=3个 -2,-1,0,1=4个 3*4=12个 dim(3,4)有20个元素。 0,1,2,3=4个...
棣栭〉
<涓婁竴椤
3
4
5
6
8
7
9
10
11
12
涓嬩竴椤
灏鹃〉
其他人还搜