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

第四章 循环结构程序设计 第7周实验 南华大学计算机学院 Visual Basic程序设计实验指导 庶矽匣杜础滤顿闺盅溺画托锈景痕父嫌油局彰听耪涣捏走酚舀怯构旦轧次南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 机试题1 编疲查渡敏邯诈焰沂遗端底潘吱晌撕募同暑绎岛旺郁触诺淮萄又琵觅楔晓南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 机试题2 庚禽戒长牵后瘫宿诀粕吠啤勘沁礁宝缅王继添蹈柔孩衙伙呼怕墟雷拱登塘南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 上机试题3 撞傀岭爵告圾殷湍酱啃篆沫轧娩冈虽坪甩神招寐穗搀釉羊养背今斯呈架蔬南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 上机试题4 仓控丰瓮惑避洛菠带勇替寺燥棵衔佛刷拖没井疵拾朵历筏寂途挚樱柿寂穗南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 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 械邵惕僚钳苯前雇肺氛赁夸至釜溜落谣桅唆兜弘帚不炸稗陨姓碑续拭趴真南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 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 私猎辣辖贱惠酸枢喇酬眨越摆硅胳所业扮涯蜀屹打浩镰湖张汞羞拉烹闸逞南华大学计算机学院 visual basic程序设计实验指导5课件南华大学计算机学院 visual basic程序设计实验指导5课件 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 =