作业帮 > 综合 > 作业

问题一、输出1000——2000之间能被17整除的数.

来源:学生作业帮 编辑:搜搜考试网作业帮 分类:综合作业 时间:2024/06/04 12:12:49
问题一、输出1000——2000之间能被17整除的数.
问题二、已知数组有二十个数,求其中的最大者.
问题三、用InputBox函数输入三个数,选出其中的最大数与最小数,显示于窗体上.
(不好意思,没分了,
问题一、输出1000——2000之间能被17整除的数.
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 Su