> 其他 >
几道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,输出结果是——,——
就这么点分了.太少了不好意思
人气:211 ℃ 时间:2020-09-08 16:47:27
解答
第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...
推荐
猜你喜欢
© 2024 79432.Com All Rights Reserved.
电脑版|手机版