[填空题] 阅读程序： Option Base 1 Private Sub Form Click() Dim a(3)As Integer Print "输入的数据是；"； For i==1 To 3 a(i)=InputBox("输入数据") Print a(i)； Next Print If a(1)＜a(2)Then t=a(1) a(1)=a(2) a(2)=______ End If If a(2)＞a(3)Then m=a

参考答案：

ta(3)a(1)

● 参考解析

程序的主要作用是在运行后，提示用户输入三个整数，然后对用户输入的3个整数进行打印，并进行大小比较，最后输出中间值。程序的思路为将第一和第二个数进行比较，较大的放到前面，然后比较第二个数与第三个数，若第二个数大于第三个数，则第二个数为中间数。若第二个数小于第三个数，则比较第三个数和第一个数，较小的为中间数。主要完成当a(1)＜a(2)时两个数的交换。交换时必须定义一个中间变量，即t用来暂存数据，先将a(1)暂存入t，然后将a(1)的值改为a(2)，最后再将a(2)的值改为t，即最初a(1)的值，故填写t。为上面分析中比较第一个数和第三个数时的情况，小的为中间数，故分别填写a(3)、a(1)。

当前位置：IT认证＞BASIC题库

[填空题] 阅读程序： Option Base 1 Private Sub Form Click() Dim a(3)As Integer Print &quot;输入的数据是；&quot;； For i==1 To 3 a(i)=InputBox(&quot;输入数据&quot;) Print a(i)； Next Print If a(1)＜a(2)Then t=a(1) a(1)=a(2) a(2)=______ End If If a(2)＞a(3)Then m=a

相关题目:

[填空题] 阅读程序： Option Base 1 Private Sub Form Click() Dim a(3)As Integer Print "输入的数据是；"； For i==1 To 3 a(i)=InputBox("输入数据") Print a(i)； Next Print If a(1)＜a(2)Then t=a(1) a(1)=a(2) a(2)=______ End If If a(2)＞a(3)Then m=a