请高手帮忙修改一段vb程序，不胜感激。
请修改下列程序：
Dim a As Long
a = InputBox("数字", "提示")
If a > 2 Then
For y = 2 To a - 1
If a Mod y = 0 Then
MsgBox "数字" & a & "是合数", vbOKOnly, "提示"
Exit For
End If
Next y
Else
MsgBox "数字" & a & "是质数", vbOKOnly, "提示"
End If
（注：此程序的意义是判断一个数除1及其本身外有无其余约数，即质数合数判断）
使数字为质数时跳出MsgBox信息提示框，谢谢。
答：线性链表分好几种,分为单链,双链等,它们的存储顺序也不一样. 线性表是顺序存储的,占顺序的存储空间详情>>
问：电脑安装了VB6.0，为什么打开方式里面没有VB程序选项，进安装好的VB里去关联...
答：打开方式最下面还有一个《选择程序》，点开后查VB的安装目录的EXE，找到后直接打开，下次就会在打开方式里查到了详情>>
