拆开来看：
创新互联服务项目包括西畴网站建设、西畴网站制作、西畴网页制作以及西畴网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，西畴网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到西畴省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
显示Mid函数，Mid(字符串，截取开始位置，字符串长度：若省略则表示从开始位置后面所有字符）
Mid("abcdefgh",4)
因为省略了截取的字符串长度这个数值，所以：Mid("abcdefgh",4) = "defgh"
那么 : Len("defgh") = 5
所以，答案是：5
Redim Preserve Arr(10,n)
通过Preserve关键字定义的动态数组，可以更改数组arr最末维的大小，且保留数组arr原来各个元素的值。
所以答案为：C
例如：
Dim arr()
Redim arr(1 to 1,1 to 2)
arr(1,2) = "你好"
Redim Preserve arr(1 to 1, 1 to 3)
msgbox arr(1,2) '这个时候依然可以得到arr(1,2)的值为“你好”。
而且从答案来看，Redim只可能与Preserve联合使用。其他都无法编译！
我做出来了,很简单,用一个Text文本框,一个命令按钮,前者用来输入的数据.在命令按钮的单击事件中写:
If IsNumeric(Me.TextBox1.Text) Then
MsgBox("数据的位数是:" Len(Me.TextBox1.Text) _
",倒数是: " StrReverse(Me.TextBox1.Text))
Else
MsgBox("非法内容,结束")
End If
思想:把输入的整数当作数字字符串,.net中有求字符串长度和倒置的函数,所以可以直接用消息框显示就可以了.
开始定义全局变量的时候：
Dim Result As Decimal
btnSubmit_Click过程里第一句改成：
If txtAns.Text = CStr(Decimal.Round(Result, 2)) Then
这样就可以了，已经过实际验证！答案如果是小数，必须保留小数点两位，后面的四舍五入。