vb.net简单的编程代码（vb程序编写代码大全）

今天给各位分享vb.net简单的编程代码的知识，其中也会对vb程序编写代码大全进行解释，如果能碰巧解决你现在面临的问题，别忘了关注本站，现在开始吧！

本文目录一览：

• 1、请问Vb.net编程代码，不要C语言的，我看不懂啊？
• 2、求vb.net(vb2010)程序代码 产生30个50以内的随机正整数，将他们从大到小排序后输出
• 3、用VB.NET程序编写代码

请问Vb.net编程代码，不要C语言的，我看不懂啊？

Imports System

Module Program

Sub Main()

Dim n As Integer

n=6

Console.WriteLine("{0}!={1}",n,fact(n))

n=10

For i As Integer=1 To n

Console.Write("{0}{1}",fibo(i),IIF(n=i,vbCrLf,","))

Next

Console.Write("按任意键继续。。。 ")

Console.ReadKey(True)

End Sub

' 递归算阶乘

Function fact(n As Long) As Long

If 0=n OrElse 1=n Then Return 1

Return n*fact(n-1)

End Function

' 递归算斐波那契数列

Function fibo(n As Long) As Long

If 1=n OrElse 2=n Then Return 1

Return fibo(n-1)+fibo(n-2)

End Function

End Module

求vb.net(vb2010)程序代码 产生30个50以内的随机正整数，将他们从大到小排序后输出

vb2010写的：

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim str As String = ""

        Dim a(30) As Integer

        Dim temp As Integer

        str = str  "生成的30个随机数字是 "  vbCrLf

        For i = 1 To 30

            a(i) = Int(Rnd() * 50 + 1)

            str = str  a(i)  " "

            If i Mod 10 = 0 Then

                str = str  vbCrLf

            End If

        Next

        str = str  vbCrLf

        For i = 1 To 30

            For j = 1 To 30 - i

                If a(j)  a(j + 1) Then

                    temp = a(j + 1)

                    a(j + 1) = a(j)

                    a(j) = temp

                End If

            Next j

        Next i

        str = str  "排序后的数字是 "  vbCrLf

        For i = 1 To 30

            str = str  a(i)  " "

            If i Mod 10 = 0 Then

                str = str  vbCrLf

            End If

        Next

        TextBox6.Text = str

    End Sub

运行结果：

生成的30个随机数字是

36 27 29 15 16 39 1 39 41 36

3 21 44 40 19 49 44 3 48 19

27 39 3 30 24 15 32 33 14 14

排序后的数字是

49 48 44 44 41 40 39 39 39 36

36 33 32 30 29 27 27 24 21 19

19 16 15 15 14 14 3 3 3 1

用VB.NET程序编写代码

Delphi代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

购物总价:Integer;

折扣:Extended;

begin

购物总价:=StrToInt(Edit1.Text);

if 购物总价250 then

begin

  折扣:=0;

end

else if 购物总价500 then

begin

  折扣:=0.05;

end

else if 购物总价1000 then

begin

  折扣:=0.075;

end

else if 购物总价2000 then

begin

  折扣:=0.1;

end

{

此段的折扣是多少？

else if 购物总价3000 then

begin

  折扣:=0.05;

end

}

else if 购物总价=3000 then

begin

  折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

    +' 原价：'+IntToStr(购物总价)

    +' 折后总价：'+FloatToStr(购物总价*(1-折扣)));

end;

vb.net简单的编程代码的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb程序编写代码大全、vb.net简单的编程代码的信息别忘了在本站进行查找喔。