- 博客(12)
- 收藏
- 关注
原创 VB课程
来临的课程 叫人头疼的VB课程 ,考试快到了,我一样都不会,什么都听不懂,叫人揪心,现在期末了,什么还不会,叫人怎么办才好,老师教教我吧,我好型快撑不住了。
2012-05-15 21:16:15 293
原创 又是新的一周
新的一周又开始了,像是好久没有见面一样,可是上的还是VB课程,这个特别难的课程,特别不会学的课程,特别怕学的课程,又来了,又来了,我要怎么办才能不那样害怕上课,一上课我就心跳得不行,就是害怕,惶恐,担心,着急,要考试了,可是什么都没有学到,要我自己编个程序,可难了,不会不会一直在我的心中出现,真的怕的,伤不起伤不起,我该怎样做,怎么办才好!
2012-05-08 22:47:03 297
原创 我的VB课程
又一周的VB的课程,让我又是惊喜又是悲哀,惊喜的是要放假了,悲哀的是我又要上VB课程了,老师我不是在说你的什么不好,也不是你讲的不好,而是我对VB课程的恐惧和害怕,我不会做题,又听不懂,你叫我们自己照葫芦画瓢,可是我都画不来这个瓢,这个瓢好难画的,这就是我对VB课程的害怕与恐惧,这周的课程本来就是补课,可是我还是害怕,怕见到你,怕上机,怕一切的一切。
2012-04-28 21:04:30 307
原创 感悟
VB 的体会与感悟我学习了这么长时间的VB课程,到现在我还是不会做这个VB 作业,是什么原因我也不知道,只知道想听老师好好的讲,可是自己很努力的听课,却什么也听不懂,所以我每次去上VB 课的时候,前两节课还好,即使听不懂也没有什么担心的,可是老师一布置作业,上机的时候要自己做作业,我就急,就不想做,不是我懒,也不是我不愿意做,而是我自己不会,上机的时候,有时候自己坐在那里发呆,举手想问问辅导的
2012-04-23 20:31:22 315
原创 个人所得税的计算程序
Private Sub Command1_Click() x = Val(InputBox("800")) Select Case x Case Is Print x * 0.05 Case Is Print x * 0.1 - 25 Case Is Print x * 0.15 - 125 Case Is Print x * 0.2 - 375 Cas
2012-04-23 20:06:13 1401
原创 求100以内的素数的和
Private Sub Command1_Click()Dim Result As StringDim Sum As LongSum = 0For i = 1 To 100 If IsSushu(i) = True Then Sum = Sum + i Result = Result & " " & i End IfNex
2012-04-23 19:46:44 409
原创 VB作业
Private Sub Command1_Click() Dim year As IntegerDim month As IntegerDim day As IntegerDim birthday As DateDim date of week As ByteYear = Int (Val(Text1.Text))mont = I
2012-04-23 19:43:28 263
原创 又一周的VB课程
新一周的VB 课程 新的一周又开始了,我么已经好久没有上VB课程了,其实有点想上这个课程,但是其实说实话,我们女生不太喜欢这个课程,因为这个课程需要太多的逻辑思维能力,但是有时候,女生对于这个课程不太感兴趣,就是因为太难,其实,这应该算是我们广大女生的心情,是的,老师,新的一周又开始了,希望我们能更好的学习,更好的交流,互相学习,开始新一周我们的交流。
2012-04-10 21:43:52 219
原创 我的VB作业
Option Base 1 Private Sub Command1_Click () Dim M As String Dim N As String M= Trim(Text1.Text) N= Trim(Text2.Text) Dim Number1() As
2012-04-10 21:35:20 242
原创 我的心得体会
学习完VB课程,我学习到的知识太少,我对VB课程的了解太少,我其实也没有学习到太多的知识,到现在为止,VB的知识我还是没有学习到,怎样学习编写程序自己不会,所以我还是希望老师上课的时候,教会我们怎样写程序,怎样用,多举一些例子,多用一些实际例子讲讲。老师在上课的时候多讲一些实际,希望老师在讲的时候教教我们,希望我们以后会多用点,老师也不要只是讲百度一下,百度下来的知识我们掌握的不太好,希望老师以后
2012-03-26 19:45:29 373
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人