11问答网
所有问题
当前搜索:
vb删除数组中指定位置元素
VB
编程:用
Array
()函数建立一个含有8个
元素
的
数组
,然后查找并输出该数...
答:
Private Sub Command1_Click()Dim a()a =
Array
(8, 11, 74, 22, 9, 56, 71, 35)Max = a(0)For i = 1 To 7If Max < a(i) Then Max = a(i)NextMsgBox "最大值=" & MaxEnd Sub
...最小的数及其下标,然后把它和
数组中
最前面的
元素
对换
答:
Private Sub Command1_Click() Me.Cls Dim a(10) As Integer Dim t As Integer Dim n As Integer t = 200 For i = 1 To 10 a(i) = Int(Rnd * 90 + 10) If a(i) < t Then t = a(i) n = i End If Print a(i); Next i P...
vb
程序编写(
数组
)
答:
Option Base 1Private Sub Command1_Click()Dim i%, m%, j%, s%, u%Dim a As Varianta =
Array
(23, 4, 14, 5, 57, 85, 43, 24, 78, 54)u = UBound(a)m = Val(InputBox("Input a number"))For i = 1 To u If a(i) = m Then If i = u Then u = u...
用
VB
完成从一组数中找到最小
元素
及其
位置
的功能
答:
Private Sub Form_Click()Dim A(1 To 10) As Integer Dim i As Integer Randomize For i = 1 To 10 A(i) = Int(Rnd * 90) + 10 s = s & A(i) & " "Next Print "生成的
数组
为:"Print s Print "最小值为:" & FindMin(A, i)Print "最小数的
位置
是:" & i End Sub...
vb
模块中怎样建立
数组
答:
注意 在增加数组的维数时,数组所占的存储空间会大幅度增加,所以要慎用多维数组。使用 Variant 数组时更要格外小心,因为他们需要更大的存储空间。用循环操作数组 可以用 For 循环嵌套有效的处理多维数组。例如,在 MatrixA 中基于每个
元素
在
数组中
的
位置
为其赋值:Dim I As Integer, J As Integer Sta...
VB
求
数组中
最大值和它的
位置
答:
定义一个q1,初始值为a(0),每次判断a(j) > a(j + 1) 成立时,q1=j 此时q1就为所求
位置
,但是初始位置是0,所以要准确时q1=q1+1 如下所示:Private Sub Command1_Click()Cls Dim a(1 To 10) As Integer, b(1 To 10) As Integer, work As Boolean, i As Integer, j As ...
vb中数组元素
的提取问题
答:
Dim s() As String s = Split(Text1.Text, " ")Text2.Text = s(0)Text3.Text = s(1)Text4.Text = s(2)
VB
找出
数组中
最小的数,并把它移到数组的第一个
位置
答:
For i = 1 To UBound(intTest) '用此循环找到最小项 If intTest(i) < intTest(intMin) Then intMin = i End If Next i If i > 0 Then '最小项不是第一项就交换
位置
intTemp = intTest(0)intTest(0) = intTest(intMin)intTest(intMin) = intTemp End If '将
数组中
的数输出...
VB中数组
怎么定义
答:
是这么定义的:
数组中
的第一个
元素
的下标称为下界,最后一个元素的下标称为上界,其余的元素连续地分布在上下界之间,且数组在内存中也是用连续的区域来存储的,所以数组每维的长度不能超过Long数据类型的最大值,即264—1=263。把
VB
.NET数组当作一个对象来处理,就意味着数组类型是单个引用类型,数组...
如何在
VB
的
数组中
查找数据?
答:
MsgBox "当前要查找的:" & aa & " 值在dd
数组
的第:" & v & " 个
元素
。", vbInformation, "信息"End If End Sub Public Function NumFind(ByRef My
array
, FNumber As Variant) As Long Dim K As Long, I As Long Dim L1 As Long, R1 As Long Dim l As Long, R As Long l =...
棣栭〉
<涓婁竴椤
4
5
6
7
9
10
8
11
12
13
涓嬩竴椤
灏鹃〉
其他人还搜