请问vb中如何定义结构体数组？怎么赋值？

你的aaa.中的a是个字符串数组，

当然要一个一个的赋值，不然，可以可以C语言中的memcpy之类的函数，
直接进行内存块的复制，

你要把这个数组写进二进制，使用input就可以了，
写入这前要把这个结构转换成二进制的数组，以下代码可以参考一下：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(dest As Any, Source As Any, ByVal numBytes As Long)

Private Type aa
a(8) As String
End Type

Private Sub Command1_Click()
Dim aaa As aa

aaa.a(1) = "HELLO"
aaa.a(2) = "GIRL"

Dim bt() As Byte
ReDim bt(Len(aaa) + 1)
CopyMemory bt(0), aaa, Len(aaa) '复制到二进制数组中

'然后调用你的input函数写入文件中

End Sub

现在问题来了，我需要将这个arr的值写入二进制文件中（注意是整个数组写入）Option Explicit '定义结构体,注意,此处如果用到字符串变量,要设置定长