王朝知道

分享

 

01.学校考试VB数组，谁会啊？10分。
Dim a, b As Variant, i, j As Integera = Array(1, 3, 5)b = Array(2, 4, 8, 9)For i = LBound(a) To UBound(a)For j = LBound(b) To UBound(b)If Val(a(i)) + Val(b(j)) > 5 ThenPrint a(i); b(j)End IfNext jN...查看完整版>>学校考试VB数组，谁会啊？10分。02.学校考试VB数组，谁能帮帮我？
楼上的是错的我这个可以,调试过Dim a, b As Variant, i, j As Integera = Array(1, 3, 5)b = Array(2, 4, 8, 9)For i = LBound(a) To UBound(a)For j = LBound(b) To UBound(b)If Val(a(i)) + Val(b(j)) > 5 Then...查看完整版>>学校考试VB数组，谁能帮帮我？03.谁懂VB动态数组，加10分
for i=0 to 1 for j=0 to 2 for m=0 to 2 if a(i)+b(j)+c(m)=K then'方式一：有一个结果就退出 newA=a(i) newB=b(j) newC=c(m) ...查看完整版>>谁懂VB动态数组，加10分04.要考试啦急求VB程序 :输入框输入10个同学的成绩求平均数成绩，含最高分，最低分
借用楼上仁兄的几个变量,顺便把求最大值和最小值的功能也实现了:Private Sub Command1_Click()Dim Osan, i, Onatija As IntegerDim max As Integer '定义最大成绩Dim min As Integer '定义最小成绩Dim...查看完整版>>要考试啦急求VB程序 :输入框输入10个同学的成绩求平均数成绩，含最高分，最低分05.关于VB数组输出的问题
text可以做到的。=========你要把你的text设置为 多行文本，并带有滚动条的。然后把你的for语句做好，使得 text1.text=text1.text+你的数组每循环一次输出的变量。就Ok.==========即在for语句中有这么一行代码:...te...查看完整版>>关于VB数组输出的问题06.vb数组下限
我推了一个十张牌的组合，不知道对你有用没有：8，1，6，2，10，3，7，4，9，5这个组合拿在手里背面朝上，从上往下倒一张将最上边的一张放在桌子上，再将最上边一张倒到下边，将最上边的一张放在桌子上，依次类推，直...查看完整版>>vb数组下限07.VB数组排列的问题
这样做.Private Type CJ '创建一个自定义数据类型XueHao As Integer '类型包含:学号ChengJi As Integer '类型包含:成绩End TypePrivate Sub Command1_Click()Dim a(4) As CJ '定义数组a为自定义类型Dim px As CJ, i%...查看完整版>>VB数组排列的问题08.vb中数组输出的问题
Private Sub Form_DblClick()Dim iDim a(9) As IntegerFor i = 1 To 9a(i) = iNext iFor i = 1 To 9Print a(i); 或者 Print Space(2 * i); a(i);NextEnd Sub...查看完整版>>vb中数组输出的问题09.关于vb数组的疑惑
不能用变量定义数组长度，如果要实现动态数组，可以用redim。dim a()n = 10redim a(n,n)而且你说的a(2,0)并没有越界,vb的数组如果定义成a(n)形式，那么元素下标是从0到n-1的，vb中还有另一种定义形式：a(1 to n)这时...查看完整版>>关于vb数组的疑惑10.vb 数组 下标越界
使用redim关键字设置动态数组大小加入redim arr(1 to year + 1)arr(1) = corpus / 12 + corpus * rate 动态数组的用法：组到底应该有多大才合适，有时可能不得而知。所以希望能够在运行时具有改变数组大小的能力。动...查看完整版>>vb 数组 下标越界

 

 

免责声明：本文为网络用户发布，其观点仅代表作者个人观点，与本站无关，本站仅提供信息存储服务。文中陈述内容未经本站证实，其真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。