VB标签显示的问题

来源：百度知道 编辑：UC知道 时间：2024/06/15 23:58:35
程序用途是：显示一个问题，单击命令按钮后，出现答案。
可以用print语句，但是只能显示在左上角。
怎样编码，可以使答案显示到另外一个标签中呢？
我想要编写的程序是计算标准体重的。不但要在标签中显示固定的字符串，还要求变化的数值也出现在标签中
敬请赐教！

好的程序来了,自己为你写的,已经验证OK!!!

Private Sub Command1_Click()
Dim tizhong As Integer
tizhong = Val(Label1.Caption) '得到体重
Select Case tizhong
Case 55 To 100 '如果体重在55到100之间,第二个标签显示:"有点胖!"
Label2.Caption = "有点胖!"
Case 45 To 54 '如果体重在45到54之间,第二个标签显示:"身材不错!"
Label2.Caption = "身材不错!"
Case 0 To 44 '如果体重在0到44之间,第二个标签显示:"太瘦了!"
Label2.Caption = "太瘦了!""
End Select
End Sub

Private Sub Command2_Click()
Label1.Caption = Int((100 - 0 + 1) * Rnd + 0) '随机得到一个0到100之的数字
End Sub

程序写完了,你在窗体上添加两个Command按钮,两上label标签,把上面的代码复制进去,看结果吧!!!

使用标签的caption属性即可显示
lable1.caption=………………
我不清楚标准体重的计算方法 使用f（）代替
如果要求在标签上显示变化的数值 可使用text控件的change方法
将语句lable1.caption=f（text1.text）加到text控件的change方法中
如果text1的text值发生变化，标签lable1的数值也变化