VB6的String()函数，在VB.NET中，改用 StrDup()函数，使用格式与VB6的String()函数类似：
成都创新互联专注于汾西企业网站建设,自适应网站建设,成都做商城网站。汾西网站建设公司,为汾西等地区提供建站服务。全流程按需网站开发，专业设计，全程项目跟踪，成都创新互联专业和态度为您提供的服务
例如：
VB6中，String(5,"*") ，是产生5个星号字符，"*****"
VB.Net中，改用 StrDup(5,"*") ，也是产生5个星号字符，"*****"
Function 是函数，不是过程，不论在VB、VB.NET、C等等，均是函数。
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
Public Function Zuhe(ByVal qa As String) As String
Select Case qa
Case "0"
Return "1"
Case "1"
Return "3"
Case "2"
Return "4"
Case "3"
Return "6"
Case "4"
Return "2"
Case "5"
Return "8"
Case "6"
Return "9"
Case "7"
Return "7"
Case "8"
Return "5"
Case "9"
Return "0"
Case else
Return "XXXX"
End Select
End Function