- 博客(13)
- 收藏
- 关注
RSS订阅原创 考前感想
一个学期的VB个结束了，好像时间过的很匆忙，似乎真的是弹指间，一切转瞬即逝。对这门最基础的计算机，我不得不说真的很不好学，有的时候不想去上，可是想想这也是自己的专业课，那样的念头还是放弃了。马上就要考试了，这些天，我看着我身边的人疯狂的背VB题。我也开始了我的VB学习，背了这么多，突然之间觉得自己好像也懂了不少，多少道题的比较也摸索出点门道。回头想想也觉得很开心。现在想想，其实VB也不难学，本
2012-06-12 13:43:07
291
原创 VB实验报告——<<实现能动的图形>>
实验目的：实现能动的图形 实验内容： 实验原理：Private Sub Command1_Click() 定义三个启动按钮Timer1.Enabled = TrueTimer1.Interval = 100End SubPrivate Sub Command2_Click()Form1.Cls实验目的：实现能动的图形 实验内容： 实验原理：P
2012-06-12 13:28:18
364
原创 求利润
验目的：计算一定金额的所需缴纳的个人所得税实验原理：采用了select case n .Private Sub Command1_Click()Dim m As Single, s As SingleDim n As Single, y As Singlem = Text1.Textn = m - 800Select Case nCase Is s = 0.05
2012-06-12 13:27:09
388
原创 关于学号姓名，以及成绩输入和计算
实验目的：学号姓名，以及成绩输入和计算。实验原理：采用了inputbox，定义了一个av函数，xh & ' ' &可以采取这样的方式加输入项中的空格。Dim xh As String, xm As StringDim chinese As Integer, maths As Integer, english As Integer, av As Integer
2012-06-12 13:26:32
1611
原创 递归的思想
Private Function sum(n As Integer) As IntegerIf n > 1 Thensum = n + sum(n - 1)Elsesum = 1End IfEnd FunctionPrivate Sub Command1_Click()Me.FontSize = 18Print sum(2)End Sub
2012-06-12 13:25:22
220
原创 将n个数分成想等的或者相差一的两部分
实验目的：将n个数分成想等（n为偶数）的或者相差一（n为奇数）的两部分实验方法：定义数组以及使用for函数Private Sub Command1_Click()Dim m As IntegerDim a(0 To 12) As Integer'Print Str(LBound(a))m = ((UBound(a) - LBound(a) + 1) \ 2)'Print
2012-06-12 13:24:36
457
原创 杂谈
这节课我们写随机选取10个数的程序。一开始，还是听得比较糊涂，“先假定它是，然后看是不是。”。。。慢慢的当自己静下心来，发现还是可以理解的。跟着丁老师的思路一点点走，也一点点弄明白是怎末回事了。可是，当我到机房后自己写程序时，又屡屡受挫。。于是听老师在机房又讲解了一遍。然后，听一学姐说书上有类似的讲解。发现，它的程序与老师所讲的思路有些不同。再胡雅婷学姐的帮助下，我们又尝试新的方法
2012-06-12 13:23:04
327
原创 1000—2000能同时被17和37整除的数
1000—2000能同时被17和37整除的数(2012-04-17 20:49) [编辑] [删除]
2012-05-25 06:37:27
459
原创 单精度与双精度
单精度与双精度(2012-04-24 20:14:33)[编辑][删除] 单精度浮点数同义词条：单精度。 根据IEEE754国际标准，常用的浮点数有两种格式(1) 单精度浮点数(Single)用来表示带有小数部分的实数，一般用于科学计算。占用4个字节（32位）存储空间，包括符号位1位，阶码8位，尾数23位。其数值范围为3.4E-38～3.4E+38，单精度浮点数最多
2012-05-25 06:31:05
2799
原创 税率金额
税率金额(2012-04-24 20:23:54)[编辑][删除] Private Sub Command1_Click()Dim x As DoubleDim y As Singlex = Val(Text1.Text)y = Val(Text2.Text)Select Case xCase Is y = x * 0.05Case Is y =
2012-05-25 06:29:15
262
原创 两个数乘运算
两个数乘运算(2012-04-24 20:31:49)[编辑][删除] Option Base 1Private Sub Command1_Click()Dim M As StringDim N As StringM = Trim(Text1.Text)N = Trim(Text2.Text)Dim Number1() As ByteDi
2012-05-25 06:26:11
505
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人