更多"在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换"的相关试题:
[填空题]在窗体上有一个过程函数，然后编写如下事件程序，该过程的功能是用选择交换法将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
[填空题]在窗体上有一个列表，然后编写如下两个事件过程：
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) 。
[单项选择]在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1Click（ ）
Dim a(5)As String
For i=1，To 5
a(i)=Chr(Asc("A")+(i-1))
Next i
For Each b In a
Print b；
Next
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
[单项选择]在窗体上有一个命令按钮，然后编写如下事件过程 Private Sub Command1 _ cickc ( ) a=InputBox("enter the first integer") b=InputBox("enter the second integer") Print b + a End Sub 程序运行后，单击命令按钮，先后在两个输入框中分别输入“2”和“6”，则输出结果为
A. 2
B. 62
C. 8
D. 26
[单项选择]在窗体上有一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim a(5)As String
FOR i=1 To 5
a(i)=Chr(Asc("A")+(i-1))
Next
For Each b In a
Print b；
Next
End Sub
程序运行后，单击命令按钮，输出结果是
A. ABCDE
B. 1 2 3 4 5
C. abcde
D. 出错信息
[填空题]在窗体上有一个命令按钮，然后编如下事件过程：
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，输出结果是【 】。
