题目

几道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,输出结果是——,——
就这么点分了.太少了不好意思

提问时间：2020-12-05

答案

第1题：Private Sub Command1_Click()Dim v(1 To 20) As DoubleDim vMax As DoubleDim vMin As DoubleDim i As LongFor i = 1 To 20v(i) = Val(InputBox("请输入第 " & i & "个数：","数据输入",0))NextvMax = v(1)v...