窗体

一个窗体单击事件过程如下:Private Sub Form_Click()  X = Val(Text1.Text):Y = Val(Text2.Text)  If X = 0 Or Y = 0 Then Print"不在任何象限内": Exit Sub  If X > 0 And Y > 0 Then Print"IN A"  If X > 0 And Y   If X 0 Then Print"IN B&quo

一个窗体单击事件过程如下:Private Sub Form_Click()  X = Val(Text1.Text):Y = Val(Text2.Text)  If X = 0 Or Y = 0 Then Print"不在任何象限内": Exit Sub  If X > 0 And Y > 0 Then Print"IN A"  If X > 0 And Y   If X 0 T

一个窗体单击事件过程如下:Private Sub Form_Click()  Dim a As Integer, b As Integer, c As Integer  a = 6 : b = 15  c = a * b  If a > b Then     a = a - b  Else     b = b - a  End If  Print a, b, c / bEnd Sub试问:当单击窗体后,输出为___________。

一个窗体单击事件过程如下:Private Sub Form_Click()  Dim a As Integer, b As Integer, c As Integer  a = 6 : b = 15  c = a * b  If a > b Then     a = a - b  Else     b = b - a  End If  Print a, b, c / bEnd Sub试问:当

勾股定理中三个数的关系是:a2+b2=c2,编写程序,输出1到30以内满足上述关系的整数组合,打印在窗体上,例如3,4,5就是这样一个整数组合。

勾股定理中三个数的关系是:a2+b2=c2,编写程序,输出1到30以内满足上述关系的整数组合,打印在窗体上,例如3,4,5就是这样一个整数组合。Private Sub Form_Click()For a = 1 To 30  For b = 1 To 30    For c = 1 To 30      If a ^ 2 + b ^ 2 = c ^ 2 Then        Print a; b

一个窗体单击事件过程如下:Private Sub Form_Click()  x = Int(Rnd) + 10  If x * x > 10 Then y = x + 1  If x * x = 8 Then y = x * x  If x * x   Print yEnd Sub试问:当单击窗体后,输出为___________。

一个窗体单击事件过程如下:Private Sub Form_Click()  x = Int(Rnd) + 10  If x * x > 10 Then y = x + 1  If x * x = 8 Then y = x * x  If x * x   Print yEnd Sub试问:当单击窗体后,输出为___________。11