VB中编写一个华氏摄氏温度之间的转换程序f=9c/5+32,c=5(f-32)/9在文本框中输入,以回车键激发keypress事件

VB中编写一个华氏摄氏温度之间的转换程序f=9c/5+32,c=5(f-32)/9在文本框中输入,以回车键激发keypress事件

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  If IsNumeric(Text1.Text) Then
    Text2.Text = 9 * Val(Text1.Text) / 5 + 32
  Else
    MsgBox "请输入数字", vbCritical, "错误"
    Text1.Text = ""
    Text1.SetFocus
  End If
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
  If IsNumeric(Text2.Text) Then
    Text1.Text = 5 * (Val(Text2.Text) - 32) / 9
  Else
    MsgBox "请输入数字", vbCritical, "错误"
    Text2.Text = ""
    Text2.SetFocus
  End If
End If
End Sub

从你的血糖值来看已达到糖尿病的诊断标准，而且你提到有服用口服降糖药，应是曾诊断过糖尿病，但由于资料不全，不知是1型还是2型，因为这是决定是否使用胰岛素的关键之一。如果是1型糖尿病，则必须使用胰岛素；如果是2型糖尿病则首先需找到血糖升高的原因，可能的原因有感染、饮食失衡、口服降糖药（尤其是磺脲类）失效等。但餐后血糖高达19.5mmol/L，提示残存胰岛功能已严重不足，且高糖状态下对胰岛细胞有毒性作用，易引起酮症酸中毒等并发症，故建议采用胰岛素治疗。可在口服降糖药的基础上加用基础胰岛素如地特胰岛素和甘精胰岛素；亦可改为一天两次的预混胰岛素，如诺和灵30R，甘舒霖30/70。强烈建议到当地正规医院内分泌科明确诊断，并了解是否有并发症再决定治疗方案。
是餐后血糖高，最好做个糖耐量试验。19.5已经超过了正常的范围，如果不是确诊了的糖尿病患者建议你查一下胰岛功能和糖化血红蛋白，如果是糖尿病患者说明你的餐后血糖控制的不好，在用药上要加量或者是调整用药。一定要控制好饮食，加强体育锻炼。

你想问什么问题？你都已经写得很清楚了。