在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option Base 1
Private Sub Command1_Click()
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap(______)
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b() As Integer)
n = ______
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
______
Next
End Sub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。请填空。
发布于 2022-05-11 10:20:01
登录后免费查看答案
关注者
0
被浏览
11
1 个回答
推荐阅读
-
在窗体上画一个名称为command1的命令按钮。然后编写如下程序:option base 1private sub command1_click()dim a(10) as integerfor i=1 to 10a(i)=inextcall swap (______ )for i=1 to 10print a(i);nextend subsub swap(b() as integer)n=ubound(b)for i=1 to n / 2t=b(i)b(i)=b(n)b(n)=t______nextend sub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,……。请填空。
2022-05-11 关注 0 浏览16 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base lPrivate Sub Command1_Click() Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap ( ______ ) For i=1 To 10 Print a(i) NextEnd SubSub swap (b() As Integer) n= ______ For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t ______ NextEnd Sub上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,a(2)与a(9)的值互换,请填空。
2022-05-11 关注 0 浏览21 1答案
-
设有如下程序Option Base 1Private Sub Command1_Click()Dim a(10) As IntegerDim n As Integern=InputBox("输入数据")If n<10 ThenCall GetArray(a,n)End IfEnd SubPrivate Sub GetArray(b() As Integer,n As Integer)Dim c(10) As Integerj=0For i=1 To nb(i)=CInt(Rnd()*100)If b(i)/2=b(i)\2 Thenj=j+1c(j)=b(i)End IfNextPrint jEnd Sub以下叙述中错误的是
2022-05-11 关注 0 浏览19 1答案
-
窗体中有一个名为Command1的命令按钮和一个名为Text1的文本框,事件代码如下:Private Sub Command1_Click()Dim a(10)As Integer,b(10)As Integern=3For i=1 T0 5a(i)=ib(n)=2*n+iNext iMe!Text1=a(n)+b(n)End Sub打开窗体,单击命令按钮,文本框Text1中显示的内容是( )。
2022-05-13 关注 0 浏览12 1答案
-
在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Private Sub Command1_Click()Dim i As Integer,j As IntegerDim a(10,10)As IntegerFor i=1 To 3For j=1 To 3a(i,j)=(i-1)*3+jPrint a(i,j);Next jPrintNext jEnd Sub程序运行后,单击命令按钮,窗体上显示的是
2022-05-11 关注 0 浏览20 1答案
-
在窗体上画1个名称为Command1的命令按钮,然后编写如下事件过程Option Base 1Pribate Sub Command1_Click()Dim a(5.5) As IntegerFor i=1 To 5a(I,j)*5\10Next jNext iS=0For i=1 To 5S=s+a(i,i)Next iPrint sEnd Sub程序运行后,单击命令按钮,输出结果是( )
2022-05-11 关注 0 浏览14 1答案
-
在窗体上画一个命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc("A") + (i - 1))Next iFor Each b In aPrint b;NextEnd Sub程序运行后,单击命令按钮,输出结果是
2022-05-11 关注 0 浏览15 1答案
-
下面程序段,运行后的结果是Private Sub Command1_Click()Dim b%(1 To 4) , i%, t#For i=1 To 4b(i) =iNext it=Tof(b() )Print "t="; t,End SubFunction Tof(a() As Integer)Dim t#, i%t=1For i=2 To UBound(A)t=t * a(i)Next iTof=tEnd Function
2022-05-11 关注 0 浏览11 1答案
-
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim i As Integer,n As IntegerFor I=0 To 50i=i+3n=n+1If i>10 Then xit forNextText1.Text=Str(n)End Sub程序运行后,单击命令按钮,在文本框中显示的值是
2022-05-11 关注 0 浏览15 1答案
-
请阅读程序:Sub subp(b() As Integer)For i = 1 To 4b(i) = 2 * iNextEnd SubPrivate Sub Command1_Click()Dim a(1 To 4) As Integera(1) = 5: a(2) = 6: a(3) = 7: a(4) = 8subp a()For i = 1 To 4Print a(i)NextEnd Sub运行上面的程序,单击命令按钮,则输出结果是( )。
2022-05-11 关注 0 浏览15 1答案