第二行 Dim i,j,x 定义三个整型变量
第三行是一个For循环与Next对应
For i=1 To 20 step 2 i从1循环到20，步长为2，就是i每一次加2
循环体
Next i 返回继续循环直到 i大于等于20
For j=i To 20 step 3 大循环里面的小循环类似，j从i循环到20，步长为3
循环体
Next j
执行过程如下：
首先 i=1，执行x=0
然后执行内循环，j以此等于1、4、7、10、13、16、19 每执行以此x会加1，所以内循环执行完后x=7
接着i=3，执行x=0
然后执行内循环，j以此等于3、6、9、12、15、18 内循环执行完后x=6
同理，i会以此执行1、3、5、7、9、11、13、15、17、19
当i=19时，内循环计算得到x=1
这时候i+2 = 21 > 20 退出循环
最后x=1
dim i,j,x '定义变量
下一句定义一个1到20的循环，步长为2
下一句将0赋给x
下一句定义一个1到20的循环，步长为3
下一句将x+1的值赋给x
下一句返回内循环，检测循环
下一句返回外循环，检测循环
下一句将x转换为字符并赋给text1.vaule
下一句过程结束本回答被网友采纳
一段vb代码,谁能一步步解释,谢谢
第一行 Private Sub Command1_Click() 说明是一个私有的子函数，并且是按钮Command1的单击事件响应函数（Click）第二行 Dim i,j,x 定义三个整型变量 第三行是一个For循环与Next对应 For i=1 To 20 step 2 i从1循环到20，步长为2，就是i每一次加2 循环体 Next i 返回继续循环直到 ...
下面几行VB代码,希望有朋友帮我逐行解释,谢谢
整段代码应该是利用 ini配置文件清空控件内容的..
解释VB代码.(我是初学者请各位帮帮忙忙)万分谢谢!
窗体一中的Private Sub Command1_Click()事件过程开始。若Text1控件的Text属性值不为空，则Text2控件的Text属性值等于9 \/ 5 * Text1.Text + 32。Private Sub Command2_Click()事件过程开始。若Text2控件的Text属性值不为空，则Text1控件的Text属性值等于(Text2.Text - 32) * 5 \/ 9。Private...
帮忙解释下VB代码,希望详细点,是怎么得出结果的,要过程剖析...谢了...
End Sub Private Sub test(x As Integer) 'test 函数，包含一个形式参数 Dim i As Integer ’定义个整形变量i If x <> 0 Then ’判断如果x的值不等于0时,再次调用test Call test(x - 1)For i = 1 To x ’循环打印x的数值 Print x;Next i Print End If End Sub 执行过程...
vb看代码解释意思
分析这一段代码：Case 1 k = 1 For i = 1 To b * a j = j + 1 If k Mod 2 = 1 Then s(j, k) = i ElseIf k Mod 2 = 0 Then s(a - j + 1, k) = i End If If j >= a Then j = 0 k = k + 1 End If Next i 可以猜测其中a = 4，b = 4 在执行循环...
请人解说一下这段VB代码,我新手,30分哦!!
1、SelCount是选中的个数，Selected(X)=True是某一项是否被选中 While LstLeft.SelCount > 0意思是LstLeft选中的个数大于0则开始循环 至于是用SelCount还是Selected(X)要根据实际需要决定 2、用两个循环嵌套，保证LstLeft中每一个被选中的都移动到LstRight中，Exit For的作用就是每删除一项就再从头检查...
谁能帮我解释一下这个VB程序,非常感谢
这段代码的作用是判断myobject集合中是否有"text"成员，如果有found为真值。具体分析：Dim found As Boolean = False \/\/定义一个Boolean类型的变量found并使其值为false Dim mycollection As New Collection \/\/定义一个名为mycollection 的集合 For Each myobject As Object In mycollection \/\/循环检索...
请帮我解释解释这个vb代码的意思
你把代码粘贴到VB里先看看运行效果，就是一个类似蝴蝶结的图形不停的在转 仔细观察，其实就是靠不断的变换4个顶点的位置来实现的 '保存那4个点的坐标 Dim x1 As Long, x2 As Long, x3 As Long, x4 As Long Dim y1 As Long, y2 As Long, y3 As Long, y4 As Long '这4个变量控制4...
请人指点,注释一小段VB 代码
CommonDialog1.ShowOpen '通用对话框打开文件 Open CommonDialog1.FileName For Input As #1 '于#1打开通用对话框里选择的文件名用于输入 tmp = ""Do Until EOF(1) '循环至文件结尾 Line Input #1, a '从#1中读取1行至a tmp = tmp & a & vbCrLf '在tmp后加上a和回车换行符 Loop ...
请大侠们表闲麻烦帮我注释一下这段VB代码,谢谢昂。
Private Sub Command1_Click()cx = Width \/ 2 - 3 * D \/ 2 cy = Height - D drawcar 过程或者function名 For i = 1 To 20 从1开始每次增1,循环做以下代码,直到i=20为止 l1(i) = 0 当i=1时,l1(1)=0 l2(i) = 0 drawway (i)Next i Timer1.Enabled = True 启用定时器 En...
