判断这个按钮代码怎么打

这题你不是问过了么

Dim a(4) As Integer
Private Sub Command1_Click()
Dim s As String
Randomize
For i = 0 To 4
If Rnd > 0.5 Then
a(i) = Int(5 - Rnd * 10)
ElseIf Rnd = 0.5 Then
a(i) = 0
Else
a(i) = Int(5 - Rnd * 10 + 1)
End If
Next i
For i = 0 To 4
s = s + Str(a(i)) + " "
Next i
Text1.Text = s
End Sub
Private Sub Command2_Click()
Dim b(4) As Integer
Dim k As String
For i = 0 To 4
For j = 0 To 4
If Abs(a(i)) > Abs(a(j)) Then
b(i) = b(i) + 1
End If
Next j
Next i
For i = 0 To 4
k = k + Str(b(i)) + " "
Next i
Print k
End Sub

'完整代码
Option Explicit
Dim a(1 To 5) As Integer
Dim i As Integer
Dim j As Integer
Dim n As Integer
Private Sub Command1_Click()
Randomize
Text1.Text = ""
For i = 1 To 5
a(i) = Int(Rnd * 11) - 5
Text1.Text = Text1.Text & a(i) & " "
Next i
End Sub
Private Sub Command2_Click()
Cls
For i = 1 To 5
n = 0
For j = 1 To 5
If a(j) > Abs(a(i)) Then n = n + 1
Next j
Print n;
Next i
End Sub

不知道你哪里出的问题，也有可能并不是“判断”按钮的问题，而是其他代码的问题
总之给你个完整代码的参考吧

这个怎么自动滚动

关于“判断”代码的含义（字数超过楼中楼限制了，重开一楼）：
就是对每个数a(i)取绝对值，跟其他的数a(j)比较（注：严格来说，这里的比较条件应该加上i<>j这个限制，即不能自己跟自己比较，但由于任何数都不会大于自己的绝对值，因此这里才没有加这个条件），统计满足a(j)>Abs(a(i))的数字个数，c是计数变量，每找到一个满足条件的数则c值加1，在每次对某个a(i)进行统计之前，需要先将c的值清零

cyeshou

学习了....各位大佬的代码果然厉害