发布时间 : 2024/6/1 18:05:35 星期六 文章东华理工大学VB实验指导书课后习题代码（2011冶金工业出版社）更新完毕开始阅读5ad4ad0f6c85ec3a87c2c5e2

东华理工大学VB实验指导书课后习题代码【实验三】

此代码适合东华理工大学应用化学专业同学使用，全为同学们自己编写的，能运行，可以提供参考参考。有不足之处需自行订正。谢谢合作！

第一题：

Private Sub Form_Load() Dim H!, F!, J!, T! End Sub

Private Sub Command1_Click() H = Val(InputBox(\输入总头数\F = Val(InputBox(\输入总脚数\Text1.Text = H Text2.Text = F J = 2 * F - H / 2 T = H / 2 - F

Picture1.Print \鸡的数目=\Picture1.Print \兔的数目=\End Sub

Private Sub Command2_Click() Text1.Text = \Text2.Text = \Picture1.Cls End Sub

第四题

Private Sub Form_Load() Dim bj!, ymj!, bmj!, tj! End Sub

Private Sub Command1_Click() bj = Val(InputBox(\输入半径\Text1.Text = bj π = 3.1415926 ymj = π * bj * bj bmj = 4 * π * bj * bj tj = 4 / 3 * bj * bj * bj

Picture1.Print Format(ymj, \Picture2.Print Format(bmj, \Picture3.Print Format(tj, \End Sub

Private Sub Command2_Click() Text1.Text = \Picture1.Cls Picture2.Cls Picture3.Cls End Sub

第五题

Dim a As Date, b As Date

Private Sub Command1_Click() Text1.Text = Time a = Time End Sub

Private Sub Command2_Click() Text2.Text = Time b = Time

Text3.Text = Format(b - a, \End Sub

第七题

Private Sub Form_Load() Dim P!, D!, SD!

P = Val(InputBox(\输入日工资\D = Val(InputBox(\工作天数\Text1.Text = P Text2.Text = D

SD = P * D - P * D * (0.005 + 0.015 + 0.035) - 27.83 Label4.Caption = Format(SD, \End Sub