更多"在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换"的相关试题:
[填空题]在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将10个数排成升序，请在空白处填入适当的语句。
Sub SORT( )
Dim a(1 To 10)
For i=1 To 10
a(i)=Val(InputBox(" " ，" "，0))
Next i
For i=【 】
k=i
For j=【 】
If a(k)＞a(j)Then 【 】
If k＜ ＞i Then
b＝a(k)
a(k)＝a(i)
a(i) =b
End If
Next j
Next i
For k=1 To 10
Print a(k)
Next k
End Sub
[单项选择]窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1 Click（ ）
Dim n As Integer
n=add(5，10)
Print n
End Sub
Function add(v1 As Integer，v2 As Integer，Optiona1 v3)As Integer
If Not IsMissing(v3)Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是( )。
A. 程序不能正常运行，因为函数add的参数定义有错
B. 程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
C. 程序能正常运行，结果是在窗体上显示15
D. 程序能正常运行，结果是在窗体上显示510v3
[单项选择]
窗体上有一个名称为Command1的命令按钮，其单击事件过程及有关函数过程如下：
Private Sub Command1_Click（ ）
Dim n As Integer
n=add(5,10)
Print n
End Sub
Function add(v1 As Integer , v2 As Integer , Optional v3) As Integer
If Not IsMissing(V3) Then
add=v1+v2+v3
Else
add=v1+v2
End If
End Function
运行程序，单击命令按钮，以下叙述中正确的是（）。
A. 程序不能正常运行，因为函数add的参数定义有错
B. 程序不能正常运行，因为函数定义与函数调用语句的参数个数不匹配
C. 程序能正常运行，结果是在窗体上显示15
D. 程序能正常运行，结果是在窗体上显示510V3
[填空题]在窗体上有一个列表，然后编写如下两个事件过程：
Private Sub Form_Click（ ）
List1.RemoveItem 1:List1.RemoveItem 2
List1RemoveItem 3
End Sub
Private Sub Form_Load（ ）
List1.AddItem"ItemA":List1.AddItem"ItemB’P
List1.AddItem"ItemC ’:List1.AddItem"ItemD"
List1.AddItem"ItemE”
End Sub
运行上面的程序，然后单击窗体，列表框中显示的项目是 (7) 。
[填空题]在窗体上有一个命令按钮，然后编如下事件过程：
Function SR( x As Double)As Double
Select Case Sgn(x)
Case 1
SR=Sqr(x)
Exit Function
Case 0
SR=0
Case-1
SR=-1
End Select
End Function
Private Sub Command1 _ Click( )
Dim Msg，SRN
Dim N AS Double
N=InputBox("请输入要计算平方根的数")
Msg=N&"的平方根"
Select Case SR(N)
Case 0
Msg=Msg &"是0"
Case-1
Msg=Msg&"是一个虚数"
Case ElSe
Msg=Msg &"是"& SR(N)
End Select
MsgBox Msg
End Sub
程序运行后，单击命令按钮，在输入对话框内输入－1，输出结果是【 】。
