189 8069 5689
很简单，在end select前再多加一种情况case else return "XXXx",因为你只提供了0-9这10种情况
成都创新互联公司成立以来不断整合自身及行业资源、不断突破观念以使企业策略得到完善和成熟，建立了一套“以技术为基点，以客户需求中心、市场为导向”的快速反应体系。对公司的主营项目，如中高端企业网站企划 / 设计、行业 / 企业门户设计推广、行业门户平台运营、成都App制作、手机网站开发、微信网站制作、软件开发、服务器托管等实行标准化操作，让客户可以直观的预知到从成都创新互联公司可以获得的服务效果。
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
省略判断textbox为空或非数字
dim z1,z2,a,p,k as float
z1=Float(textboxz1.text)
z2=float(textboxz2.text)
a=float(textboxa.text)
p=float(textboxp.text)
k=float(textboxk.text)
dim Lp as float
Lp=(z1+z2)/2+2*a/p+(k*p)/a
messagebox.show(Lp)
1、点击VS工具。
2、打开后，新建一个Windows窗体应用程序。
3、新建完毕后，如图所示。
4、拖动一个按钮。
5、定义数组最常见的方法，如图示。
6、运行后，点击按钮，弹出提示正常。
7、定义数组第二种方法，属于动态的方法。
8、运行后，点击按钮，数组成功输出。
绝对值是“|”，可以直接显示，同理对数可用log(x)代替，根号和其他不支持显示。
如果要显示数学式子，只能画吧。
计算时可用“^”求幂或求根，“/”表示除法和分数线，还有math类。