一道VB编程题急需解决

补充：麻烦高手把答案写上或者留下联系方式
		

答案：
所有题目只需添加一个命令按钮控件
第一题
Private Sub Command1_Click()
Dim a() As Integer, n As Integer, max As Integer, min As Integer
n = InputBox("键入整数个数", "提示")
ReDim a(n)
Randomize
a(0) = Int(Rnd() * 1000)   ‘假定为0-999之间的整数
min = a(0)
For i = 1 To n
a(i) = Int(Rnd() * 1000)
Print a(i)
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
Next
MsgBox ("最大值为" & max & "  最小值为" & min)
End Sub

第二题
Private Sub Command1_Click()
Print "能同时被5和7整除的数有"
Do Until n = 5
i = i + 1
If i Mod 35 = 0 Then
Print i
n = n + 1
End If
Loop
End Sub


有问题QQ联系，172462339
请问是用Pascal语言吗？如果是请联系我的QQ，我是编程高手
建立1个按钮,1个文本框(用来输入正整数个数,数字自动生成),1个标签输出最大和最小值
Private Sub Command1_Click()
Randomize
Dim a%(100)
N=Val(Text1)
For i=0 To N-1
a(i)=Int(1000*Rnd)
Next i
min=a(0)
max=a(0)
For i=0 To N-1
If a(i)>max Then max=a(i)
If a(i)<min Then min=a(i)
Next i
Label1.Caption="最大值和最小值分别是:"& max & min
End Sub

建立1个按钮
Pravate Sub Command1_Click()
For i=1 To 1000
If i Mod 5=0 And i Mod 7=0 Then Print i; : t=t+1
If t=5 Then Exit For
Next i
End Sub

上一个：这vb编程代码写什么
下一个：VB编程的方法