求自然数对数Private Sub Command1_Click()For x = 1 To 100For y = 1
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:数学作业 时间:2024/05/15 17:43:19
求自然数对数
Private Sub Command1_Click()
For x = 1 To 100
For y = 1 To 100
If x < y Then t = x:x = y:y = t
If x + y = (Sqr(x + y)) ^ 2 And x - y = (Sqr(x - y)) ^ 2 Then
List1.AddItem Format(x,"@@@@") & Format(y,"@@@@")
End If
Next
Next
End Sub
x < y Then t = x:x = y:y =
它的意思是不是 当X
Private Sub Command1_Click()
For x = 1 To 100
For y = 1 To 100
If x < y Then t = x:x = y:y = t
If x + y = (Sqr(x + y)) ^ 2 And x - y = (Sqr(x - y)) ^ 2 Then
List1.AddItem Format(x,"@@@@") & Format(y,"@@@@")
End If
Next
Next
End Sub
x < y Then t = x:x = y:y =
它的意思是不是 当X
a瓶装酱油,b瓶装醋,现在想把b瓶装酱油,a瓶装醋.怎么办呢?
于是就有人想出一个方法:
拿一个空瓶(c瓶),dim c as integer
先把a瓶的酱油倒入c瓶,c=a
又把b瓶的醋倒入a瓶,a=b
再把c瓶的酱油倒入b瓶.b=c
于是就有人想出一个方法:
拿一个空瓶(c瓶),dim c as integer
先把a瓶的酱油倒入c瓶,c=a
又把b瓶的醋倒入a瓶,a=b
再把c瓶的酱油倒入b瓶.b=c
Private Sub Command1_Click() For i = 1 To 4 x = 4 For j = 1
1)private sub command1_click() x=10:y=0 for i=1 to 5 do x=x-
Private Sub Command1_Click() x=0 n=InputBox("") For i=1 To n
private sub command1_click( ) FOR a=1 TO 5 y=1 FOR b=1 TO 5
Private Sub Command1_Click() For i = 1 To 3 For j = i To 1 a
Private Sub Command1_Click() For i = 1 To 3 For j = 1 To i F
Private Sub Command1_Click() For i=1 To 4 x=4 For j =1 To 3&
Private Sub Command1_Click() n = 0 For i = 1 To 3 For j = -4
求解一道VB private sub command1_click() for i = 1 to 4 x=4 for j
SOS!Private Sub Command1_Click()/s=0/For j=1 To 20/If j Mod
Private Sub command1_click() Dim m(10) For k = 1 To 10 m(k)
Private Sub Command1_Click() Dim b,k For k=1 to 6 b=23+k Nex