自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(12)
  • 收藏
  • 关注

原创 VB课程

来临的课程               叫人头疼的VB课程 ,考试快到了,我一样都不会,什么都听不懂,叫人揪心,现在期末了,什么还不会,叫人怎么办才好,老师教教我吧,我好型快撑不住了。

2012-05-15 21:16:15 281

原创 又是新的一周

新的一周又开始了,像是好久没有见面一样,可是上的还是VB课程,这个特别难的课程,特别不会学的课程,特别怕学的课程,又来了,又来了,我要怎么办才能不那样害怕上课,一上课我就心跳得不行,就是害怕,惶恐,担心,着急,要考试了,可是什么都没有学到,要我自己编个程序,可难了,不会不会一直在我的心中出现,真的怕的,伤不起伤不起,我该怎样做,怎么办才好!

2012-05-08 22:47:03 286

原创 我的VB课程

又一周的VB的课程,让我又是惊喜又是悲哀,惊喜的是要放假了,悲哀的是我又要上VB课程了,老师我不是在说你的什么不好,也不是你讲的不好,而是我对VB课程的恐惧和害怕,我不会做题,又听不懂,你叫我们自己照葫芦画瓢,可是我都画不来这个瓢,这个瓢好难画的,这就是我对VB课程的害怕与恐惧,这周的课程本来就是补课,可是我还是害怕,怕见到你,怕上机,怕一切的一切。

2012-04-28 21:04:30 295

原创 感悟

VB 的体会与感悟 我学习了这么长时间的VB课程,到现在我还是不会做这个VB 作业,是什么原因我也不知道,只知道想听老师好好的讲,可是自己很努力的听课,却什么也听不懂,所以我每次去上VB 课的时候,前两节课还好,即使听不懂也没有什么担心的,可是老师一布置作业,上机的时候要自己做作业,我就急,就不想做,不是我懒,也不是我不愿意做,而是我自己不会,上机的时候,有时候自己坐在那里发呆,举手想问问辅导的

2012-04-23 20:31:22 301

原创 个人所得税的计算程序

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 1381

原创 求100以内的素数的和

Private Sub Command1_Click() Dim Result As String Dim Sum As Long Sum = 0 For i = 1 To 100     If IsSushu(i) = True Then         Sum = Sum + i         Result = Result & " " & i     End If Nex

2012-04-23 19:46:44 398

原创 VB作业

Private Sub Command1_Click()   Dim year As Integer Dim month As Integer Dim day As Integer Dim birthday As Date Dim date of week As Byte Year = Int (Val(Text1.Text)) mont =  I

2012-04-23 19:43:28 248

原创 又一周的VB课程

新一周的VB 课程         新的一周又开始了,我么已经好久没有上VB课程了,其实有点想上这个课程,但是其实说实话,我们女生不太喜欢这个课程,因为这个课程需要太多的逻辑思维能力,但是有时候,女生对于这个课程不太感兴趣,就是因为太难,其实,这应该算是我们广大女生的心情,是的,老师,新的一周又开始了,希望我们能更好的学习,更好的交流,互相学习,开始新一周我们的交流。

2012-04-10 21:43:52 207

原创 我的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 230

原创 我的心得体会

学习完VB课程,我学习到的知识太少,我对VB课程的了解太少,我其实也没有学习到太多的知识,到现在为止,VB的知识我还是没有学习到,怎样学习编写程序自己不会,所以我还是希望老师上课的时候,教会我们怎样写程序,怎样用,多举一些例子,多用一些实际例子讲讲。老师在上课的时候多讲一些实际,希望老师在讲的时候教教我们,希望我们以后会多用点,老师也不要只是讲百度一下,百度下来的知识我们掌握的不太好,希望老师以后

2012-03-26 19:45:29 362

原创 VB实验报告

VB 编程作业 教 育 学 院 专业 教育学 姓名 施小艳 学号 11110142016                     一.               实验目的 1.                生成随机数 2.

2012-03-26 18:59:14 1681

原创 VB实验报告

VB编程作业              教              育              学              院 教育学专业       学号 11110142016       姓名 施小艳

2012-03-26 18:56:54 783

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除