Public Sub command1_Click()
If Option1.Value = True Then

ElseIf Option2.Value = True Then
GoTo name
End If
name:
Dim a As String
a = Val(Text2.Text)
Static stud(2) As stu
Open "c:\stu_list" For Input As #1
For i = 1 To 2
Input #1, stud(i).stname, stud(i).num, stud(i).addr, stud(i).tel
If a = stud(i).stname Then

Text1.Text = stud(i).stname
Exit For

End If

Next i
Close #1
End Sub
大家帮忙看看代码错在哪里，谢谢大家了

把整个程序打包发上来..

Type stu
stname As String
num As Integer
addr As String
tel As Integer
End Type

Public Sub command1_Click()
If Option1.Value = True Then

ElseIf Option2.Value = True Then
GoTo name
End If
name:
Dim a As String
a = Val(Text2.Text)
Static stud(2) As stu
Open "c:\stu_list" For Input As #1
For i = 1 To 2
Input #1, stud(i).stname, stud(i).num, stud(i).addr, stud(i).tel
If a = stud(i).stname Then

Text1.Text = stud(i).stname
Exit For

End If

Next i
Close #1
End Sub
所有代码都在这了

为啥要GoTo name？？
直接把NAME后的代码写到IF语句里不是一样么？

有道理，但是谁来帮我解决一下那个查询的的问题呢？

Open "c:\stu_list" For Input As #1 ' 你的文件什么格式都没说明 好像该指明吧!

For i = 1 To 2
Input #1, stud(i).stname, stud(i).num, stud(i).addr, stud(i).tel '问题好像就在这里 你的文件只输出一次 你 怎么还用了个for 语句 不要for 而用2个文件打开就可以解决你的问题
If a = stud(i).stname Then
Text1.Text = stud(i).stname
Exit For
End If
Next i

应该是不用指定文件名的，因为文件是打得开也读取的出数据的。
之所以用for循环是因为打开的一个数组，只是目前只存入了两组数据。

还不如把Name改为函数来调用。

你这段代码存在严重问题，不管Option1和Option2的值是否为真或假，均会执行name:后面的代码，也就是说Option的选择不起作用。

错在：
1、stname As String
2、Dim a As String
a = Val(Text2.Text)
当输入学生名字时，a的值始终为“0”，根本就不可能出现stname=a的情况，也就是说text1永远不会出现stud(i).stname的值。
总的说来小小的一段代码，问题太多。Name应定义成函数来调用，要不然Option的选择不起作用，否则If Option1.Value=True then后跟Exit Sub；既然定义了Dim a As String，怎么还使用Val函数来转换成数值来赋给数据类型的a！！！