VB初学,如何PRINT变量
Dim X As IntegerDim Y As Integer
Dim Z As Integer
For X = 0 To 100
For Y = 0 To 100
For Z = 0 To 100
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print("公鸡:" & X & "母鸡:" & Y & "C" & Z)
End If
Next Z
Next Y
Next X
End Sub
在BUTTON 的click事件里写的代码
但怎么始终有错啊,始终不能打印出来帮帮小妹阿各位
--------------------编程问答-------------------- 把窗体的AutoReDraw设为 True --------------------编程问答-------------------- 你的是什么错误呢,为什么我的可以呢? --------------------编程问答-------------------- 说什么STRING,INT什么错 --------------------编程问答-------------------- Dim Y As Integer
Dim Z As Integer
For X = 0 To 100
For Y = 0 To 100
For Z = 0 To 100
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print("公鸡:" & Cstr(X) & "母鸡:" & Cstr(Y) & "C" & Z)
End If
Next Z
Next Y
Next X --------------------编程问答-------------------- 还是同样错误
--------------------编程问答-------------------- 我这里也正常啊 --------------------编程问答-------------------- 我这边也可以,,, --------------------编程问答-------------------- Private Sub Command1_Click()
Dim X As Integer
Dim Y As Integer
Dim Z As Integer
For X = 0 To 100
For Y = 0 To 100
For Z = 0 To 100
If (X + Y + Z = 100) And ((3 * X + 2 * Y + 0.5 * Z = 100)) Then
Print ("公鸡:" & X & "母鸡:" & Y & "C" & Z)
End If
Next Z
Next Y
Next X
End Sub
你的这个代码根本不用改是正确的代码
--------------------编程问答-------------------- 你的这个代码根本不用改是正确的代码
--------------------编程问答-------------------- lz是不是没写“Private Sub Command1_Click()”
加了这个就可以了啊,本来就是正确的代码啊。
把窗体的AutoReDraw设为 True
这个的确和本事件的代码无关啊,这个是属性里面设置的。 --------------------编程问答-------------------- 你重新建一个工程,测试下 Print ("Hello!"),如果还出现同样的错误,证明是你的vb有问题,如果没有出错,你新建一个工程,就可以了
补充:VB , 基础类