vb.net函数代码 vbnet ui

VB.NET中API函数问题

success = WritePrivateProfileStringA改成success = WritePrivateProfileString 另外vc6里的long在vc.net里要换成integer，你这样调用会出错的

相关问答

Q1: vb.net 字符串，16进制间转换(求代码)

把字符串“12341168C5B7”转换为16进制数存为string型

用shuzi=Convert.ToInt32("12341168C5B7",16)

就ok了。

反之用 shuzi.ToString("X")就行了。

给分！！！

12341168C5B7转换成10进制数就是20014839678391。。

而int32的最大值为2,147,483,647。。所以产生错误。

所以要用int64，它的最大值为9,223,372,036,854,775,807。也就是16位十六进制数0X7FFFFFFFFFFFFFFF。

难道还有比F靠后的数？？？？？？

Q2: 使用vb.net编写一个函数，函数只有一个参数

首先在窗体上添加Button1vb.net函数代码，ListBox1vb.net函数代码，下面是完整代码

Public Class Form1

    Public Sub BubbleSort(ByVal arr() As Integer) '冒泡法排序

        Dim temp As Double

        Dim i, j As Integer

        For i = 0 To arr.GetUpperBound(0) - 1

            For j = i + 1 To arr.GetUpperBound(0) - 1

                If arr(i)  arr(j) Then

                    temp = arr(j)

                    arr(j) = arr(i)

                    arr(i) = temp

                End If

            Next

        Next

    End Sub

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

        Dim arr() As Integer = {55, 22, 33, 11, 77, 88}

        BubbleSort(arr) '调用排序过程

        Me.ListBox1.Items.Clear()

        For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果

            Me.ListBox1.Items.Add(arr(i).ToString)

        Next

    End Sub

End Class

Q3: vb.net 如何能获取到 自定义函数的代码内容

首先新建一个类库项目vb.net函数代码，把你的代码以类（需要实例）或模块（静态）的形式封装好vb.net函数代码，生成过后在输出目录（bin/debug或bin/release）里面会有个项目名.dll文件，就是它vb.net函数代码了。

在调用方项目里，右键解决方案资源管理器中的引用，添加引用，浏览到你的dll文件。接着到你的代码中，代码最上面写：

Imports 项目名

然后调用这个类或模块即可。

根据你的情况，可能用模块封装更适合一些。比如：

Public Module MatrixSolve

Public Function Solve(para1 As Double,para2 As Double) As Double

'一些代码

Return result

End Function

End Module

调用起来只要这样即可：

Dim num As Double = MatrixSolve.Solve(x,y)

注意模块和函数的访问级别都用Public，否则外面无法访问。

Q4: vb.net 编写一个函数

注意：参数为动态数组；

Private Function MyF(ByRef d() As Integer)

ReDim d(4, 13) As Integer

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim MyNum(4) As Integer

For i = 1 To 4

MyNum(i) = 0

Next i

Randomize

For i = 1 To 4

For j = 1 To 13

n = Int(Rnd * 4 + 1)

Do While MyNum(n) = 13

n = Int(Rnd * 4 + 1)

Loop

d(i, j) = n

MyNum(n) = MyNum(n) + 1

Next j

Next i

End Function

Q5: 求VB.NET代码，“用随机函数随机得到五个数并由小到大排列”最好不要用循环结构。

a = Int((2013 - 12 + 1) * Rnd() + 12)

b = Int((2013 - 12 + 1) * Rnd() + 12)

c = Int((2013 - 12 + 1) * Rnd() + 12)

d = Int((2013 - 12 + 1) * Rnd() + 12)

m = Int((2013 - 12 + 1) * Rnd() + 12)

If a b Then t = b: b = a: a = t

If a c Then t = c: c = a: a = t

If a d Then t = d: d = a: a = t

If a m Then t = m: m = a: a = t

If b c Then t = c: c = b: b = t

If b d Then t = d: d = b: b = t

If b m Then t = m: m = b: b = t

If c d Then t = d: d = c: c = t

If c m Then t = m: m = c: c = t

If d m Then t = m: m = d: d = t

text1 =a

text2 =b

text3 =c

text4 =d

text5=m

关于vb.net函数代码和vbnet ui的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。