代码如下：
Option Base 1Private Sub Form_Click()
Dim a, nMax%, pos%, i%, stg As String
a = Array(10, 68, 45, 100, 1, 2, 88, 3)
nMax = a(1)
For i = 1 To 8
strg = strg & a(i) & " "
If a(i) > nMax Then
nMax = a(i)
pos = i
End If
Next i
Print strg
Print "最大值=" & nMax & " 位置是：" & pos
End Sub
运行效果
将十个数值型的数据赋值到一个一维数组中,并找出其中最小值及其所在的...
printf("最小数 %d 下标 %d",num[arr],arr);}
有个vb数组赋值问题
如果你用一个变体类型的变量来Split成一个数组，那么数值型数据将被分配成整形或者浮点类型的数值。对于数值型的数据来说：000,00,00000,0都是一样的，都表示0。而且在VB里面也只会认为是0。但是，像100，这样的数字，后面的0是不能省略的，数学常识。只有当一个数字，用字符串型表示的时候，"000"...
vb读取文件中的数据并求最大值
请将max1定义为数值型变量，另外如果不记录数据数量的话，i=i+1就可以去掉了。Open b For Input As #1 max1=0 Do While Not EOF(1)Line Input #1, tem1 If val(tem1) > max1 Then max1 = val(tem1)End If Loop Text2.Text = max1 Close #1 ...
VB有没有精度比双精度(Double)更高的数值型数据
此外，VB还有一种隐藏的数据类型Decimal，占用14个字节，这是个特殊的变比数，数值范围是 +\/-79,228,162,514,264,337,593,543,950,335，如果含有小数，则小数点右边最多可以有28位数：+\/-7.9228162514264337593543950335，最小的非零值为+\/-0.0000000000000000000000000001 之所以Decimal是隐藏的，是因为它...
VB求数组中(20个元素)出现次数最多的元素,还有出现几次
把20个整型数据存放到一维数组a中,找出a中出现频率最高的元素值和出现的次数。例如把1,5,4,3,5,8,5,3放到a,则出现频率最高元素值是5,次数是3 hzp1988 | 浏览2706 次 |举报 我有更好的答案推荐于2016-08-25 17:22:52 最佳答案 Private Sub Command1_Click() Randomize Print "产生20个0~10之间...
VB中数值型数据相互赋值
vb6.0中使用双#号将日期型字符串赋值给date数据类型。date 数据类型：date 和 time 值既可包含在特定的 date 数据类型中，又可包含在 variant 变量中。一般的 date 特性适用于这两种类型。实例例代码 private sub command1_click()dim mydate as date mydate = #2\/12\/1969# ' 指定一日期。...
VB代码 求三个数中的最大数和最小数
redim a(3)a(1)=a:a(2)=b:a(3)=c for i=1 to 2 for j= i+1 to 3 if a(i)
VB的变量最大能代表多大的数据啊?怎么我的Double变量增加到大概2的60次...
vb的double数据类型：Double（双精度浮点型）变量存储为 IEEE 64 位（8 个字节）浮点数值的形式，它的范围在负数的时候是从 -1.79769313486232E308 到 -4.94065645841247E-324，而正数的时候是从 4.94065645841247E-324 到 1.79769313486232E308。Double 的类型声明字符是数字符号 (#)。一个好一点的...
...inputbox返回的不都是字符串类型的值吗,我把它赋给一
对inputbox返回的值用 IsNumeric() 函数判断一下是否合法的数字，如果是（函数返回true）才赋值给整形变量。不仅点取消会出错（点取消会返回“空”），如果不输入东西直接点“确定”也一样会出错。还有如果输入的是字母，也会出错。还要注意，如果输入的是 1e1 这样的东西， IsNumeric() 也认为是数字...
vba怎么给字母赋值
在数组中使用索引为数组的每个元素赋值。从 0 到 10，将数据赋给数组的元素，如下所示：A(0) = 256 . . .A(10) = 55 与此类似，使用索引可以检索到所需的数组元素的数据。仔细体会下面的程式：我已复制到VBE中，你可以打开VBE，然后运行看一下。Sub 数组()Dim arr1 As Integer MsgBox arr...
