栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 面试经验

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

面试经验 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

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

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


参考答案:

[8]t

问题解析:

[9] a(3) [10] 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)
转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/256809.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号