关于redimvb.net的信息

vb.net求帮助要用redim语句

写的比较粗糙，参考一下吧

成都创新互联公司2013年至今，是专业互联网技术服务公司，拥有项目做网站、网站制作网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元宜丰做网站,已为上家服务,为宜丰各地企业和个人服务,联系电话:18982081108

Sub Main()

Dim numArr() As Double

Dim count As Integer = 1

Dim num As Double

Dim sumNum As Double = 0

Dim aveNum As Double

Dim flag As Integer = 0

While (True)

Console.Write("请输入第{0}个数:", count）

ReDim Preserve numArr(count - 1)

num = Convert.ToDouble(Console.ReadLine())

If num = 0 Then

Exit While

End If

numArr(count - 1) = num

count += 1

End While

If count 1 Then

Dim cha As Double

Dim minCha As Double = Double.MaxValue

For i As Integer = 0 To count - 1

sumNum += numArr(i)

aveNum = sumNum / (count - 1)

For i As Integer = 0 To count - 1

cha = Math.Abs(aveNum - numArr(i))

If minCha = cha Then

minCha = cha

flag = i + 1

End If

Console.WriteLine("总共输入{0}个正数，平均值为{1}", count - 1, aveNum）

Console.WriteLine("最接近平均值的是第{0}个正数，值为{1}", flag, numArr(flag - 1)）

Console.ReadKey()

End Sub

在VB.NET中,使用Redim语句重新定义一个数组是,需要注意什么问题

1. 前提一定要声明一个数组,不需要赋值或者标明维数，例如dim a() as integer

2. 如果使用redim重新定义一个数组，数组里数据全部被初始化，要保留原有数据加上preserve

3 redim只能修改数据最后的维数，不能改变数组类型

4 redim 不能够全局声明

如何通过netlink发送数据？

不知道你的winsock 是udp还是tcpip协议

这里给你一个我写的实例我是用的udp 这个发送了一段数据不一定接收就正确所以我做了校验

'以下是发送文件的

Option Explicit

Dim GetFileNum As Integer, LenFile As Long, SendByte() As Byte '发送的包

Private Sub Command1_Click()

On Error Resume Next

Command1.Enabled = False

GetFileNum = FreeFile '取得未使用的文件号

LenFile = FileLen(Text1.Text) '获得需传送的文件的长度

If Text2.Text = "" Or Right(Left(Text2.Text, 2), 1) ":" Then Text2.Text = Text1.Text

Winsock0.SendData "#SEND STA#" LenFile "//" Text2.Text

Wt 0.5

Open Text1.Text For Binary As #GetFileNum '打开需传送的文件

Call TCPSendFile(Winsock0, GetFileNum, SplitFile) '传送文件

Me.Caption = Now

Ti.Enabled = True

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Dim A As String

On Error Resume Next

Command2.Top = -2000

Winsock0.RemoteHost = IPX '服务器ip

Winsock0.RemotePort = FilePort

End Sub

Private Function SplitFile() As Long '拆包'为了清晰,下面分别用两个子过程来完成计算这次还可以传多少个字节的数据和传送数据

On Error Resume Next

Dim GetCount As Long

If LenFile = 4000 Then '计算出这次可发送的字节数

GetCount = 4000

LenFile = LenFile - GetCount

Else

GetCount = LenFile

LenFile = LenFile - GetCount

End If

SplitFile = GetCount

End Function

Private Sub TCPSendFile(objWinSock As Winsock, FileNumber As Integer, SendLen As Long)

On Error Resume Next

Dim FileByte() As Byte, I As Long, j As Long, Temp As String * 4

ReDim SendByte(0)

ReDim FileByte(SendLen - 1)

Temp = SendLen + 7

SendByte = Temp '把长度负值给包头

Get #FileNumber, , FileByte '读取文件

ReDim Preserve SendByte(SendLen + 7) '把包头+到文件头

For I = 0 To UBound(FileByte)

SendByte(I + 7) = FileByte(I)

'DoEvents

Winsock0.SendData SendByte

End Sub

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next

Winsock0.Close

Err.Clear

End Sub

Private Sub TEnd_Timer()

On Error Resume Next

Winsock0.SendData "#END#"

Err.Clear

End Sub

Private Sub Ti_Timer()

On Error Resume Next

Winsock0.SendData "#ERR#"

End Sub

Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Dim S As String

Winsock0.GetData S

Select Case S

Case "ok" '成功继续发送

If LenFile = 0 Then '发送完成

If S "#SEND END#" Then Winsock0.SendData "#SEND END#"

Me.Caption = "文件上传成功!"

Command1.Enabled = True

Ti.Enabled = False

TEnd.Enabled = True

Exit Sub

Else

Me.Caption = "文件上传完成:[" Left((FileLen(Text1.Text) - LenFile) / FileLen(Text1.Text) * 100, 4) "%]"

End If

Call TCPSendFile(Winsock0, GetFileNum, SplitFile)

Case "#END#"

TEnd.Enabled = False

FMain.TiF.Enabled = True

Case "no" '不成功重发上一个包

Winsock0.SendData SendByte

End Select

End Sub

'以下是接收文件的

Option Explicit

Dim FOK As Boolean, Fs As Long, FileNumber As Integer, LenFile As Long '文件的长度

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

On Error Resume Next

Dim A As String

Me.Caption = "开始下载"

If Dir(Text2.Text) "" And ChV.Value = 0 Then

If MsgBox("文件已经存在,覆盖吗?", vbCritical + vbYesNo) = vbYes Then Kill Text2.Text Else Exit Sub

Else

Kill Text2.Text

End If

If Text2.Text = "" Then Text2.Text = Text1.Text

'Command2.Enabled = False

If Ch.Value = 0 Then A = "#DOW#" Else A = "#DOV#"

FMain.Wsk.SendData A Text1.Text

Wt 1

FMain.Wsk.SendData "#DOE#" Text2.Text

End Sub

Private Sub Form_Load()

Dim A As String

'FMain.Ts.Enabled = True

On Error Resume Next

If FMain.Cb.Text = "本地组" Or FMain.Cb.Text = "全部组" Then

Me.Caption = "请重选下载用户[“组”不能正确下载]"

Else

Command1.Top = -2000

Winsock0.LocalPort = FilePort

Winsock0.Bind

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

On Error Resume Next

Winsock0.Close

Err.Clear

End Sub

Private Sub La_Click()

CDL.FileName = ""

CDL.ShowOpen

Text2.Text = CDL.FileName

End Sub

Private Sub Winsock0_DataArrival(ByVal bytesTotal As Long)

On Error Resume Next

Dim FileByte() As Byte, A As String, MendByte() As Byte, I As Long, J As Long, Temp As String, W As String

Winsock0.GetData FileByte, vbArray + vbByte '接收类型为:字节数组

J = UBound(FileByte) '获得包长

For I = 0 To 7 Step 2 '合并包头

Temp = Temp Chr(FileByte(I))

For I = 0 To 9 '文件发送结束标记

A = A Chr(FileByte(I))

If A = "#ERR#" Then Winsock0.SendData "no"

If A = "#END#" Then

For I = 0 To Len(FMain.TIn.Text)

If I 100 Then

W = Left(Right(FMain.TIn.Text, I), 1)

If W = "!" Then

W = Left(Right(FMain.TIn.Text, I + 4), 5)

Exit For

End If

Else

Exit For

End If

Next I

If W "下载完成!" Then

FOK = False

Me.Caption = "下载完成![" Text2.Text "]"

FMain.TIn.Text = FMain.TIn.Text "[" Now "]" "下载完成!(" Fs "=" LenFile ")" vbCrLf

Command2.Enabled = True

End If

Else

If Val(Temp) = J Then '比较长度看丢包没有

ReDim MendByte(J - 8)

For I = 0 To J - 8 '提出包头

MendByte(I) = FileByte(I + 7)

Fs = Fs + UBound(FileByte) - 7

Put #FileNumber, , MendByte '写文件

Winsock0.SendData "ok" '发送继续发送的请求

Me.Caption = "文件下载完成:[" Left(Fs / LenFile * 100, 4) "%]"

Else

If Left(A, 10) = "#SEND STA#" Then

A = ""

For I = 10 To UBound(FileByte) '文件发送结束标记

A = A Chr(FileByte(I))

LenFile = Val(Left(A, InStr(A, "//") - 1))

For I = 0 To Len(Text2.Text)

A = Left(Right(Text2.Text, I), 1)

If A = "\" Then Exit For

If Dir(Left(Text2.Text, Len(Text2.Text) - I + 1), vbDirectory) = "" Then MkDir Left(Text2.Text, Len(Text2.Text) - I + 1)

'"#SEND STA#" FileLen(Text1.Text) "//" Text2.Text

FileNumber = FreeFile '取得未使用的文件号

Fs = 0

Open Text2.Text For Binary As #FileNumber '打开文件

Else

If A "#SEND END#" Then

Winsock0.SendData "no" '出现丢包，请求重发

Else

Winsock0.SendData "#END#" '发送继续发送的请求

Close #FileNumber

Reset

If FOK = False Then

FOK = True

Me.Caption = "下载完成![" Text2.Text "]"

FMain.TIn.Text = FMain.TIn.Text "[" Now "]" "下载完成!(" Fs "=" LenFile ")" vbCrLf

Command2.Enabled = True

Else

FOK = False

End If

End Sub

VB.NET ReDim

满意答案是什么大的啊！~这个哪有错！！~。。

Dim array() As Integer = {1, 2, 3, 4, 5, 6} 这个表示定义一个数组。。并赋值。。

redim 重新定义了，这个时候8个值都是为0了。

所以，array(3)为0.

新闻名称：关于redimvb.net的信息
浏览地址：http://cdiso.cn/article/heceoj.html

关于redimvb.net的信息

vb.net求帮助 要用redim语句

在VB.NET中,使用Redim语句重新定义一个数组是,需要注意什么问题

如何通过netlink发送数据？

VB.NET ReDim

其他资讯

vb.net求帮助要用redim语句