Form 数 运算符数2 运算结果 123 ↓34 4182 (10)输入两点坐标,在图片框中显示两点的连线并计算两点间的距离 a Form1 输入两点坐标 10p0 L计算 两点间距离 28.28427124 习题4 1程序阅读题 (1)假定有如下的Sub过程 Sub s (xAs single, y As Single) t=x y y=t Mod y End Sub 在窗体上添加一个命令按钮,然后编写如下事件过程 Private Sub Commandl Click Dim a as single Dim b as single a=5:b=4 Print a, b End Sub 程序运行时,单击命令按钮得到的结果是 A.5.4 D.1.25.1 (2)在在窗体上添加一个命令按钮 Commandl和一个文本框 Text,然后编写如下事件 过程 Private Sub Commandl Click Dim xAs Integer, y As Integer, z As Integer ext1 Text= Call pI(x, y, z) TextI Text= Str(z) End Sub Private Sub pl(By Val a As Integer, By Val b As Integer, c As Integer) =a+b（10）输入两点坐标，在图片框中显示两点的连线并计算两点间的距离。 习题 4 1 程序阅读题 (1) 假定有如下的 Sub 过程： Sub S (x As Single, y As Single) t = x x = t / y y = t Mod y End Sub 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a = 5: b = 4 S a, b Print a, b End Sub 程序运行时，单击命令按钮得到的结果是 。 A. 5, 4 B. 1, 1 C. 1.25, 4 D. 1.25, 1 (2) 在在窗体上添加一个命令按钮 Command1 和一个文本框 Text1，然后编写如下事件 过程： Private Sub Command1_Click() Dim x As Integer, y As Integer, z As Integer x = 5 y = 7 z = 0 Text1.Text = "" Call p1(x, y, z) Text1.Text = Str(z) End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer) c = a + b