編寫一個VB抽獎程序，功能如下：從數(shù)據(jù)庫讀取相關(guān)數(shù)據(jù)并顯示在列表框List1中，在文本框Text1中輸入中獎人數(shù)，單擊“抽獎”按鈕Command1，在列表框List2中輸出    結(jié)果。
抽獎規(guī)則：中獎人數(shù)為1人，男女不限；
中獎人數(shù)超1人，男女對半（奇數(shù)時女性多1人）。
程序運(yùn)行界面如圖所示。

實現(xiàn)上述功能的VB程序如下：
Dim xm（1 To 500）As String,xh（1 To 500）As String,xb（1 To 500）As String
Dim n As Integer'學(xué)生總?cè)藬?shù)
Dim a（1 To 100）As Integer'抽中序號
Private Sub Form_Load （　?。?br />'本過程讀取n位同學(xué)的序號、姓名和性別，
'分別存儲在數(shù)組xh、xm、xb中
'并在List1中顯示，代碼略
End Sub
Private Sub Command1_Click （　　）
Dim rs As Integer,m As Integer,x As Integer,girl As Integer,i As Integer
Dim xbs（1 To 500）As Integer
Randomize
List2.Clear
List2.AddItem“姓名“&““&“性別“
rs=

Val（Text1.Text）

Val（Text1.Text）

For i=1 To n
If xb（i）=“女“Then  xbs（i）=1  Else  xbs（i）=0
Next i
m=0
girl=0
If rs=1 Then
x=Int（Rnd*n）+1
List2.AddItem xm（x） &““& xb（x）
Else
Do While m＜rs
x=Int（Rnd*n）+1
If checkf（x） Then
m=m+1：a（m）=x
girl=girl+xbs（a（m））
If

m-girl＞rs\2

m-girl＞rs\2

 Then
a（m）=0：m=m-1
ElseIf girl＞（rs+1）\2 Then
a（m）=0：m=m-1

girl=girl-1

girl=girl-1

End If
End If
Loop
For i=1 To m
List2.AddItem 
Next i
End If
End Sub
Function checkf（p As Integer） As Boolean
'核對重復(fù)中獎，未中過獎返回True
'代碼略
End Function
（1）請在橫線處填入合適的代碼。
（2）程序中加框代碼有錯，請改正。

xm（a（i）） &“”& xb（a（i））

xm（a（i）） &“”& xb（a（i））