南华大学计算机学院 visual basic程序设计实验指导5.ppt

下载文档 降价啦

34
0
约4.61千字
约 14页
2017-06-21 发布于河南
举报
版权申诉
保障服务

南华大学计算机学院 visual basic程序设计实验指导5.ppt

1、本文档共14页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

南华大学计算机学院 visual basic程序设计实验指导5

第四章循环结构程序设计第7周实验机试题1 机试题2 上机试题3 上机试题4 1．以下程序的功能是由随机函数产生100个在100到600间的整数，然后找出其中最大者，并记下是第几个数。但程序不完整，请选择适当内容在【1】、【2】处将程序补充完整。注意：不得增行或删行，也不得更改程序得结构！ Option Base 1 Private Sub Form_Click () Dim a (100) Ａs Integer For j = 1 To 100 a(j) = Int (501 * Rnd + 100) Print a(j) Next j Print P = 1 Max = 【1】 For j = 2 TO 100 If a (j) Max Then Max = a(j) P = 【2】 End If Next J Print ＂最大值是：＂；Max Print ＂最大值的下标是：＂; P End Sub 【1】 A) 0 B) a(1) C) 1.7E+38 D) 1.7E-38 【2】 A) 1 B) C) j D) max 2.下列程序 Private Sub Form_Click () a = 0 For j = 1 To 20 step 2 a = a + j \ 5 Next j Print a End Sub 运行后,输出的结果是（　　）。 A) 12 B) 16 C) 40 D) 100 3.下列程序 Option Base 1 PriVate Sub Form_Click () c = 70 x = Array (70,55,45,80,30,25,40,10,20,5) For i = 1 To 10 If x(i) c Then d = d + x(i) c = x(i) Else d = d + c End If Next I Print d End Sub 运行时的输出结果是（　　）。 A) 335 B) 330 C) 320 D) 485 4.下列程序 Option Base 1 Private Sub Form_Click () Dim a( 5, 5) For i = 1 To 5 For j = 1 To 5 k = k + 1 a (i, j) = k Next j Next i For i = 1 To 5 s = s + a (i,i) Next i Print s End Sub 运行时的输出结果是（　　）。 A) 15 B) 55 C) 65 D) 85 5.下列程序 Option Base 1 Private Sub Form