6.某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下：
Function Maxvalue(a() As Integer) As Integer
Dim max%
max=1
For k = 2 To 10
If a(k)>a(max) Then
max = k
End If
Next k
Maxvalue = max
End Function
程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是
A.语句max = 1应改为max = a(1)
B.语句For k = 2 To 10应改为For k = 1 To 10
C.If语句中的条件a(k)>a(max)应改为a(k)>max
D.语句Maxvalue = max 应改为Maxvalue = a(max)
7.某人设计了下面的函数fun，功能是返回参数a中数值的位数
Function fun(a As Integer) As Integer
Dim n%
n = 1
While a \ 10 >= 0
n = n + 1
a = a \ 10
Wend
fun = n
End Function
在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是
A.把语句n = 1改为n = 0
B.把循环条件a \ 10 >= 0改为a \ 10 > 0
C.把语句 a = a \ 10改为a = a Mod 10
D.把语句fun = n改为 fun = a
8.在窗体上画3个标签、3个文本框(名称分别为Text1、Text2和Text3)和1个命令按钮(名称为Command1)，
编写如下程序：
Private Sub Form_Load()
Text1.Text=""
Text2.Text=""
Text3.Text=""
End Sub
Private Sub Command1_Click()
x=Val(Text1.Text)
y=Val(Text2.Text)
Text3.Text=f(x，y)
End Sub
Function f(ByVal x As Integer,ByVal y As Integer)
Do While y<>0
tmp=x Mod y
x=y
y=tmp
Loop
f=x
End Function
运行程序，在Text1文本框中输入36，在Text2文本框中输入24，然后单击命令按钮，则在Text3文本框中显示的内容是( )
A.4
B.6
C.8
D.12
9.假定有以下函数过程：
Function Fun(S As String) As String
Dim s1 As String
For i = 1 To Len(S)
s1 = UCase(Mid(S, i, 1)) + s1
Next i
Fun = s1
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim Str1 As String, Str2 As String
Str1 = InputBox("请输入一个字符串")
Str2 = Fun(Str1)
Print Str2
End Sub
程序运行后，单击命令按钮，如果在输入对话框中输入字符串"abcdefg"，则单击"确定"按钮后在窗体上的输出结果为( )
A.abcdefg
B.ABCDEFG
C.gfedcba
D.GFEDCBA