VB程序设计第三章.pptVIP

【实训3.14】找出自然数2~1000之间所有的素数放人数组Prime中，并按每行6个素数的格式在窗体上输出。 参考代码： Private sub command1_click() Dim prime(1000) As integer Dim f As Boolean K=0 For n=2 To 1000 f=True For I=2 To n-1 if n Mod i=0 Then f=False Exit For End If Next I If f Then K=K+1 prime(K) =I End if Next n Print 2—1000之间有;K;个素数,具体： Print For I=1 To K Print prime(I); If I Mod 6=0 Then Print Next I End Sub 【实训3.15】定义一个整型数组，将100个随机整数从下标1开始放入该数组中，求出该数组中具有偶数值的偶数下标元素之和。 参考代码： Private sub Form_click() Dim data%(1 To 100) Randomize(Timer) For i=1 To 100 data(i) =Rnd*100 If i Mod 2=0 And data(i)Mod 2=0 Then sum=sum+data(i) End　If Print data(i); If i Mod 10=0 Then Print Next i Print 偶数值且为偶数下标的元素之和：;sum End Sub 3.1 知识要点 3.2 习题与解答 3.3 实训指导 3.4 测验题 3.4测验题 3.4.1选择题 1．计算一个班级某门课程的平均分，数据通过键盘输入，-1表示数据输入结束，正确的答案是：① 、② 、③ 。 Private Sub Command1_click() Dim Sum%,Data%,I% For I=1 To 1000 Data=InputBox(”请输人数据”) If Data=-1 Then ① Sum=Sum+ ② Next I If I=1 then exit sub Print “平均分=”,Sum／ ③ End Sub ①A．End For B．Exit For C．Quit For D．Exit sub ②A．I B．sum C．Data D．Data／I ③A．I B．I-1 C．I+1 D．1000 答案：①B　②Ｃ　③B 2．找出l～100之间所有能被3整除但不能被6整除的数，正确的答案是：① 、② 、③ 。 Private Sub Command1_Click() Dim D As Integer For D=1 To 100 Step ① If D Mod 60 ② D／3= ③ Then Print D Next D End Sub 3.1 知识要点 3.2 习题与解答 3.3 实训指导 3.4 测验题 3.3实训指导 3.3.1技能训练目的 掌握定义标识符的方法。 掌握变量和常量使用方法。 掌握数组的定义和使用方法。 掌握条件语句的三种格式并能设计简单程序。 掌握循环结构语句的格式并能设计简单程序。 能够灵活使用部分内部函数并能使用过程。 3.3.2技能训练内容 【实训3.1】编程计算分段函数 x2 （x7） y=10 (7≤x≤12) x3 -1 (x12) 参考代码： Private sub Form_click() Dim X As integer,Y As Long