VB题，随机产生10个两位整数，求该数组中各元素的和、最大值、最小值

Question

如题所述

Answer 1

 Dim str As String = "生成的数组为" & vbCrLf, sum As Integer = 0, i, j, temp As Integer
        Dim a(10) As Integer
        For i = 1 To 10
            a(i) = Int(Rnd() * 90 + 10)
            str = str & a(i) & " "
        Next
        str = str & vbCrLf & "排序后的数组为" & vbCrLf
        For i = 1 To 10
            For j = 1 To 10 - i
                If a(j) < a(j + 1) Then
                    temp = a(j + 1)
                    a(j + 1) = a(j)
                    a(j) = temp
                End If
            Next j
        Next i
        For i = 1 To 10
            str = str & a(i) & " "
            sum = sum + a(i)
        Next
        str = str & vbCrLf
        str = str & "该数组元素各个元素的和是 " & sum & " 最大元素是 " & a(1) & " 最小元素是 " & a(10)
        TextBox6.Text = str

运行结果：

生成的数组为
73 58 62 36 37 79 11 78 83 73
排序后的数组为
83 79 78 73 73 62 58 37 36 11
该数组元素各个元素的和是 590 最大元素是 83 最小元素是 11

Answer 2

病情分析：
你好，也是可能患上的，这两者之间没什么必然性。平时每天用清水清洗下体，然后勤换内裤，不要常用护垫。月经时要注意保持温暖清洁。
指导意见：
感谢你的提问，希望我的回答对你有帮助，祝你健康！

病情分析：
你好

妇科疾病（阴道炎、宫颈炎）疾病常可由于阴道细菌感染导致的。

常发生于生育妇科。

不房事的基础上患上妇科病也是会的，只是发病率相对比较低。

指导意见：
建议

多休息，不要熬夜。不要吃香辣东西。不要吃肥腻、过咸的东西。不能饮酒。

女性值月经期间应该勤换卫生巾，同时勤换内裤，饮食清淡为主。

这种情况可以避免妇科病发生。

病情分析：
您好，没有性生活也是可能患上宫颈炎症状的。
指导意见：
建议您平时定期进行外用药物清洗即可，望您安康。

你好，宫颈炎的临床表现是白带增多，急性宫颈炎白带呈脓性，伴有下腹及腰骶部坠痛，或有尿频，尿急，尿痛等膀胱刺激。而慢性宫颈炎白带呈乳白色粘稠状或蛋黄色脓性。重度宫颈糜烂或有宫颈息肉时，可呈血性白带或夫妻生活后出血。建议不好长期服用消炎药，会造成耐药性和菌群失调，造成更严重的炎症感染，建议中西医结合治疗，不会形成耐药性，治疗效果更好，中成药推荐：妇科千金片（胶囊），一般来讲服用3—4疗程，病情较轻者2—3疗程，14天1疗程。要养成良好的个人卫生习惯，经常保持外阴与阴道清洁，夫妇性生活适度。不要做不适当的阴道清洗。

Answer 3

大追问

滚

追答

你

追问

死你全家