UC知道会VB的人帮帮我！
来源：百度知道 编辑：UC知道 时间：2024/05/30 17:26:33
老师给了我这么一段东西（是他投影我按照打的），说是算鸡和兔子的，可VB我一点都不会用的，谁能告诉我怎么把这段东西输进去，怎么能正确运行的啊~~~~
Private Sub Command1_Click()
Dim ft, R, C, R_MAX As Integer
ft = Clnt(Text1.Text)
lf((ft Mod 2)<>0 Or ft<6)Then
Text2.Text = "输入的数必须是偶数目大于等于6！"
Else
Text2.Text = ""
R = 1
R_MAX=(ft-2-((ft-2)Mod4))/4
'Text1.Text=CStr((ft-((ft-2)Mod4)))
While R<=R_MAX
C=(ft-4*R)/2
Tex2.Text=Text2.Text+"[鸡: "+CStr(C)+"兔: "+CStr(R)+"]"
R=R+1
Wend
End If
End Sub
R_MAX=(ft-2-((ft-2)Mod4))/4
这行是红的。哪里错了吗？
Private Sub Command1_Click()
Dim ft, R, C, R_MAX As Integer
ft = Clnt(Text1.Text)
lf((ft Mod 2)<>0 Or ft<6)Then
Text2.Text = "输入的数必须是偶数目大于等于6！"
Else
Text2.Text = ""
R = 1
R_MAX=(ft-2-((ft-2)Mod4))/4
'Text1.Text=CStr((ft-((ft-2)Mod4)))
While R<=R_MAX
C=(ft-4*R)/2
Tex2.Text=Text2.Text+"[鸡: "+CStr(C)+"兔: "+CStr(R)+"]"
R=R+1
Wend
End If
End Sub
R_MAX=(ft-2-((ft-2)Mod4))/4
这行是红的。哪里错了吗？
“Private Sub Command1_Click()”
这个是画个Command控件，就是按钮，选择Click方法
然后把代码写进去
还有画俩个“text”控件 就是 文本。
应该就能用了
lf((ft Mod 2)<>0 Or ft<6)Then (第4行lf应该为If)
'把以下代码存为FORM1.FRM文件
'代码开始
VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 3090
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3090
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.TextBox Text2
Height = 615
Left = 0
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 2
Text = "Form1.frx":0000
Top = 600
Width = 4575
End
Begin VB.Te