几道VB题1编程题:.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小值求出并显示在窗体上.2执行如下程序段:Dim x%Private command1_click()x=x+
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/14 03:14:42
![几道VB题1编程题:.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小值求出并显示在窗体上.2执行如下程序段:Dim x%Private command1_click()x=x+](/uploads/image/z/10127608-16-8.jpg?t=%E5%87%A0%E9%81%93VB%E9%A2%981%E7%BC%96%E7%A8%8B%E9%A2%98%EF%BC%9A.%E4%BB%8E%E9%94%AE%E7%9B%98%E4%B8%8A%E8%BE%93%E5%85%A520%E4%B8%AA%E6%95%B0%E6%94%BE%E5%85%A5%E4%B8%80%E4%B8%AA%E4%B8%80%E7%BB%B4%E6%95%B0%E7%BB%84%E4%B8%AD%2C%E5%B9%B6%E8%BE%93%E5%85%A5%E6%95%B0%E7%BB%84%E5%90%84%E5%85%83%E7%B4%A0%E7%9A%84%E5%80%BC%2C%E7%84%B6%E5%90%8E%E5%B0%86%E6%95%B0%E7%BB%84%E4%B8%AD20%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC%E5%92%8C%E6%9C%80%E5%B0%8F%E5%80%BC%E6%B1%82%E5%87%BA%E5%B9%B6%E6%98%BE%E7%A4%BA%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A.2%E6%89%A7%E8%A1%8C%E5%A6%82%E4%B8%8B%E7%A8%8B%E5%BA%8F%E6%AE%B5%EF%BC%9ADim+x%25Private+command1_click%28%29x%3Dx%2B)
几道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