几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小值求出并显示在窗体上.2执行如下程序段：Dim x%Private command1_click()x=x+
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/02 14:03:00
几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小值求出并显示在窗体上.2执行如下程序段：Dim x%Private command1_click()x=x+
几道VB题
1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小值求出并显示在窗体上.
2执行如下程序段：
Dim x%
Private command1_click()
x=x+1
print x%,y%
End Sub
Private command2_click()
Static y%
Y=y+1
X=x+1
End Sub
单击三次command2后单击command1,输出结果是——,——
就这么点分了.太少了不好意思
几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小值求出并显示在窗体上.2执行如下程序段：Dim x%Private command1_click()x=x+
第1题：
Private Sub Command1_Click()
Dim v(1 To 20) As Double
Dim vMax As Double
Dim vMin As Double
Dim i As Long
For i = 1 To 20
v(i) = Val(InputBox("请输入第 " & i & "个数：","数据输入",0))
Next
vMax = v(1)
vMin = vMax
For i = 2 To 20
If (v(i) > vMax) Then
vMax = v(i)
ElseIf (v(i) < vMin) Then
vMin = v(i)
End If
Next
Me.Print "最大数是："; vMax
Me.Print "最小数是："; vMin
End Sub
第2题：4,0