vb初学者的问题

来源：百度知道编辑：UC知道时间：2024/05/21 18:51:58

每个问题都分别给追分，谢谢！
1）.Private Sub Form_Click()
i = 0
i = i + 1
Print "你点击了" & i & "次"
End Sub
为什么总是出现“点击一次”啊，达不到效果
2）.Private Sub form_click()
Dim j As Integer, x As Single, y As Single
y = Form1.ScaleHeight
x = Form1.ScaleWidth
sp = 255 / y
For i = 0 To y
Line (0, j)-(x, j), RGB(j * sp, j * sp, j * sp)
Next j
End Sub
这是一个窗体上颜色过渡变化的演示，哪里出了问题？
3).Private Sub form_click()
Const PI = 3.14159
Dim r, x, y, x0, y0
n = Val(text1)
r = Form1.ScaleHeight / 4
x0 = Form1.ScaleWidth / 2
y0 = Form1.ScaleHeight / 2
st = PI / n
For i = 0 To 2 * PI Step st
x = r * Cos(i) + x0
y = r * Cos(i) + y0
Circle (x, y), r * 0.9
Next i
End Sub
这是一个窗体上画多个圆的问题，但为什么不行？

第一个问题 I放到外面；

Dim i As Integer

Private Sub Form_Click()

i = i + 1
Print "你点击了" & i & "次"
End Sub

第二题：
Private Sub form_click()
Dim j As Integer, x As Single, y As Single
y = Form1.ScaleHeight
x = Form1.ScaleWidth
sp = 255 / y
For j = 0 To y
Line (0, j)-(x, j), RGB(j * sp, j * sp, j * sp)
Next j
End Sub
你的这些题目都是改错吗？！
第三题没有问题只是看看你自己有没有一个Text控件，还有text里面的text属性是不是为空或则不是数字，如果是就会出错！

你第一个不是循环语句
Private Sub Form_Click()
if i = 0 then
i = i + 1
endif
Print "你点击了" & i & "次"
End Sub
类似这样的。
其他的我也不懂。

Vb初学者的问题 VB初学者的问题: 一个VB初学者的问题 VB初学者的小问题 vb.net 初学者的问题 vb初学者的2个问题初学者VB问题! 初学者，VB问题 VB初学者的提问 VB初学者的题目..