石河子大学《程序设计实践教程》VB

程序设计实践教程答案4.1Private Sub Com__nd1_Click()Text1.Text = Int(41 * Rnd + 10)Text2.Text = Int(41 * Rnd +

程序设计实践教程答案 4.1 Private Sub Com__nd1_Click() Text1.Text =Int(41 *Rnd +10) Text2.Text =Int(41 *Rnd +10) Text3.Text ="" End Sub Private Sub Com__nd2_Click() Text3.Text =Val(Text1.Text) *Val(Text2.Text) Text3.Locked =True End Sub 4.3 Private Sub Com__nd1_Click() Label1.Visible =True Label2.Visible =True Text1.Visible =True Text2.Visible =True Text1.Text ="" Text2.Text ="" n= Val(InputBox("身高")) Text1.Text =n m= Val(InputBox("体重"))