求大神帮忙做一个VB题。题目如下

Question

'-------------------------------------------------
'【程序设计】
'-------------------------------------------------

'题目：编写函数fun，函数的功能是：判断一个数是否为素数。
'并显示相应提示。如：
'该数为素数时，显示"素数"；该数为非素数时，显示"非素数"
'要求使用For语句来实现，用布尔型变量flag作为该数
'是否为素数的标志，注意：不得使用Goto语句。

'-------------------------------------------------
'注意： 请在指定的事件内编写代码
' 代码只能写在两行标识之间
' 不得修改已有代码
'保存时不得修改窗体和工程文件的名称及路径，否则后果自负。
'-------------------------------------------------

Private Function fun(m As Long) As String
Dim flag As Boolean
'**********Program**********

'********** End **********
End Function

Private Sub Form_Load()
Show
Print fun(225)
NJIT_VB
End Sub

Private Sub NJIT_VB()
Dim i As Integer
Dim a(10) As String
Dim fIn As Integer
Dim fOut As Integer
fIn = FreeFile
Open App.Path & "\in.dat" For Input As #fIn
fOut = FreeFile
Open App.Path & "\out.dat" For Output As #fOut
For i = 1 To 10 Step 1
Line Input #fIn, a(i)
Print #fOut, fun(Val(a(i)))
Next
Close #fIn
Close #fOut
End Sub

Answer 1

病情分析：
你好,小学低年级学生手指运动觉还不完善,感知事物还不够精确,精细动作显得有些笨拙,做作业会出现丢三落四的情况.低年级学生的无意注意仍然占据主导地位,注意的广度也不够大,描述事物会显得不完整,学习中显得粗心大意.低年级学生知识经验缺乏,尚不完全具备意义记忆的能力,另外思维形式主要以具体形象思维为主,思维的综合能力较差,这就容易造成小学生出现马虎的问题.
总结一下马虎的原因.有的是心理发展问题,注意力不容易集中,观察事物不够精确的好马虎；有的是性格问题,做事大大咧咧,想问题急性子的好马虎；有时是态度问题,对学习不当回事,有厌学心理的好马虎；有的是熟练问题,对知识半生不熟,贯通不够的好马虎；还有的是情绪问题,学习中紧张焦虑,难以静心的好马虎…….
指导意见：
家长先不要有急躁心理,孩子的马马虎虎要慢慢克服
1,逐渐减少依赖心理
孩子刚上小学时,很多家长往往放心不下.于是上学时家长帮助孩子整理书包；放学时家长督促孩子做作业,快要包办代替了.家长见不得孩子作业上出现红叉叉,一定要亲自检查孩子的作业.这样下来,就养成了孩子的依赖心理.孩子不必认真查点学习用具；做作业也不必太认真,反正妈妈还会检查的.孩子的责任心没有了.孩子刚上学时,家长可以协助一下孩子,但这只能是一个帮助孩子自理的过程.家长不妨这样做：第一步,让孩子自己整理书包,家长事后检查一下；第二步,让孩子自己整理书包,家长第二天早晨检查一下,这样逐渐放手.做作业也是这样：第一步,让孩子自己做作业,自己检查,家长再检查；第二步,让孩子自己做作业,自己检查,家长让孩子确认无误,不检查就交上去.其实,作业留下一些错误又有何妨,尝试错误正是一个必要的学习过程.
家长逐渐放手,孩子才会逐渐独立,独立的孩子才会对解决自己的马虎问题有责任心,这是一个基本出发点.
2,做作业时帮助孩子集中注意力
开始做作业时不能让孩子心猿意马.比如孩子想看完一段电视节目再做作业,可是家长偏不让看.这时如果孩子很有情绪,做作业就不容易做好.如果孩子在做作业时有其它更强烈的要求,不妨先满足一下.
做作业的环境要整洁一些,不要有过多的分散注意力的东西,如孩子喜欢看的卡通画册,满墙的明星酷照,这些会让孩子分散注意力.有时候做作业卡了壳,孩子的心思就容易溜号了.
做作业时可以先让孩子平抚一下情绪,同时做好必要的用具准备.如果孩子的作业比较多,可以先分成二至三部分,分时间段完成.
3,在改正马虎错误中降低失误率
孩子做完作业在检查中会发现一些错误,要让孩子分析一下,这些错误是怎么造成的.是审题不清错误理解了某个条件?是看错了,看丢了某个符号?是想当然地思维跳跃弄错了某个逻辑环节?总之,改正马虎错误时,有意识地分析原因,在更正中强化一下容易出错的环节.必要时把出错的题记下来,建立一个“错题档案”,这样坚持做下来,马虎出错的情况就会越来越少了.
4,考试应该注意的马虎问题
考试交卷后如果发现马虎错误是没有更正机会的,所以必须要求孩子在考试中如何减少或杜绝马虎出错.
首先要心平气和,不要慌慌张张；其次,做题前要提示自己认真审题,弄清题意再动手解题.第三,做题中要仔细做题过程不出错.
做题中如何监督自己的思维过程不出错呢?这里给一个叫做“默读监督”的小方法.
简单地说,就是把思维过程在心里默读.比如说,数学题中常利用公式(a-b)2=a2-2ab+b2来解决具体问题,而初学时容易搞混.这时就要小心了,要看仔细问题中哪部分是a ,哪部分是b,哪里用负号,边做边默读思维过程.这个过程相当于有另一个“我”在监督这一个“我”做题,这是一个简便易行的克服马虎的方法.
5,做一些必要的敏捷动作训练
有些小学低年级学生显得笨手笨脚,动作不灵活,这可能是手眼不协调的孩子.手眼不协调的孩子容易顾此失彼而粗心大意.
孩子出生后,会用自己的感官和四肢去探索周围的世界,如果我们没有给他们足够的探索机会,就影响了他们动作协调性的行为发展.例如没有经过足够爬行的孩子,在手眼协调性上就非常差.现在的孩子多是“高楼儿童”,“电视儿童”,“读书儿童”,难免会出现一些手眼不协调,或动作发展相对滞后的孩子.
解决这个问题的办法是多做室外运动.家长可以带孩子做一些拍球,跳绳,打羽毛球,打乒乓球等户外活动.在家里,也可以让孩子动作敏捷地做事情.敏捷的孩子眼神自然好.
如果问题较严重,可以带孩子到专业机构去进行检查和训练

病情分析：
造成孩子马虎的原因是多方面的.
1.生理和心理发育不成熟.小学低年级学生手指运动还不完善,感知事物还不够精确,视觉记忆和辨识能力稍弱,精细动作显得有些笨拙,做作业和考试时会出现丢三落四的情况.低年级学生的无意注意仍然占据主导地位,注意的广度也不够大,描述事物会显得不完整,学习中显得粗心大意.低年级学生知识经验缺乏,尚不完全具备意义记忆的能力,另外思维形式主要以形象思维为主,思维的综合能力较差,这些都容易造成马虎现象的出现.
2.性格问题.做事大大咧咧,想问题急性子的孩子容易马虎.
3.态度问题.把学习不当回事,有厌学心理的孩子出现马虎就不足为怪了.
4.熟练问题.对知识半生不熟,对知识系统贯通不够的孩子也容易丢三落四.
5.情绪问题.学习中紧张焦虑,难以静心,考试时患得患失的孩子常常易出现马虎,顾此失彼现象.
马虎问题要认真对待,要分析造成马虎的原因,对症下药方能取得良好效果.
指导意见：
对于孩子的马虎现象,家长先不要有急躁心理,孩子的马虎需要用时间,用方法在平时的学习过程中慢慢加以克服.下面我主要谈谈对小学低年级孩子出现马虎现象的应对策略,对高年级孩子也有参考意义.
1. 环境
孩子在学习时,家长要给他创造一个舒适,安宁的环境,让他心无旁骛,专注于学习.为此,应该做到以下几点：
1）在他视力可及和触手可得的地方不要有玩具,漫画以及其它吸引他的东西.
2）家长要尽量配合,若非要看电视等,尽量小声或戴耳机；接打电话,尽量远离孩子（阳台,密封好的房间甚至出户都可考虑）；接待客人尽可能安排在周末或另寻他地.
3）不要轻易去打扰孩子,有些家长喜欢在此时嘘渴问饥,这些都应该在孩子学习前或中途休息时准备好.
4）在学习前,提醒孩子做好文具,书,本的准备工作,免得中途分心.
5）如果此时家长也在学习,伏案工作,这样的氛围就更理想了.
做到以上几条,就能基本保证孩子专心学习,而专心是减少马虎的前提条件.
2. 在做作业过程中
孩子做作业时,家长尽量不要在他身边,更无需指指点点（孩子刚上学的一段时间除外）,那样会分散他的注意力和助长他的依赖性.让孩子养成独立思考,独立解决问题的能力十分重要.记住一点：由孩子自己解决的问题记得最牢,最稳固.如果孩子在做作业时确实需要你的帮助,可按以下步骤执行：
1）提醒他把题目再好好看一遍,这时家长在边上也应该看看题目,在心里盘算着,为以下步骤做准备；让孩子再看一遍题目好处有二：a.养成认真审题的习惯,这是爱马虎孩子的弱项；b.有时再看一遍题,问题或许就已解决.如果这样,以下步骤可免.
2）家长做一些提示,启发,也可以翻翻书本,笔记等,找找上面有没有类似的例题,因为刚学过,孩子通常能记住；另外让孩子养成不会做题要先看书和笔记的习惯,这对今后学习非常重要,好多孩子一不会就开口问,自己不先想办法,养成依赖性是学习大忌.
3）前两步都不行了,家长再给他讲解,如果您能指出他不会做的症结所在就更理想了.
4）实在都没办法了,让孩子自己打电话求教学习好的同学,甚至是老师.
以上不管走到哪一步,总的原则是：a.尽量让孩子自己解决问题,解决多少就收获多少,减少依赖性,实在不行大人再帮忙；b.务必让孩子彻底弄懂.
3. 作业的检查
对于低年级的孩子,在做完作业后一定要养成检查一遍的习惯.刚上学的孩子可采取自己先检查,家长后检查的方式；慢慢的要过渡到自己检查,家长监督（不检查）的方式.事实上,让孩子留点错,老师批改后回来订正的效果往往比家长全面纠错,万无一失的效果要好得多,因为前者能让孩子记得牢,而后者容易让孩子养成依赖习惯.另一方面,家长的逐渐放手,孩子才能逐渐独立,独立的孩子才会对解决自己的马虎问题有责任心.
4. 作业的纠错
这分两种情况：当天作业在检查中发现错误的纠正和第二天发回作业本上的错误纠正.不管是哪一种纠错,都要让孩子分析一下,这些错误是怎么造成的.是审题不清错误理解了某个条件?是看错了,看丢了某个符号?是想当然地思维跳跃弄错了某个逻辑环节?总之,改正马虎错误时,要有意识地分析原因,在更正中强化一下容易出错的环节.必要时把出错的题记下来,建立一个“错题本”,这样坚持做下来,马虎出错的情况就会越来越少了.另外,每天做作业前,必须先认真纠正头天作业里的错误,这个一个非常重要的环节.因为知识是连贯的,前面的错误没纠正,后面就有可能错上加错.
5. 考试时如何防止马虎
考试马虎是平时做作业时马虎的延续,但考试马虎错误后果更加严重,所以考试前家长必须教会孩子掌握以下几点要领,让他在考试中尽量减少直至杜绝马虎.
1）考试时首先要心平气和,不要慌慌张张.低年级考试的题量不会太大,老师出题时已充分考量过,所以考试时按正常速度做即可,不必太着急,慌里慌张.让孩子吃个定心丸,增强信心.
2）做题前要提示自己认真审题,弄清题意再动手解题.磨刀不误砍柴工,宁可多花点时间看题也比看错题导致整道题全错强得多.
3）做题中要专注,仔细,保证思维过程的连续性和准确率.监督自己的思维过程不出错有一个叫做“默读监督”的小方法.简单地说,就是把思维过程在心里默读,边做边默读思维过程.这个过程相当于有另一个“我”在监督这一个“我”做题,这是一个简便易行的克服马虎的方法.
4）做题时以我为主,切忌东张西望.一则有可能会让老师误以为你在作弊,从而影响情绪；二则如果你边上有做题快的,就会引起自己的紧张,从而导致出错.
5）遇到试卷字迹不清,数字模糊时,一定要问老师,不要想当然,马马虎虎,以免铸成错误.
6）做完试题,如果有时间一定要检查一遍,尽量用与试题相反的方向进行检查,即加法用减法,乘法用除法检查,以避免习惯性的错误.
7）对“马虎”的简单定义是：会做的而没做对或做好.事实上,出现这种现象有两种情况：一种是时间很充裕也出现马虎,这可按以上方法纠正；还有一种是由于时间紧迫造成会做的也没做对,这通常是因为做题过程中出现卡壳,使得做后面的题目时因为时间不够而匆忙应对,这时就难免会把会做的题也做错.应对小方法：做题时遇到不好下手的,考虑一会儿,不行用铅笔做个明显记号后跳过做以下的题,都做完后再返回对付做记号的题.

病情分析：
马虎的原因是多方面的,主要有以下这些：
　（1）生理原因.
其实,对于一部分孩子来说,不是他学习不努力,而是他的学习能力发展不平衡,孩子的听知觉和视知觉是影响学习能力的重要因素,对这两种能力发展不足的孩子说他们粗心,他们是冤枉的.不是孩子不想认真做作业,而是他的能力没达到.
性格急躁的孩子做事往往求快,不容易顾及到细节.有的孩子长期睡眠不足或者挑食偏食,身体欠佳,注意力难以持久也可能会在不应该错的地方出错.
　（2）态度不端正.
有些孩子认为“反正我会做就行了,错了一,两题又没什么大不了的.”他们没认识到马虎的危害.
　（3）缺乏兴趣.
　孩子对某些科目不感兴趣,或者老师布置的作业只是简单的重复,激不起孩子的学习兴趣.孩子只想应付了事,也不会仔细思考.
　（4）家庭环境的影响.
如果事事由父母包办,孩子形成了依赖心理,什么事情都希望爸爸妈妈给想着,自己不操心,结果到需要自己细致做作业的时候,总是丢三落四.
有些家长忙于工作,没有时间帮助孩子养成勤于动手的习惯.孩子丢三落四,不能坚持到底,这种生活上“随便”的作风带到学习上就容易表现出粗心的毛病.
有些家长没有充分考虑孩子的学习能力,孩子出现马虎时一着急就不顾他的自尊,对他严厉批评或者打骂.这使孩子心理受到严重的挫折,他们怀疑自己的能力,缺乏学习的信心.表现在做作业上,遇到困难时就不愿动脑筋,不想争取最优的成绩.
　（5）其他环境因素.
如学习任务太重使孩子感到疲于应对,学校学风不正使孩子受到不良影响等,也是造成孩子作业马虎的重要原因.
指导意见：
让孩子克服粗心的毛病,在辅导时,可着重在以下几方面多做工作： 1,帮助孩子安排作息时间,让孩子学会“专时专用”,玩要玩得舒心通畅,做作业时要专心致志,决不分心.保证孩子有足够的娱乐和睡眠时不可忽略的. 2,告诉孩子要仔细看题目,认真想问题,做作业先是求对,求好,然后才是求快.平时要经常督促孩子养成认真审题,认真检查的好习惯. 3,为孩子准备一本错题集.把作业,试卷中的错题集中记录下来,同他一起分析做错的原因,并找出规律. 4,目标激励.和孩子一起制定减少“多少”的近期目标,并辅之以奖励措施. 5,注意力培养.提高孩子同外界诱因作斗争的能力,这是最根本的防治粗心的办法.祝孩子健康快乐成长!

那可能是她着急的要写完作业去玩耍吧.这就需要对她进行有意识的锻炼,培养.根据英语科目的情况来看的话,适当的奖罚是有效的.

病情分析：
正常的行为是眼睛看到的和手上做的应该是协调的,但是这个能力不是天生就具备的,而是经过后天训练产生的.孩子出生后,会用自己的感官和四肢去探索周围的世界,如果我们没有给他们足够的探索机会,他们的能力就会畏缩不前,发育不足.在婴幼儿期没有经过足够的爬行的孩子,在手眼协调性上就非常差.在四五岁时,孩子就应该多练拍球,跳绳,打球,滑梯,蹦床等户外活动,但爸爸妈妈们往往让孩子过早过多地坐在那里学习,这对孩子手眼协调性的发展极为不利.孩子上学后,父母往往只盯着学习成绩,老让孩子写作业,很少让孩子自己动手做家务,玩游戏,解决问题,孩子的动手能力差,直接影响到学习能力.
指导意见：
孩子学习磨蹭有几种情况：一种是学习兴趣低落,硬着头皮应付,疲塌无奈,能拖就拖,缺乏自信,不负责任；第二种“慢性子”,行动迟缓,慢条斯理,紧张不起来,任你着急催促,依然故我；第三种是缺乏时间观念,效率观念,不知道时间对人生的重要意义.因此,矫治磨蹭要分别不同情况,对症下药.第一种情况要在激发学习兴趣,增强自信,提高责任心上下功夫,家长可参考本书中有关培养兴趣等专题采取教育措施；第二三种情况要在专时专用,提高学习效率上努力.以下是我提供给家长的参考方法.
　　一,联系生活,学习实际,跟孩子讨论磨蹭的害处,使孩子认识到“时间就是生命,时间就是财富”的基本道理.在充满竞争的现代社会中,磨磨蹭蹭不讲效率的人就会被淘汰,就会生活艰难.磨蹭的坏习惯,有害终生.
　　二,加强专时专用,提高效率的训练.帮助孩子确定每次学习的时间,任务,目标要求,到时完成,评价结果.每次学习,都把三者结合起来.要根据孩子的年龄特点和个性特点,三者的要求有所区别.要让孩子尝到提高效率,增加玩乐时间的甜头.
　　三,增加计时性活动.孩子磨蹭,不光在学习中表现出来,也反映在生活的各个方面,如穿衣,吃饭,收拾书包文具,洗衣物等.因此,克服磨蹭毛病,需从不同角度入手.从孩子实际表现出发,增加计时性活动是可行的方法.做某件事情,需要多长时间,事先设定,然后以最快速度保质保量地进行.事后家长与孩子一起评价,调整要求,下一次做得更好.对低龄的孩子,如果家长跟孩子一起进行计时阅读,计时记忆,计时答题,计时劳动的小竞赛,会有更好的效果.
　　四,让自己孩子跟讲效率的孩子一起学习,游戏,发挥孩子之间的影响作用.可以事先与讲效率孩子的家长联系,请家长给孩子提出更高的要求,在学习和游戏的过程中带动磨蹭的孩子.
　　孩子马虎毛病的形成,有三个基本原因：一是年幼时的马虎现象没有及时纠正,形成定势；二是责任心不强,应付的成分太多,缺乏真正的责任意识；三是功课太多,作业太多,不快做做不完,于是忙忙叨叨,丢三落四,错误迭出.
　　矫治马虎,可以采取以下方法.
　　一,以生活实例,让孩子认识速度,质量与效益之间的关系,认识马虎可能带来什么样的恶果.如果有亲友从事精密,细致的工作,不妨带孩子去看看他们的工作情况,请亲友现身说法,会给孩子思想以较大影响.在科技事业中,也有大量的实证材料.
　　二,指导孩子形成自我检查学习效果的习惯.有些孩子马虎导致的作业错误,常常由爸爸妈妈或其他长辈给检查出来,一一指正.这种方法对克服马虎的毛病不但没有好处,还可能导致孩子的依赖心理而更加马虎.正确的做法是指导孩子自己检查,验证学习效果.家长的检查在孩子检查之后,而且不要具体指出错误,而是划定出错范围,让孩子自己查证.特别要培养一次做对的习惯.
　　三,指导孩子自己制订惩罚马虎的措施.比如,由于马虎,作业或考试出了问题,取消某项外出游玩的计划,取消一次看电视或电影的娱乐活动；也可以罚自己背诵两段有关讲认真,不马虎的格言,名言,谚语,或者学讲一个有关的故事.
　　四,进行“细活儿”训练.学习,生活中有许多“细活儿”,不认真绝对做不好.对于马虎的孩子,通过干“细活儿”,可以克服他的毛病.例如,写正楷字,画工笔画,缝衣服扣子,淘米,挑沙子,择洗蔬菜,计算水电费,动脑筋游戏等等.让孩子有目的地去选这类事情干,经常训练,就会越来越细心.
　　不论是克服磨蹭的毛病,还是克服马虎的毛病,增强责任意识都是首位的.一个不负责的孩子,是克服不了磨蹭,马虎的毛病的.本书中,不少专题谈到了责任心的问题,请您互相参照一下.

病情分析：
1.上述状况看来,孩子缺乏耐心.我们应该找出她对学习缺乏耐心的原因在哪,比如,没兴趣,作业太多,老师的重视不够等等.
2.英文认真是因为老师的鼓励,说明孩子并不是真的耐性就差,是需要鼓励的.
指导意见：
1.孩子做作业或考试因为粗心而错的题有多少,如果不是很多,可以谅解,孩子毕竟是孩子,我们不能那么苛刻孩子非要仔细到会的就一定要对,也不必苛求孩子的考试成绩一定要多么优秀.
2.既然鼓励孩子能让孩子重视起来,那么一方面我们要鼓励孩子,另一方面可以和孩子的老师沟通,希望她能多鼓励孩子.

针对孩子的情况,你也可以给她一点小奖励.还有就是要督促好,如做完作业要让她检查,必须检查力所能及的错误地方.
一定要养成这样的好习惯.

1.孩子做作业或考试因为粗心而错的题有多少,如果不是很多,可以谅解,孩子毕竟是孩子,我们不能那么苛刻孩子非要仔细到会的就一定要对,也不必苛求孩子的考试成绩一定要多么优秀.
2.既然鼓励孩子能让孩子重视起来,那么一方面我们要鼓励孩子,另一方面可以和孩子的老师沟通,希望她能多鼓励孩子.

从我自己的角度我觉得是 孩子比较懒 不愿意认真思考
而且没有耐心
应该培养孩子对功课的认真和注意力的集中
也应该适当的让他放松

孩子刚上小学时,很多家长往往放心不下.于是上学时家长帮助孩子整理书包;放学时家长督促孩子做作业,快要包办代替了.家长见不得孩子作业上出现红叉叉,一定要亲自检查孩子的作业.这样下来,就养成了孩子的依赖心理.孩子不必认真查点学习用具;做作业也不必太认真,反正妈妈还会检查的.孩子的责任心没有了.孩子刚上学时,家长可以协助一下孩子,但这只能是一个帮助孩子自理的过程.家长不妨这样做：第一步,让孩子自己整理书包,家长事后检查一下;第二步,让孩子自己整理书包,家长第二天早晨检查一下,这样逐渐放手.做作业也是这样：第一步,让孩子自己做作业,自己检查,家长再检查;第二步,让孩子自己做作业,自己检查,家长让孩子确认无误,不检查就交上去.其实,作业留下一些错误又有何妨,尝试错误正是一个必要的学习过程.

这是小孩子的通病,一定要让她认识到粗心的危害,平时要让她画画,做手工来锻炼她的细心程度

Answer 2

Private Function fun(m As Long) As String
Dim flag As Boolean
'**********Program**********
flag = True
For i = 2 To Sqr(m)
  If m Mod i = 0 Then
    flag = False
    Exit For
  End If
Next
If flag Then
  fun = "素数"
Else
  fun = "非素数"
End If
'**********  End  **********
End Function