vb.net心形函数,心形程序c语言函数

vb.net中我使用函数sin函数计算sin30度可是为什么算出来结果是0.479425538604203高手帮忙看看！程序如下：

为什么我的不是?

目前创新互联已为上千余家的企业提供了网站建设、域名、网络空间、网站托管、企业网站设计、新巴尔虎右网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。

Dim pi

pi = 3.1415926

Dim a

a = 30

Text1.Text = Sin(a * pi / 180)

VB.Net中关于随机函数的问题

Dim num, counter As Integer

numbers = ""

For I = 1 To N

Sz(I) = N

Next I

For counter = 1 To M

Randomize

Do

Si = False

num = Int(Rnd * N) + 1

If Sz(T) 0 Then

X(I) = Sz(T)

Sz(T) = 0

Si = True

End If

Loop Until (Si = True)

numbers = numbers CStr(num) vbCrLf

Next

TextBox3.Text = numbers

增加一个判断过程，我修改了一下前几天给别人写的那个方法，你可以尝试一下：）

如何用VB.NET画同心圆

窗体上添加一个按钮，在该按钮的单击事件里编写代码如下：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'声明窗体的Me.CreateGraphics对象

Dim MyGraphics As Graphics = Me.CreateGraphics

Dim Cx As Integer = 150 '圆心的X坐标

Dim Cy As Integer = 150 '圆心的Y坐标

Dim R As Integer '圆的半径

'绘制半径为R的圆

For R = 5 To 100 Step 5

MyGraphics.DrawEllipse(Pens.Black, New Rectangle(Cx - R, Cy - R, 2 * R, 2 * R))

Next

End Sub

‘用黑色画笔绘制一组同心圆，半径从5开始，增量为5。

说明：

DrawEllipse是VB.Net的Graphics类的绘制椭圆的方法；他有几种格式，上面使用的是一种；

DrawEllipse（画笔的颜色，绘制椭圆所需要的矩形区域）

其中：绘制椭圆所需要的矩形区域，如果被定义为正方形，就演变成绘制圆，定义该区域由死个数值确定，第1个数值，确定该区域左上角的X坐标，第2个数值，确定该区域左上角的Y坐标，第3个数值，确定该区域的宽度，第4个数值，确定该区域的高度。

例如1：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 50, 50))

就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），边长为50的正方形里绘制内切圆。理解了是在正方形里绘制内切圆，就可以通过数学计算，知道如何绘制了。

同理例如2：

DrawEllipse(Pens.Black, New Rectangle(150, 150, 100, 50))

就是以圆心坐标为（100,100），绘制半径为50 的圆。其实在VB.NET中，是告诉系统在以左上角坐标（150,150），长轴为100，短轴为50的内切椭圆。

VB.NET string$函数

VB6的String()函数，在VB.NET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：

例如：

VB6中，String(5,"*") ，是产生5个星号字符，"*****"

VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"

vb.net中如何实现vb中的shape功能

你用的是控件数组

光发了代码不知道你用的是动态的还是静态的数组

还有就是有没有shape1(0)呢

动态的话你的用

load

shape1(i)

放到

for循环下面就可以了

VB.NET自定义函数

很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况

Public Function Zuhe(ByVal qa As String) As String

Select Case qa

Case "0"

Return "1"

Case "1"

Return "3"

Case "2"

Return "4"

Case "3"

Return "6"

Case "4"

Return "2"

Case "5"

Return "8"

Case "6"

Return "9"

Case "7"

Return "7"

Case "8"

Return "5"

Case "9"

Return "0"

Case else

Return "XXXX"

End Select

End Function