2. 计算机
  3. 阅读程序： Option Base 1 Private Sub Form Click() Dim a(3) As Integer Print“输入的数据是：”； For i = 1 To 3

阅读程序： Option Base 1 Private Sub Form Click() Dim a(3) As Integer Print“输入的数据是：”； For i = 1 To 3

admin2010-03-30  37
问题 阅读程序：
   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(2)
     ElseIf  a(1)＞a(3) Then
         m= ______
     Else
         m= ______
     End  If
     Print  “中间数是:”；m
   End Sub
   程序运行后，单击窗体，在输入对话框中分别输入三个整数，程序将输出三个数中的中间数，如图所示。请填空。
选项
答案t,a(3), a(1)
解析 本题的关键是要看懂程序代码。第一个If语句通过中介变量t把a(1)值与a(2)值调换，使得a(1)的值永远大于a(2)的值，所以此时令m值为a(2)。故第一处填：t。如果不是“a(2)＜=a(3)”，那么在“a(1)＜=a(3)”的情况下，由于“a(2)＜=a(3)”，故此时令m的值为a(3)，即第二处填：a(3)。如果以上两种情况都未出现，即意味着“a(2)＜=a(3)”，“a(3)＞=a(1)”，又因为  a(1)值永远大于  a(2)值，故此时，“a(2)＜＝a(1)＜＝a(3)”，所以第三处填：a(1)。
转载请注明原文地址:https://kaotiyun.com/show/iEmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)