作业帮问题一、输出1000——2000之间能被17整除的数.问题二、已知数组有二十个数,求其中的最大者.问题三、用InputBox函数输入三个数,选出其中的最大数与最小数,显示于窗体上.（不好意思,没分了,
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/08 03:50:33
问题一、输出1000——2000之间能被17整除的数.问题二、已知数组有二十个数,求其中的最大者.问题三、用InputBox函数输入三个数,选出其中的最大数与最小数,显示于窗体上.（不好意思,没分了,
问题一、输出1000——2000之间能被17整除的数.
问题二、已知数组有二十个数,求其中的最大者.
问题三、用InputBox函数输入三个数,选出其中的最大数与最小数,显示于窗体上.
（不好意思,没分了,
问题一、输出1000——2000之间能被17整除的数.问题二、已知数组有二十个数,求其中的最大者.问题三、用InputBox函数输入三个数,选出其中的最大数与最小数,显示于窗体上.（不好意思,没分了,
Private Sub Command1_Click()
For i = 1000 To 2000
If i Mod 17 = 0 Then Print i
Next i
End Sub
Private Function Max(Arr As Variant)
Max = Arr(0)
For i = 0 To UBound(Arr)
If Arr(i) > Max Then Max = Arr(i)
Next
End Function
Private Sub Command2_Click()
Arr = Array(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20)
MsgBox Max(Arr)
End Sub
Private Sub Command3_Click()
Dim a As Single
Dim b As Single
Dim c As Single
Dim t As Single
a = Val(InputBox("输入第一个数：","输入"))
b = Val(InputBox("输入第二个数：","输入"))
c = Val(InputBox("输入第三个数：","输入"))
If a > b Then t = a:a = b:b = t
If a > c Then t = a:a = c:c = t
If b > c Then t = b:b = c:c = t
Print "最小："; a; " "; "最大："; c
End Sub