vb编写程序，从键盘输入一个数，判断输入的数是否素数。

Private Sub Command1_Click()

    Dim n As Long

    n = Val(InputBox("请输入要判断的大于0的数："))

    If n < 1 Then MsgBox "你输入的是0": Exit Sub

    If zhi(n) Then MsgBox "是素数" Else MsgBox "不是素数散胡猛"

End Sub

Private Function zhi(x As Long) As Boolean

    Dim b As Single, i As Long, f As Long

    For 冲桥i = 2 To x - 1

        If x Mod i = 0 Then

            f = 1: Exit For

    做羡    End If

    Next

    If f = 1 Then zhi = False Else zhi = True

End Function

可以当数据完全输入芹宏完毕，在按钮单击事件里，执行丛液处理程嫌郑册序前，加以判断：

dim i as integer

for i=1 to len(text1.text)

if (mid(text1.text,i,1)>="0" and mid(text1.text,i,1)<="9") Or _

(mid(text1.text,i,1)>="a" and mid(text1.text,i,1)<="z") Then

msgbox "输入的数据只包含数字和小写字母"

else

msgbox "输入的数据包含 [数字和小写字母] 之外的字符！"

end if

next i

dim a as string

a=inputbox("请输入一个字符")

select case a

case "0" to "9"

msgbox "是数字悄仿"

case "a" to "z","A" to "Z"

msgbox "是字母姿悄"

case else

msgbox "是其它字迹运渣符"

end select

---