在VB.net 中将一个二维数组分成一维数组，并转类型

Question

比如：
二维数组如下：
a 34 67 67
b 34 56 87
只提出最后一列
67
87
再将他们转成数据类型

求解

Answer 1

病情分析：
根据你的情况，可能是由于内分泌失调或激素水平改变引起的
指导意见：
建议去医院做个激素检查，也可以吃中药调理下，平时应保持外阴部的清洁干燥，注意经期和性生活时的卫生。祝你健康

病情分析：
您好，您的情况如果是有性生活，如果是有这样的情况，当然是有怀孕的可能；也可能是月经推迟的问题；正常情况下，如果是月经推迟在一周之内是可能的；

指导意见：

所以，现在可以观察几天看看，如果是几天后来了，量和以前差不多，就应该是没有什么问题的；如果是还是不来，只能是到医院检查一下才能知道是什么原因的

病情分析：
如果是月经推迟超过1周还没有正常的月经，那么是要考虑是不是有内分泌失调，如果是上个月还是有同房，那么也有可能是怀孕
指导意见：
建议可以到正规医院查一下血孕酮以及hcg，确定是不是怀孕

病情分析：
你好，根据你的简单描述，考虑早孕流产可能
指导意见：
建议注意休息，立即当地正规医院彩超及血HCG检查，必要时保胎治疗

病情分析：
你好，以你说的情况还是由于炎症或者是子宫病变引起的症状
指导意见：
建议你最好是到医院妇科做一个全面的检查后，再做对症治疗，祝健康

Answer 2

转成什么数据类型？追问

转成integer 或者 decimal

追答

那原来又是什么类型呢？

追问

text

追答    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a(,) As String = {{"34", "67", "67"}, {"34", "56", "78"}}
        Dim b() As Integer

        ReDim b(a.GetLength(0) - 1)
        For i = 0 To a.GetLength(0) - 1
            b(i) = CInt(a(i, a.GetLength(1) - 1))
        Next
        MsgBox(b(0) & "," & b(1))
    End Sub

本回答被网友采纳