00问答网
所有问题
当前搜索:
遍历数组某一维的元素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
vb
程序设计:根据给定的查找值,在
数组
中找出与之相同
的元素
答:
Dim a(1 To 10, 1 To 10) As Long Private Sub Command1_Click()Dim i As Integer Dim b As Long Dim s As String Dim f As Boolean b = Val(InputBox("请输入要查找的数!"))If b >= 10 And b <= 100 Then For i = 1 To UBound(a, 1)For j = 1 To UBound(a, 2)...
求一
vb
编程,编写一个
数组
,将一个数据系列最后一个
元素
移动到第一个...
答:
采纳率:65% 来自团队:BAT-GO 擅长: 历史话题 宗教
VB
C/C++ 操作系统/系统故障 其他回答 把最后一个放到一个临时变量,然后运用循环将倒数第二个赋给倒数第一个,倒数第三个赋给倒数第二个,。。。,最后把临时变量赋给第一个
元素
。如果要我给出源码来就没意思了。 红楼箫曲 | 发布于2011-04-08 举报...
VB
中的
一维数组
取值问题
答:
你这段…… 写的完全没有章法啊~由于变量D在整个过程中未被赋值,所以最终的结果必然是 zm = bzzcms(0) 也就是 1 了。把 D 换成 S 应该能解决此问题。
用
VB
函数 计算
一维数组
所有
元素
的平均值。要求,子函数实现求平均值...
答:
Function Average(mySinge() As Single) As Single Dim sn As Single Dim cn As Integer, i As Integer cn = UBound(mySinge) - LBound(mySinge) + 1 For i = LBound(mySinge) To UBound(mySinge)sn = sn + mySinge(i)Next i Average = sn / cn End Function ...
vb
中,动态
数组
时每
一维的元素
个数必须是什么?1.变量2.常量,3,表达式...
答:
vb
中,动态
数组
时每
一维的元素
个数必须是常量,注意了是定义的时候。如:redim a(10)M=10 redim a(M)M=10 redim a(M+10)这样都是对的。
VB
:如何返回
vb一维数组某
个
元素
所对应的下标的值?
答:
说明 用来表示
数组元素的
符号由变量名、圆括号以及括号中的所需元素的索引号组成。在下面的示例中,第一条语句创建一个 Variant 的变量 A。第二条语句将一个数组赋给变量 A。最后一条语句将该
数组的
第二个元素的值赋给另一个变量。Dim A As Variant A =
Array
(10,20,30)B = A(2)使用 Array...
vb
编程定义一个包含10个
元素的数组
a,为其
数组元素
分别赋值为2、4...
答:
Private Sub Command1_Click()Dim a(10) As Integer For i = 1 To 10 a(i) = 2 * i Print a(i);Next i End Sub
vb
二维
数组
赋值并读取?
答:
结论:数组声明方式和访问方式不同导致。先贴一个测试通过的
数组遍历
方式的代码:二维数组遍历 注意遍历使用的方法,两层数据,每次的访问方式,是直接对该
元素数组
填写索引值获取。所以你的正确访问方式是:Debug.Print d(1)(1)补充知识:为什么使用二维
数组的
方式访问不到?因为这与数组的声明方式有关。
vb
已知一个具有10个整数的
一维数组
,各
元素
值随机产生(范围在10,99)求...
答:
Private Sub Command1_Click() Randomize Dim a(10) As Integer m = 1 For i = 1 To 10 a(i) = Int(Rnd * 90) + 10 Print a(i); If a(i) < a(m) Then m = i Next i Print Print "最小
元素
a("; m; ")="; a(m) PrintEnd Sub ...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜