Question

vb编写出现问题，各位大仙帮帮我呀！！！！我是新手。。。

Private Sub Command1_Click()
If m = 0 Then
a = Val(30 - i + Val(n / 2))
Else: a = Val(30 - i - Val(m / 2))
End If

End Sub
Private Sub Form_Load()
Dim a As Integer
Text1.Text = i
Text2.Text = m
Text3.Text = n
Text4.Text = a
End Sub

Answer 1

Command1_Click 这样写试试看

Private Sub Command1_Click()
    Dim i As Integer
    Dim m As Integer
    Dim n As Integer
    Dim a As Integer
    
    i = Val(Texti.Text)
    m = Val(Textm.Text)
    n = Val(Textn.Text)
    
    If m = 0 Then
        a = Val(30 - i + Val(n / 2))
    Else
        a = Val(30 - i - Val(m / 2))
    End If
    Texta.Text = a
End Sub

工程示例见附件

Answer 2

这个样子，在点击完按钮后是不会有结果显示 出来的，
需要在 Command1_Click() 这里添加 Text4.Text = a 才能显示 出来

追问

添加以后是显示出来了，但是无论i m n 输入什么值，a一直都是30不变，请问一下这是为什么

追答

把Text4.Text = a 写在 Command1_Click() 的最后