问题描述:
[填空]
下面程序段,运行后的结果是 Private Sub Command1_Click()Dim b%(1 To 4),i%, t# For i = 1 To 4b(i)=i Next t =Tof(b())Print "t ="; t, End Sub Function Tof(a()As Integer)Dim t#, i% t=1 For i =2 To UBound(
参考答案:查看无
答案解析:无
☆收藏
答案解析:无
☆收藏
上一篇:下面程序的功能是找出给定的10个数中最大的一个数,最后输出这个数以及它在原来10个数中的位置。请在下划线处填入适当的内容,将程序补充完整。 Option Base 1 Private Sub Form_Click()Dim X x=Array(23,-5,17 ,38,-31,46,11,8,5,-4)Max=1 k=1 10k=k+1 if x(k)>x(Max)then ()End if If k<10 then goto 10 y= ()Print y,Max End Sub
下一篇:网络诈骗是为达到某种目的在网络上以各种形式向他人骗取财物的诈骗手段。
- 我要回答: 网友(3.146.255.161)
- 热门题目: 1.在一个操作中可以更改条记录的 2.有以下程序: #includ 3.在VBA中,下列关于过程的描