Private Sub Text1_click(Index As Integer)
Dim mianji As Single
mianji = 0.0061 * Form1.Text1.Text + 0.0128 * Form1.Text3.Text - 0.1529
Text1.Text = mianji
张清北的博客利用VB操作WORD的基本方法通过查阅资料,自我实践,经实验通过。先引用word Application:Dim MyWord As Word.ApplicationDim MyWordBook As Word.DocumentSet MyWord = New Word.ApplicationSet MyWordBook =MyWord...