vb必选参数

来源：百度知道 编辑：UC知道 时间：2024/09/24 06:59:04
Private Sub Form_Click()
Call SortData
End Sub

Private Sub Form_Click()
此句为黄色,运行时弹出对话框提示编译错误,必选参数

以下是模块
Public Sub SortData(i As Integer, j As Integer)
Dim a(10) As Interger
For i = 1 To 10
a(i) = Int(Rnt * 21 + 30)
Next i
For i = 1 To 9
'--------1-------
'If a(i) > a(j) Then
If a(i) > a(j - 1) Then
'-------2------
Swap a(i), a(j)
End If
Next j
Form2.Print a(i)
Next i
'Form1.-----3-----
Form1.Print a(10)
End Sub
Public Sub Swap(a As Integer, b As Integer)
'该过程是用于交换两个变量的值。
Dim temp As Integer
temp = a
a = b
b = temp
End Sub
我把Public Sub SortData(i As Integer, j As Integer)改成 Public Sub SortData()后,
Public Sub SortData()变黄色,提示用户定义类型未定义

中间错误真多
给改过了，以下代码全部在form1里

Private Sub Form_Click()
Call SortData
End Sub

Sub SortData()
Dim a(10) As Integer
For i = 1 To 10
a(i) = Int(Rnd() * 21 + 30)
Next i
For i = 1 To 9

For j = i+1 To 10
If a(i) > a(j) Then
Swap a(i), a(j)
End If
Next j
Me.Print a(i)
Next i

Me.Print a(10)
End Sub
Sub Swap(a As Integer, b As Integer)
Dim temp As Integer
temp = a
a = b
b = temp
End Sub

使用 Call 调用子程序或者函数一定要用括号将参数括起来，即使没有参数也要放一个空的括号