...随机整数,按十个数为一行输入,并找出这组数中的最大数和最小数...

发布网友发布时间：2024-10-04 01:19

共2个回答

热心网友时间：2024-10-27 23:57

Dim i As Integer, n As Integer, max As Integer, min As Integer
Randomize
For i = 1 To 100
    n = Int(Rnd * 90) + 10
    Print n;
    If i Mod 10 = 0 Then Print
    If i = 1 Or max < n Then max = n
    If i = 1 Or min > n Then min =n
Next i
Print "最大数："; max
Print "最小数："; min

热心网友时间：2024-10-27 23:56

病情分析：
你好;目前治疗甲亢的方法,大致相同，药物治疗时间过长,反反复复,得不到治愈,手术或碘131治疗,容易造成甲减,终身不愈,副作用太大,
指导意见：
建议中医治疗,治愈快,愈后不再复发。（三至六个月）,

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com