VB 常考程题型.docVIP

利用随机函数产生20个50到100之间的随机整数，显示它们的最大值、最小值和平均值 Dim max As Integer, min As Integer, sum As Integer n = Int(Rnd * 51) + 50 max = n min = n sum = sum + n Print n; For i = 1 To 19 Randomize n = Int(Rnd * 50) + 50 If n max Then max = n If n min Then min = n sum = sum + n Print n; Next i Print Print 随20个数的最大值和最小值,平均值分别是 max 和 min 与 sum / 20 Dim n As Integer, m As Integer, r As Integer, i As Integer n = InputBox(请输入第一个数) m = InputBox(请输入第二个数) r = IIf(n m, n, m) For i = r To 1 Step -1 If n Mod i = 0 And m Mod i = 0 Then Print n , m 这两个数的最大公约是 i Exit For End If Next i Print n ,