Question

VB.NET 考试题目 急 求高手啊

1. 子过程CountN用来统计字符串中各数字字符（“0”~“9”）出现的个数；主调程序实现在TextBox1框输入的文本，每次单击“统计”按钮，调用该子过程，在Label1框中显示结果，运行界面如图所示
Sub Button1_Click(.....) Handles Button1.Click
Dim n(9) As Integer ,i%
Call CountN(n,TextBox1.Text)
Label2.Text= “”
For i=0 To 9
If n(i) Then
Label2.Text &=”数字” & Chr(i+48) & “出现次数为” & n(i) & vbCrLf
End If
Next i
End Sub
Sub CountN(________（1）_________)
Dim c As Char, i%, m%, j%
For i=0 To 9
num(i)=0
Next i
m=______（2）_______
For i=1 To m
c=______（3）_______
If c>= “0” And c<=”9” Then
j=Val(c)
Num(j)=___（4）______
End If
Next i
End Sub
2.VB.NET为用户提供了Math.Sqrt函数用于计算平方根值，但被开方值若为负数则无法得出正确的结果（如，-4的平方根应等于2i）。要求设计一个Function过程解决这一问题。（按钮“计算”和“清除”的Name属性分别为Button1和Button2，文本框的Name的属性为Textbox1，两个标签的属性为Label1，label2）程序运行结果如下图所示：
Public Class Form1
Sub myclear()
TextBox1.Text = ""
TextBox1.Focus()
Label2.Text = ""
End Sub
Function mysqr(ByVal num)

Answer 1

(1)ByVal num as Integer() ,ByVal strInput as string
(2) strInput.Length -1
(3)strScript(i)
(4) Num(j)+1
Function mysqr(ByVal num) as string
Dim retVal as string
if num<0 then
num =-num
retVal =Math.Sqrt(num).tostring +"i"
else
retVal =Math.Sqrt(num).tostring
end if
return retVal
End function