kwrl.net
当前位置:首页 >> VB题,重点解释下For i = 1 To UBounD(B) B(i) = 2... >>

VB题,重点解释下For i = 1 To UBounD(B) B(i) = 2...

Private Sub pl(b() As Integer) For i = 1 To UBound(b) 'ubound(b)即返回一个 Long 型数据,其值为指定的数组维可用的 最大下标即3,该句等同于 for i=1 to 3 b(i) = 2 * b(i) '把传过来的数组a(1 to 3)逐个*2 Next i End Sub Private Sub Comm...

Private Sub Command8_Click() Dim b(0 To 10) As Integer, mp As Integer, i As Integer, x As Integer Randomize For i = 0 To 10 b(i) = Int(Rnd * (100 - 1 + 1) + 1) Print b(i) Next Print For i = 0 To UBound(b) For x = i + 1 To UBoun...

Option Base :在模块级别中使用,用来声明数组下标的缺省下界。 如果没有Option Base,数组下标从0开始,如dim a(10)为11项,从0到10; Option Base 1:数组下标从1开始,如dim a(10)为10项,从1到10。 For i = LBound(b) To UBound(b):从下标...

Private Sub Command1_Click() Cls Randomize (Timer) Dim a(19) As Single, b() As Long For i = 0 To 19 a(i) = Rnd * 10000000 Print a(i); If (i + 1) Mod 10 = 0 Then Print If Int(a(i)) = a(i) Then ReDim Preserve b(k) b(k) = a(i) k =...

第1题的输出结果是$$$ Tab[(n)]可选的 n 参数是在显示或打印列表中的下一个表达式之前移动的列数。 例如Print tab(10);"$",$将在第10列出现

b=1 i=1 Do Until b> 10 i=b*(b+1) b=b+1 loop print i 2612203042567290110

是2012年的问题了 想必楼主已经知道了答案 看了上面的答案解释的不是很清晰,我这里放一个清晰版的 以便以后的筒子们看 当最后一行加上输出语句时printf("%d,%d",k,b); 输出结果为 k=8,b=-2 现在 我们来模拟一下 for循环中 当i=5时的运行情况 ——...

for (int i=1;(i%a!=0)||(i%b!=0);i++){ 循环体 } int i=1:这个是初始化i=1; (i%a!=0)||(i%b!=0);这个是说当i和a取余(就是i除以a的余数)不等于0或者i和b取余不等于0有一个成立时进入循环,进入循环后执行循环体; i++,这个是循环体结束后执...

每行输出十个是与这个无关的,而是由循环 J 以及 Print语句完成的; 分析 For j = 1 To 10 B(i, j) = A((i - 1) * 10 + j) Print B(i, j); '分号的作用:使得输出的数据在同一行 Next j Print '输出一个换行 其中: Print B(i, j); 分号,使得输...

B i最初赋值为1,每次循环赋值+1,循环结束条件i

网站首页 | 网站地图
All rights reserved Powered by www.kwrl.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com