Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Val(text1.Text)
b = Val(text2.Text)
c = (a + b + Abs(a - b)) \ 3
Text3.Text = Str(c)
End Sub
运行该程序,分别在文本框Text1、Text2中输入5、9,单击命令按钮Command1后,文本框Text3中显示的内容是( )
微信扫码预览、分享更方便