vb.net三道题

第一道(不能使用子函数).
用inputbox输入1个数n，计算1!+3!+5!+....n! 

第二道(必须使用子函数)
利用自定义函数fun1求圆面积
利用自定义函数fun2计算矩形面积

第三道(不使用子函数)
判断一个数是否为素数

我做了一下,但是错了...
第一题:
        Dim i, c As Integer
        Dim N As String = InputBox("输入N的值.")
        c = 1
        For i = 1 To Val(N) Step 2
            c = c * i
        Next
        TextBox1.Text = c
第二题第一问:
 Sub fun(ByVal r As Double, ByVal s As Double)
        s = 3.1415 * r * r
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim s, r As Double
        r = Val(TextBox1.Text)
        fun(r, s)
        TextBox2.Text = s
    End Sub
第三题:
        Dim n, i As Integer
        n = Val(TextBox1.Text)
        For i = 2 To n - 1
            If n Mod i = 0 Then
                Label1.Text = "不是素数"
            Else
                Label1.Text = "是素数"
            End If
        Next
    End Sub

在线等...

追问：你这发的什么东西?

答案：加好友HI 我给你讲.

其他：+Q:913544949 如果图片大小相同且小,就用imagelist
要不还是用picturebox吧
控件数组没了,你可以定义一个数组变量即可

dim p(9) as picturebox

mybase.load里加代码

p(0) = picturebox1
p(1)= picturebox2
...
p(9)= picturebox10

开始按钮中代码

dim i,j as integer 
j = math.rnd()*10
for i = 0 to 9
p(i).visibale=false
next
p(j).visibale=true
 第6题：就是从一个集合中取元素输出的问题比较简单的办法就是使用递归以下是使用VB的方法(可以移植到VB.NET上,因为我对VB.NET的数组到现在还不太会, 第一道，输入n并判断n为奇数的过程省略：
       int n;           
            long ret=0,factorial = 1;
           
            for (int i = 1; i < n + 1;i+=2 )
            {
                for (int j = 1; j < i + 1;j++ )
                {
                    factorial*=j;
                }
                ret += factorial;
            } 

没注意你是用的vb.net语言，第三道题：
假如要判断的数为N
Dim N,F as Integer
Dim bPrime As Boolean
 bPrime =True
    For F=2 To N-1        
            If N mod F = 0 then
                bPrime= False   
                Exit For       
            End if
        Next
'此时看bPrime的值 

第二道：
Private Function CalcCircleArea(Byval radius as double ) As Double
Return Math.Pow(radius, 2) * Math.PI
End Function
Private Function CalcRectArea(Byval width as double ,Byval Length as Double ) As Double
Return width*Length;
End Function 

上一个：VB.net 怎么让鼠标滚轮 对gridview进行翻页，以前是写上一页 下一页的按钮的
下一个：VB.net如何设置程序运行时最先打开的窗体？