大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Private Sub Command1_Click()
创新互联专业为企业提供淮安网站建设、淮安做网站、淮安网站设计、淮安网站制作等企业网站建设、网页设计与制作、淮安企业网站模板建站服务,十年淮安做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。
Dim j As Integer '代表鸡的个数
Dim t As Integer ’代表兔的个数
Dim t1 As Integer '腿的个数
For j = 1 To 40
t = 40 - j
t1 = j * 2 + t * 4
If t1 = 100 Then
Print "鸡="; j; "只"; "兔="; t; "只"
End If
Next
End Sub
Private Sub Command1_Click()
Dim a, b, m, n As Integer '鸡为a,兔为b,鸡兔总数为m,鸡兔脚数为n
For b = 1 To m
a = m - b
If 2 * a + 4 * b = n Then
Print "鸡=" a ",兔=" b
End If
Next b
End Sub
Visual Basic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说,VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
Private Sub Command1_Click()
Dim h As Integer, f As Integer
h = Val(InputBox("鸡和兔的总头数", "请输入", 0))
f = Val(InputBox("鸡和兔的总脚数(偶数)", "请输入", 0))
x = (4 * h - f) / 2
y = (f - 2 * h) / 2
Label2.Caption = " 设笼中鸡和兔的总头数为" h ",总脚数为" f "。"
Label3.Caption = " 则笼中鸡有" x "只,兔有" y "只。"
End Sub