Question

vb编程！ “编写一个产生n个1到100的随机数存入一维数组的通用过程”

vb编程！
“编写一个产生n个1到100的随机数存入一维数组的通用过程”

Answer 1

病情分析：
正常人尿液中的一些溶解物质，因各种原因造成沉淀，潴留于肾内，并持续生长，便可形成结石。肾结石可能长期存在而无症状，特别是较大的结石。较小的结石活动范围大，当小结石进入肾盂输尿管连接部或输尿管时，出现绞痛和血尿。治疗原则；1.对症治疗：解痉、止痛、补液、抗炎、中药治疗2.排石治疗能活动的患者选用。3.溶石治疗：服用药物，大量饮水，调节尿液pH值，控制饮食种类等方法。
指导意见：
4.体外震波碎石术5.手术治疗。肾结石的治疗，只有碎、溶、排、防四结合，才能取得满意的临床治疗效果。生活预防；肾结石的形成，主要原因就是饮食。肾结石的人应注意多饮水，应限制肉类的摄入量，特别是动物内脏;肾结石在治疗期间应该注意少吃牛肉、羊肉;少吃富含维生素C类的食品，因为维生素C在体内的代谢过程中会生成草酸，从而促进结石的形成。草酸盐会与体内的钙结合，形成草酸钙而沉积为结石。草酸积存过多是导致肾结石的因素之一。如菠菜、豆类、葡萄、可可、茶叶、橘子、番茄、土豆、李子、竹笋等食品都是含草酸较高的食物。

病情分析：
对于这种情况，建议你手术治疗
指导意见：
你好，你这种情况考虑是比较严重的，建议你积极治疗，可以采用手术治疗，同时注意多喝水，祝你健康。

您好 根据你的描述。还是比较严重的。建议你去手术。

Answer 2

 Dim n As Integer
        n = InputBox("请输入数组的元素个数")
        Dim a(n) As Integer
        For i = 1 To n
            a(i) = Int(Rnd() * 100 + 1)
        Next

追问

它说要求常数表达式

追答

Int(Rnd() * 100 + 1)这个是常数表达式啊

追问

a(n)的n它说要求常数表达式

追答

Dim n As Integer
        Dim a() As Integer
        n = InputBox("请输入数组的元素个数")
        ReDim a(n)
        For i = 1 To n
            a(i) = Int(Rnd() * 100 + 1)
        Next

这样写吧