阅读程序: Option Base 1 Private Sub Form_Click( ) Dim a(3)As Integer Print“输入的数据是:”; For i=1 to 3 A (

admin2009-02-13  29

问题 阅读程序:
    Option Base 1
    Private Sub Form_Click(    )
    Dim a(3)As Integer
    Print“输入的数据是:”;
    For i=1 to 3
        A (i)=Input Box(“输入数据”)
        Print a (i)
    Next
    Print
    If a(1)<a(2)Then
        t=a(1)
        a(1)=a(2)
        a(2)=【  】
   End lf
    If a(2)>a(3)  Then
       m=a(2)
   Elself a(1)>a(3)  Then
       m=【  】
   Else
       m=【  】
   End lf
   Print“中间数是:”;m
   End Sub
   程序运行后,单击窗体,在输入对话框中分别输入三个整数,程序将输出三个数中的中间数,如图所示。请填空。

选项

答案t , a(3) , a(1)

解析 第一个If语句通过中间变量t把a(1)值与a(2)值调换,使得a(1)的值永远大于a(2)的值,所以此时令m值为a(2)。故[8]处填:t。如果不是“a(2)<=a(3)”,那么在“a(1)<=a(3)”的情况下,由于“a(2)<=a(3)”,故此时令m的值为a(3),即[9]处填:a(3)。 如果以上两种情况都未出现,即意味着“a(2)<=a(3)”,“a(3)>=a(1)”,又因为 a(1)值永远大于a(2)值,故此时,“a(2)<=a(1)<=a(3)”,所以[10]处填:a(1)
转载请注明原文地址:https://kaotiyun.com/show/oB1p777K
0

最新回复(0)